1、二级 VISUAL+BASIC-91 及答案解析(总分：103.00，做题时间：90 分钟)一、选择题(总题数：35，分数：74.00)1.在用菜单编辑器设计菜单时，必须输入的项是_。（分数：2.50）A.快捷键B.标题C.索引D.名称2.执行以下程序段后，整型变量 C 的值为 _ 。 a=24 b=328 Select Caseb/10 Case0 c=a*10+b Case 1 to 9 c=a*100+b Case 10 to 99 c=a*1000+b End Select（分数：2.00）A.537B.2427C.24328D.2403283.要使文本框获得输入焦点，则应采用文本框控
2、件的_。（分数：2.50）A.GotFocus 方法B.LostFocus 方法C.KeyPress 方法D.SetFocus 方法4.Visual Basic 控件一般都规定一个默认属性，在引用这样的属性时，只写对象名而不必给出属性名。默认属性为 Caption 的控件是_。（分数：2.50）A.列表框(ListBox)B.标签(Label)C.文本框(TextBox)D.组合框(ComboBox)5.在 Visual Basic 中，表达式 3*2/5 Mod 3 的值是_。（分数：1.00）A.1B.0C.3D.出现错误提示6.设有下面程序代码： Private Sub Command1
3、_Click() Dim a As Variant a=Array(22, 43, 23, 56, 87, 45, 67, 12, 98, 98, 56, 34, 23, 75, 64) m=a(0)n=m For k=1 To UBound(a) If a(k)m Then n=m:m=a(k) Else If a(k)n And a(k)m Then n=a(k) End If Next k Print n End Sub 程序运行时的输出是（分数：2.00）A.数组中最大的数(即 98)B.数组中最小的数(即 12)C.数组中第 2 大的数(即 87)D.数组中第 1 个数(即 22)7
4、.在窗体上画一个列表框和一个命令按钮，其名称分别为 List1 和 Command1，然后编写如下事件过程： Private Sub Form_Load() List1. AddItem“Item1“ List1AddItem“Item2“ List1. AddItem“Item3“ End Sub Private Sub Command1_Click() List1. List(List1. ListCount)=“AAAA“ End Sub 程序运行后，单击命令按钮，其结果为_。（分数：2.00）A.把字符串“AAAA”添加到列表框中，但位置不能确定B.把字符串“AAAA”添到列表框的最后
5、(即“Item3”的后面)C.把列表框之中原有的最后一项改为“AAAA”D.把字符串“AAAA”插入到列表框的最前面(即“Iteml”的前面)8.设窗体文件中有下面的事件过程： Private Sub Command1_Click() Dim s a%=100 Print a End Sub 其中变量 a 和 s 的数据类型分别是_。（分数：1.00）A.整型，整型B.变体型，变体型C.整型，变体型D.变体型，整型9.某人编写了下面的程序 Private Sub Command1_Click() Dim a As Integer,b As Integer a=InputBox(“请输入整数“)
6、 b=InputBox(“请输入整数“) pro a pro b Call pro(a+b) End Sub Private Sub pro(n As Integer) While(n0) Print n Mod 10; n=n/10 Wend Print End Sub 此程序功能是：输入 2 个正整数，反序输出这 2 个数的每位数字，再反序输出这 2 个数之和的每位数字。例如：若输入 123 和 234，则应该输出： 3 2 1 4 3 2 7 5 3 但调试时发现只输出了前 2 行(即 2 个数的反序)，而未输出第 3 行(即 2 个数之和的反序)，程序需要修改。下面的修改方案中正确的是
7、_。（分数：2.00）A.把过程 pro 的形式参数 n As Integer 改为 ByVal n As IntegerB.把 Call pro(a+b)改为 pro a+bC.把 n=n/10 改为 n=n/lOD.在 pro b 语句之后增加语句 c%=a+b，再把 Call pro(a+b)改为 pro c10.下面_属性肯定不是框架控件的属性。（分数：2.50）A.TextB.CaptionC.LeftD.Enabled11.在窗体中添加一个命令按钮，编写如下程序： Private Sub Sub1(p,m,n) p=p+1:m=m+1:n=n+1 Print “sub1:“;p;m
8、;n End Sub Private Sub Command1_Click() a1=1:b1=2:c1=3 Call Sub1(a),b1+3,c1) Print “Main:“;a1;b1;c1 End Sub 程序运行后，输出结果为 _ 。（分数：2.00）A.Sub: 2 6 4Main:2 6 4B.Sub: 2 6 4Main: 2 6 4C.Sub: 2 6 4Main: 1 2 4D.Sub: 2 6 4Main: 2 2 412.窗体如左图所示。要求程序运行时，在文本框 Text1 中输入一个姓氏，单击“删除”按钮(名称为Command1)，则可删除列表框 List1 中所有
9、该姓氏的项目。若编写以下程序来实现此功能： Private Sub Command1_Click() Dim n%,k% n=Len(Text1.Text) For k=0 To List1.ListCount-1 If Left(List1.List(k),n)=Text1.Text Then List1.RemoveItem k End If Next k End Sub 在调试时发现，如果输入“陈”，可以正确删除所有姓“陈”的项目，但若输入“刘”，则只删除了“刘邦”、“刘备”两项，结果如右图所示。这说明程序不能适应所有情况，需要修改。正确的修改方案是把For k=0 To List1.L
10、istCount-1 改为_。 （分数：2.50）A.For k=List1.ListCount-1 To 0 Step-1B.For k=0 To List1.ListCountC.For k=1 To List1.ListCount-1D.For k=1 To List1.ListCount13.结构化程序设计的 3 种基本结构是 _ 。（分数：2.00）A.过程、子程序和分程序B.顺序、选择和重复C.递归、堆栈和队列D.调用、返回和转移14.假定有如下事件过程： Private Sub Form_MouseDown(Buaon As Integer，Shift As Integer，x
11、As Single，y_As Single) If Button=2 Then PopupMenu popForm End If End Sub 则以下描述中错误的是（分数：2.00）A.该过程的功能是弹出一个菜单B.popForm 是在菜单编辑器中定义的弹出式菜单的名称C.参数 x、y 指明鼠标的当前位置D.Button=2 表示按下的是鼠标左键15.执行语句 Open“Tel.dat“For Random As#1 Len=50 后，对文件 Tel.dat 中的数据能够执行的操作是_。（分数：2.00）A.只能写，不能读B.只能读，不能写C.既可以读，也可以写D.不能读，不能写16.设窗体
12、上有 1 个水平滚动条，已经通过属性窗口把它的 Max 属性设置为 1，Min 属性设置为 100。下面叙述中正确的是_。（分数：2.00）A.程序运行时，若使滚动块向左移动，滚动条的 Value 属性值就增加B.程序运行时，若使滚动块向左移动，滚动条的 Value 属性值就减少C.由于滚动条的 Max 属性值小于 Min 属性值，程序会出错D.由于滚动条的 Max 属性值小于 Min 属性值，程序运行时滚动条的长度会缩为一点，滚动块无法移动17.如果准备读文件，打开顺序文件“text.dat“的正确语句是（分数：2.00）A.Open “text.dat“ For Write As#1B.O
13、pen “text.dar“ For Binary As#1C.Open “text.dat“ For Input As#1D.Open “text.dat“ For Random As#118.有如下过程代码： Sub var_dim() static numa As Integer Dim numb As Integer numa=numa+2 numb=numb+1 print numa; mub End Sub 连续 3 次调用 var_dim 过程，第 3 次调用时的输出是_。（分数：2.50）A.2 1B.2 3C.6 1D.6 319.下列事件过程运行后输出结果是_。 Priva
14、te Sub Command1_Click() Print Format$(123.456,“#.#%“) End Sub（分数：2.50）A.123.46%B.123.45%C.123.456%D.12345.6%20.Visual Basic 集成环境由若干窗口组成，其中不能隐藏(关闭)的窗口是_。（分数：2.00）A.主窗口B.属性窗口C.立即窗口D.窗体窗口21.下列叙述中正确的是（分数：2.00）A.用 E-R 图能够表示实体集间一对一的联系、一对多的联系和多对多的联系B.用 E-R 图只能表示实体集之间一对一的联系C.用 E-R 图只能表示实体集之间一对多的联系D.用 E-R 图表
15、示的概念数据模型只能转换为关系数据模型22.设有如下 Command1 的单击事件过程及 fun 过程： Private Sub Command1_Click() Dim x As Integer x=Val(InputBox(“请输入一个整数“) fun(x) End Sub Private Sub fun(x As Integer) If x Mod 2=0 Then fun(x/2) Print x; End Sub 执行上述程序，输入 6，结果是（分数：3.00）A.3 6B.6 3C.6D.程序死循环23.在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Com
16、mand1_Click() X=InputBox(“请输入一个整数“) Print x+345 End Sub 程序运行后，单击命令按钮，在输入对话框中输入 123，则在窗体上输出的内容为（分数：2.50）A.123345B.468C.123D.34524.InputBox 函数返回值的类型为（分数：2.50）A.数值B.字符串C.变体D.数值或字符串(视输入的数据而定)25.下列关于栈的叙述正确的是_。（分数：3.00）A.栈按“先进先出”组织数据B.栈按“先进后出”组织数据C.只能在栈底插入数据D.不能删除数据26.窗体上有一个名称为 CD1 的通用对话框控件和由四个命令按钮组成的控件数组
17、 Commandl，其下标从左到右分别为 0、1、2、3，窗体外观如图所示。 （分数：2.00）A.单击“打开”按钮，显示打开文件的对话框B.单击“保存”按钮，显示保存文件的对话框C.单击“打印”按钮，能够设置打印选项，并执行打印操作D.单击“退出”按钮，结束程序的运行27.已知：x=-6 y=39 则表达式“y/x*Sgn(x)”的值为（分数：2.00）A.-6.5B.-6C.6D.6.528.如果在立即窗口中执行以下操作：_ 。 a=8 (是回车键，下同)b=9 print ab 则输出结果是_ 。 A.-1 B.0 C.False D.TrueA B C D C（分数：2.00）A.-1
18、B.0C.FalseD.True29.阅读程序： Private Sub Command1_Click() Dim arr Dim i As Integer arr=Array(0,1.2,3 ,4,5 ,6,7,8,9,10) For i=0 To 2 Print arr(7-i) Next End Sub 程序运行后，窗体上显示的是_。（分数：2.50）A.8 7 6B.7 6 5C.6 5 4D.5 4 330.用来设置文字字体是否斜体的属性是_。（分数：1.00）A.FontUndedineB.FontBoldC.FontSlopeD.FontItalic31.为了读取数据，需打开顺序
19、文件“D:/data5.txt”，以下正确的命令是（分数：2.00）A.Open D:/data5.txt For Input As #1B.Open “D:/data5.txt“For Input As #2C.Open D:/data5.txt For Output As #1D.Open “D:/data5.txt“For Output As #232.在窗体上画一个名称为 List1 的列表框，一个名称为 Label1 的标签，列表框中显示若干个项目。当单击列表框中的某个项目时，在标签中显示被选中项目的名称。下列能正确实现上述操作的、程序是_。（分数：2.50）A.Private Su
20、b List1_Click()Lsbel1.Caption=List1.ListIndexEnd SubB.Private Sub List1_Click()Label1.Name=List1.ListIndexEnd SubC.Private Sub List1_Click()Label1.Name=List1.TextEnd SubD.Private Sub List1_Click()Label1.Caption=List1.TextEnd Sub33.下面描述中，符合结构化程序设计风格的是_。（分数：2.00）A.使用顺序、选择和重复(循环)三种基本控制结构表示程序的控制逻辑B.模块只有
21、一个入口，可以有多个出口C.注重提高程序的执行效率D.不使用 goto 语句34.设在窗体 Form1 上有一个列表框 List1，其中有若干个项目。要求单击列表框中某一项时，把该项显示在窗体上，正确的事件过程是_。（分数：2.50）A.Prvate Sub List1_Click()Print List1.TextEnd SubB.Private Sub Form1_Click()Print List1.TextEnd SubC.Private Sub List1_Click()Print Form1.TextEnd SubD.Private Sub Form1_Click()List1.P
22、rint List1.TextEnd Sub35.下列能够接受键盘输入的控件是_。（分数：1.00）A.列表框B.组合框C.标签D.框架二、填空题(总题数：13，分数：29.00)36._ 1_ 是从二维表列的方向进行的运算。 （分数：1.00）37.滚动条响应的重要事件有 1 和 Change。 （分数：2.00）38.以下程序用来建立一个 55 矩阵，该矩阵两条对角线上的元素为 1，其余元素为 0，请补充完该程序。该程序运行结果如下图所示。 （分数：2.00）39.设有如下通用过程： Public Sub Fun(a()，ByVal x As Integer) For i=1 To 5 x
23、=x+a(i) Next End Sub 在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下的事件过程： Private Sub Command1_Click() Dim arr(5)As variant For i=1 To 5 arr(i)=i Next n=10 Call Fun(arr()，n) Text1.Text=n End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是 _ 1_ 。 （分数：1.00）40.结构化程序设计方法的主要原则可以概括为自顶向下、逐步求精、 _ 1_ 和限制使用 goto 语句。 （分数：1.0
24、0）41.在数据的存储结构中，不仅需要存储各数据元素的信息，还要存放各元素之间 1 的信息。 （分数：2.00）42.软件工程的出现是由于 1。 （分数：1.00）43.下面程序是由鼠标事件在窗体上画图，如果按下鼠标可以画图，双击窗体则可以清除所画图形。补充完整下面的程序。首先在窗体层定义如下变量： Dim PaintStart As Boolean 编写如下事件过程： Private Sub Form_Load() DrawWidth=2 ForeColor=vbGreen End Sub Private Sub Form_MouseDown(Button As Integer，Shift
25、As Integer，X AS Single，Y AS Single) PaintStart=True End Sub Private Sub Form_MouseMove(Button As Integer，Shift As Integer，X As Single，Y As Single) If PaintStart Then PSet(X，Y) End If End Sub Private Sub Form_MouseUp(Button As Integer，Shift As Integer，X As Single，Y As Single) End Sub Private Sub Form
26、_DblClick() Cls End Sub （分数：2.00）44.若有一个动态数组 a 有两个元素 a(0)和 a(1)，现要令数组 a 有三个元素 a(0)、a(1)和 a(2)，则应当使用 _ 1_ 语句。 （分数：1.00）45.对长度为 n 的线性表进行顺序查找，最坏情况下所需比较的次数为 _ 1_ 。 （分数：1.00）在窗体上画一个标签(名称为 Label1)和一个计时器(名称为 Timer1)，然后编写如下几个事件过程： Private Sub Form_Load() Timer1.Enabled=False Timer1.Interval= 1 End Sub Priva
27、te Sub Form_Click() Timer1.Enabled= 2 End Sub Private Sub Timer1_Timer() Label1.Caption= 3 End Sub 程序运行后，单击窗体，将在标签中显示当前时间，每隔 1 秒钟变换一次(见下图)。请填空。 （分数：6.00）填空项 1:_填空项 1:_填空项 1:_47._ 1_ 是一种信息隐蔽技术，目的在于将对象的使用者和对象的设计者分开。 （分数：1.00）完成下面的程序，使显示结果如下图所示。 Private Sub Form_Click() FontSize=18 Samples=“ 15 “ x=(Sc
28、aleWidth_TextWidth(Samples)/2 y=(ScaleHeight_TextHeight(Samples)/2 CurrentX=x CurrentY=y 16 Sample$ End Sub （分数：8.00）二级 VISUAL+BASIC-91 答案解析(总分：103.00，做题时间：90 分钟)一、选择题(总题数：35，分数：74.00)1.在用菜单编辑器设计菜单时，必须输入的项是_。（分数：2.50）A.快捷键B.标题C.索引D.名称 解析：2.执行以下程序段后，整型变量 C 的值为 _ 。 a=24 b=328 Select Caseb/10 Case0 c=a
29、*10+b Case 1 to 9 c=a*100+b Case 10 to 99 c=a*1000+b End Select（分数：2.00）A.537B.2427C.24328 D.240328解析：3.要使文本框获得输入焦点，则应采用文本框控件的_。（分数：2.50）A.GotFocus 方法B.LostFocus 方法C.KeyPress 方法D.SetFocus 方法 解析：解析 SetFocus 是控件获得焦点的方法，GotFocus 是控件获得焦点后触发的事件，LostFocus 是控件失去焦点后触发的事件。本题中程序执行 Text1.SetFocus 后，Text1 就获得焦点
30、，进而触发 Text1的 GotFocus 事件。因此 D 选项正确。4.Visual Basic 控件一般都规定一个默认属性，在引用这样的属性时，只写对象名而不必给出属性名。默认属性为 Caption 的控件是_。（分数：2.50）A.列表框(ListBox)B.标签(Label) C.文本框(TextBox)D.组合框(ComboBox)解析：解析 标签主要用来显示文本信息，它所显示的内容只能用 Caption 属性来设置或修改，Caption为标签控件的默认属性，引用时可以只写标签控件的对象名。5.在 Visual Basic 中，表达式 3*2/5 Mod 3 的值是_。（分数：1.0
31、0）A.1 B.0C.3D.出现错误提示解析：解析 VB 中算术运算符优先级从高到低：乘方负号-乘除* 整除/取模 Mod加减+、-。 根据优先级顺序，先计算 3*2 为 6，再 6/5 整除为 1，最后 1 Mod 3 取模结果为 1。故 A 选项正确。6.设有下面程序代码： Private Sub Command1_Click() Dim a As Variant a=Array(22, 43, 23, 56, 87, 45, 67, 12, 98, 98, 56, 34, 23, 75, 64) m=a(0)n=m For k=1 To UBound(a) If a(k)m Then n
32、=m:m=a(k) Else If a(k)n And a(k)m Then n=a(k) End If Next k Print n End Sub 程序运行时的输出是（分数：2.00）A.数组中最大的数(即 98)B.数组中最小的数(即 12)C.数组中第 2 大的数(即 87) D.数组中第 1 个数(即 22)解析：解析 本题显然是求取数组最大值的，先取得数组的第一个元素作为最大值，然后用 m 保存最大值；在循环中如果发现了有比 m 还大的数组元素，则将该元素作为新的最大值，原来的最大值 m 赋值给n；如果元素不比 m 大就去比较元素是否大于 n，若大于 n 则将元素赋值给 n，所以循
33、环结束后 n 中的值是数组中第 2 大的数。7.在窗体上画一个列表框和一个命令按钮，其名称分别为 List1 和 Command1，然后编写如下事件过程： Private Sub Form_Load() List1. AddItem“Item1“ List1AddItem“Item2“ List1. AddItem“Item3“ End Sub Private Sub Command1_Click() List1. List(List1. ListCount)=“AAAA“ End Sub 程序运行后，单击命令按钮，其结果为_。（分数：2.00）A.把字符串“AAAA”添加到列表框中，但位置不
34、能确定B.把字符串“AAAA”添到列表框的最后(即“Item3”的后面) C.把列表框之中原有的最后一项改为“AAAA”D.把字符串“AAAA”插入到列表框的最前面(即“Iteml”的前面)解析：解析 列表框的 List 属性用来列出表项的内容，也可以改变数组中已有的值。列表框中表项的排列是从 0 开始，最后一项的序号为 ListCount-1。本程序的功能是：把字符串“AAAA”添加到列表框的最后，但不改变 Item3 的值。8.设窗体文件中有下面的事件过程： Private Sub Command1_Click() Dim s a%=100 Print a End Sub 其中变量 a 和
35、 s 的数据类型分别是_。（分数：1.00）A.整型，整型B.变体型，变体型C.整型，变体型 D.变体型，整型解析：解析 变量 s 定义时没有指明数据类型，默认为 Variant 变体型。变最 a 是用整型的类型符号%声明，并同时赋值 100，所以变量 a 的数据类型为整型。故 C 选项正确。9.某人编写了下面的程序 Private Sub Command1_Click() Dim a As Integer,b As Integer a=InputBox(“请输入整数“) b=InputBox(“请输入整数“) pro a pro b Call pro(a+b) End Sub Private
36、 Sub pro(n As Integer) While(n0) Print n Mod 10; n=n/10 Wend Print End Sub 此程序功能是：输入 2 个正整数，反序输出这 2 个数的每位数字，再反序输出这 2 个数之和的每位数字。例如：若输入 123 和 234，则应该输出： 3 2 1 4 3 2 7 5 3 但调试时发现只输出了前 2 行(即 2 个数的反序)，而未输出第 3 行(即 2 个数之和的反序)，程序需要修改。下面的修改方案中正确的是_。（分数：2.00）A.把过程 pro 的形式参数 n As Integer 改为 ByVal n As Integer
37、B.把 Call pro(a+b)改为 pro a+bC.把 n=n/10 改为 n=n/lOD.在 pro b 语句之后增加语句 c%=a+b，再把 Call pro(a+b)改为 pro c解析：解析 参数的传递 形参名前面缺省修饰词，或有“ByRef”关键字时，则指定它是一个按地址传递的参数。按地址传递参数时，形参和实参共用内存的“同一”地址，即共享同一个存储单元，形参值在过程中一旦被改变，相应的实参值也跟着改变。 按值传递参数(ByVal)，传递的只是实参变量的副本。当采用按值传递时，过程对参数的任何改变实际上都是对栈中值的改变，仅在过程内部有效，而不影响实参变量本身。换句话说，一旦过
38、程运行结束，控制返回调用程序时，对应的实参变量保持调用前的值不变。 本题中，过程 Sub pro(n As Integer)的形参变量 n 按地址传递参数。程序执行 pro a、pro b、Call pro(a+b)语句的过程如下： pro a n Print n Mod 10 n=n/10 123 3 12 12 2 1 1 1 0 程序结束时形参 n 的值变为 0，则实参 a 的值也变为 0。 pro b n Print n Mod 10 n=n/10 234 4 23 23 3 2 2 2 0 程序结束时形参 n 的值变为 0，则实参 b 的值也变为 0 Call pro(a+b)此时表
39、达式 a+b 的值为 0，过程 pro()没有执行循环，所以不会反序输出变量 a+b 之和753。 要想输出变量 a+b 的实际输入的值的和，则变量 a 和 b 在过程的运行期间必须保持不变，因此形参必须采用传值的方式，故选项 A 正确。10.下面_属性肯定不是框架控件的属性。（分数：2.50）A.Text B.CaptionC.LeftD.Enabled解析：解析 Text 是文本框的基本属性，Caption 属性是设置名称，Left 是居左或向左，Enabled 为设置属性可用。11.在窗体中添加一个命令按钮，编写如下程序： Private Sub Sub1(p,m,n) p=p+1:m=
40、m+1:n=n+1 Print “sub1:“;p;m;n End Sub Private Sub Command1_Click() a1=1:b1=2:c1=3 Call Sub1(a),b1+3,c1) Print “Main:“;a1;b1;c1 End Sub 程序运行后，输出结果为 _ 。（分数：2.00）A.Sub: 2 6 4Main:2 6 4B.Sub: 2 6 4Main: 2 6 4C.Sub: 2 6 4Main: 1 2 4D.Sub: 2 6 4Main: 2 2 4 解析：解析 这是在实现子过程被调用时参数虚实结合的问题。a1 为变量按址传送，b1+3 和 c1
41、为表达式按值传送。12.窗体如左图所示。要求程序运行时，在文本框 Text1 中输入一个姓氏，单击“删除”按钮(名称为Command1)，则可删除列表框 List1 中所有该姓氏的项目。若编写以下程序来实现此功能： Private Sub Command1_Click() Dim n%,k% n=Len(Text1.Text) For k=0 To List1.ListCount-1 If Left(List1.List(k),n)=Text1.Text Then List1.RemoveItem k End If Next k End Sub 在调试时发现，如果输入“陈”，可以正确删除所有姓
42、“陈”的项目，但若输入“刘”，则只删除了“刘邦”、“刘备”两项，结果如右图所示。这说明程序不能适应所有情况，需要修改。正确的修改方案是把For k=0 To List1.ListCount-1 改为_。 （分数：2.50）A.For k=List1.ListCount-1 To 0 Step-1 B.For k=0 To List1.ListCountC.For k=1 To List1.ListCount-1D.For k=1 To List1.ListCount解析：解析 错误原因：每一次删除列表框满足项，列表框的项目数目就会相应地减少，因此就出现了漏删内容。如果把循环变量 k 改成从 L
43、ist1.ListCout-1 到 0，从最后一个项目往第一个项目查找，满足条件就删除该项目，这样就不会出现遗漏现象，故正确答案为 A。13.结构化程序设计的 3 种基本结构是 _ 。（分数：2.00）A.过程、子程序和分程序B.顺序、选择和重复 C.递归、堆栈和队列D.调用、返回和转移解析：解析 程序的 3 种基本控制结构包括顺序、选择和重复(循环)，这 3 种结构就足以表达出各种其他形式的结构。14.假定有如下事件过程： Private Sub Form_MouseDown(Buaon As Integer，Shift As Integer，x As Single，y_As Single)
44、 If Button=2 Then PopupMenu popForm End If End Sub 则以下描述中错误的是（分数：2.00）A.该过程的功能是弹出一个菜单B.popForm 是在菜单编辑器中定义的弹出式菜单的名称C.参数 x、y 指明鼠标的当前位置D.Button=2 表示按下的是鼠标左键 解析：解析 Button 参数用来标识该事件的产生，是由按下(MouseDown)或者释放(MouseUp)按钮引起的具有相应于左键(位 0)、右键(位 1)、中键(位 2)的一个位字段。这些位的值分别等于 1、2 和 4。其中仅有一位被设置，用来指示引起该事件的键。15.执行语句 Open
45、“Tel.dat“For Random As#1 Len=50 后，对文件 Tel.dat 中的数据能够执行的操作是_。（分数：2.00）A.只能写，不能读B.只能读，不能写C.既可以读，也可以写 D.不能读，不能写解析：解析 Visual Basic 访问文件的方式分为三类；有 Input/Output/Append(访问顺序输入/输出文件)、Binary(访问二进制文件)、Random(访问随机存取文件)。如果未指定方式，则以 Random 访问方式打开文件。而以 Random 形式打开的文件是既可以读，也可以写的16.设窗体上有 1 个水平滚动条，已经通过属性窗口把它的 Max 属性设置
46、为 1，Min 属性设置为 100。下面叙述中正确的是_。（分数：2.00）A.程序运行时，若使滚动块向左移动，滚动条的 Value 属性值就增加 B.程序运行时，若使滚动块向左移动，滚动条的 Value 属性值就减少C.由于滚动条的 Max 属性值小于 Min 属性值，程序会出错D.由于滚动条的 Max 属性值小于 Min 属性值，程序运行时滚动条的长度会缩为一点，滚动块无法移动解析：解析 水平滚动条的 Max 和 Min 属性值可以是 032767 中任意值。当 MaxMin 属性值时，滚动块向右移动 Value 属性值增加，向左移动 Value 属性值减少；反之，当 MaxMin 属性值
47、时，滚动块向右移动 Value 属性值减少，向左增加；当它们 Max=Min 时，滚动块不能移动。故 A 选项正确。17.如果准备读文件，打开顺序文件“text.dat“的正确语句是（分数：2.00）A.Open “text.dat“ For Write As#1B.Open “text.dar“ For Binary As#1C.Open “text.dat“ For Input As#1 D.Open “text.dat“ For Random As#1解析：解析 顺序文件的读操作由 Input 语句来实现。18.有如下过程代码： Sub var_dim() static numa As
48、Integer Dim numb As Integer numa=numa+2 numb=numb+1 print numa; mub End Sub 连续 3 次调用 var_dim 过程，第 3 次调用时的输出是_。（分数：2.50）A.2 1B.2 3C.6 1 D.6 3解析：解析 Static 是将变量声明为静态变量，每次调用值会取上次调用后的值。而 numb 是局部变量，每次会重新初始化，所以应选 C 选项。19.下列事件过程运行后输出结果是_。 Private Sub Command1_Click() Print Format$(123.456,“#.#%“) End Sub（分数：2.50）A.123.46%B.123.45%C.123.456%D.12345.6% 解析：解析 Format$(数值表达式，格式字符串)的功能是按“格式字符串”指定的格式输出数值表达式的值，将多余位数舍去。20.Visual Basic 集成环境由若干窗口组成，其中不能隐藏(关闭)的窗口是_。（分数：2.00）A.主窗口 B.属性窗口C.立即窗口D.窗体窗口解析：解析 属性窗口、立即窗口和窗体窗口都能隐藏，但主窗口不能。故选 A。21.下列叙述中正确的是（分数：2
