1、二级 VISUAL+BASIC-71及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：40，分数：100.00)1.设窗体上有一个文本框，名称为 Text1，程序运行后，要求该文本框只能显示信息，不能接收输入信息，以下能实现该操作的语句是_。（分数：2.50）A.Text1.MaxLength=0B.Text1.Enabled=FalseC.Text1.Visible=FalseD.Text1.Width=02.以下能在窗体 Form1的标题栏中显示“VisualBasic 窗体”的语句是_。（分数：2.50）A.Form1.Name=“VisualBasic窗体”B.
2、Form1.Title=“VisualBasic窗体”C.Form1.Caption=“VisualBasic窗体”D.Form1.Text=“VisualBasic窗体”3.在窗体上画一个名称为 Text1的文本框，然后画一个名称为 HScroll1的滚动条，其 Min和 Max属性分别为 0和 100。程序运行后，如果移动滚动框，则在文本框中显示滚动条的当前值，如下图所示。 （分数：2.50）A.Private Sub HScroll1_Change()Text1.Text=HScroll1.ValueEnd SubB.Private Sub HScroll1_Click()Text1.T
3、ext=HScroll1.ValueEnd SubC.Private Sub HScroll1_Change()Text1.Text=HScroll1.CaptionEnd SubD.Private Sub HScroll1_Click()Text1.Text=HScroll1.CaptionEnd Sub4.设菜单中有一个菜单项为“Open”。若要为该菜单命令设置访问键，即按下 Alt及字母 O时，能够执行“Open”命令，则在菜单编辑器中设置“Open”命令的方式是_。（分数：2.50）A.把 Caption属性设置为 Next i End Sub 程序运行后，单击命令按钮，在窗体上显示的
4、内容是_。（分数：2.50）A.1 2B.1 2 3C.3 4 5D.4 530.假定一个工程由一个窗体文件 Form1和两个标准模块文件 Model1及 Model2组成。 Model1的代码如下： Public x As Integer Public y As Integer Sub S1() x=1 S2 End Sub Sub S2() y=10 Form1.Show End Sub Model2的代码如下： Sub Main() S1 End Sub 其中 Sub Main被设置为启动过程。程序运行后，各模块的执行顺序是_。（分数：2.50）A.Form1Model1Model2B.
5、Model1Model2Form1C.Model2Model1Form1D.Model2Form1Model131.窗体上画一个命令按钮，然后编写如下代码： Private Type Record ID As Integer Name As String*20 End Type Private Sub Command1_Click() Dim MaxSize，NextChar,MyChar Open “c:/file.txt“ for Input As #1 NaxSize=LOF(1) for NextChar=NaxSize To 1 Step-1 Seek #1,NextChar HyC
6、har=Input(1,#1) Next NextChar Print EOF(1) Close #1 End Sub 程序运行后，单击命令按钮，其输出结果为_。（分数：2.50）A.TrueB.FalseC.0D.Null32.有如下的程序片段，该程序片段的执行完后，共执行循环_次。 Private Sub Command1_Click() total=0 Counter=1 do Print Counter total=total+Counter Print total, “111“ Counter=Counter+1 if total=10 then exit do End if Loo
7、p while Counter=10 End Sub（分数：2.50）A.4B.10C.12D.2033.程序段如下： Private Sub Command1_Click() a=0 for I=15 To 15 Step-2 a=a+I Next I Print a,I End Sub 发生 Command1的单击事件后，程序的输出结果是_。（分数：2.50）A.0 13B.15 13C.0 15D.15 1534.已知通用对话框名为 Cdlg，则执行下列的_语句，将弹出“另存为对话框”对话框。（分数：2.50）A.Cdlg.Action=1B.Cdlg.Action=2C.Cdlg.Ac
8、tion=4D.Cdlg.Action=335.在窗体中添加一个列表框(listBox1)和一个命令按钮，并编写如下代码： Private Sub Command1_Click() Dim Entry,I,Nsg Msg=“Choose Ok to add 100 items to your list box.“ MsgBox Msg for I=1 To 100 Entry=“Entr“ Next i End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是_。（分数：2.50）A.1 2B.1 2 3C.3 4 5D.4 5 解析：解析 经过第一个 For循环计算后，变量 Sum的结
9、果为数组 a的元素各值的之和，即为 15，语句“X=Sum/5”的计算结果 x为 3。在第二个 For循环中，数组 a的元素中只有 4和 5能满足大于 3的条件，所以在窗体上显示为 4和 5。30.假定一个工程由一个窗体文件 Form1和两个标准模块文件 Model1及 Model2组成。 Model1的代码如下： Public x As Integer Public y As Integer Sub S1() x=1 S2 End Sub Sub S2() y=10 Form1.Show End Sub Model2的代码如下： Sub Main() S1 End Sub 其中 Sub Ma
10、in被设置为启动过程。程序运行后，各模块的执行顺序是_。（分数：2.50）A.Form1Model1Model2B.Model1Model2Form1C.Model2Model1Form1 D.Model2Form1Model1解析：解析 由于 Sub Main被设置为启动过程，而 Sub Main在 Model2标准模块文件中，所以，所以首先运行 Model2标准模块。又由于在 Sub Main过程中执行调用 s1过程，而 s1在 Model1标准模块文件中，所以程序再执行 Model1标准模块。又由于在 Model1标准模块中执行调用 s2过程，在 s2过程中执行了“Form1.Show”
11、，显示了 Form1窗体，所以最后运行 Form1。选项 C是正确的。31.窗体上画一个命令按钮，然后编写如下代码： Private Type Record ID As Integer Name As String*20 End Type Private Sub Command1_Click() Dim MaxSize，NextChar,MyChar Open “c:/file.txt“ for Input As #1 NaxSize=LOF(1) for NextChar=NaxSize To 1 Step-1 Seek #1,NextChar HyChar=Input(1,#1) Next
12、 NextChar Print EOF(1) Close #1 End Sub 程序运行后，单击命令按钮，其输出结果为_。（分数：2.50）A.TrueB.False C.0D.Null解析：解析 本题的难点是如何确定文件的指针是否指在文件的末尾处。Seek 语句把相应文件的文件指针由后向前移动，当循环结束时，文件指针在文件的开始处，所以 EOF(1)为“False”。32.有如下的程序片段，该程序片段的执行完后，共执行循环_次。 Private Sub Command1_Click() total=0 Counter=1 do Print Counter total=total+Counte
13、r Print total, “111“ Counter=Counter+1 if total=10 then exit do End if Loop while Counter=10 End Sub（分数：2.50）A.4 B.10C.12D.20解析：解析 本题的重点是判断循环非正常退出的问题。该段程序有“total=10”和“Counter=10”两个条件，只要其中一个条件先成立，循环就退出。total 的计算过程为“1+2+3+4=10”，Counter 的计算过程为“1+1+1+1=4”。33.程序段如下： Private Sub Command1_Click() a=0 for I
14、=15 To 15 Step-2 a=a+I Next I Print a,I End Sub 发生 Command1的单击事件后，程序的输出结果是_。（分数：2.50）A.0 13B.15 13 C.0 15D.15 15解析：解析 for 循环的结束条件是循环变量存变化方向上超过终值。当发生 Command1_Click事件时，给变量 a赋值为 0，执行 for循环，给循环变量赋值 15，循环变量的终值为 15，步长为-2，变化方向是从大到小。循环变量的值没有超过终值，执行循环体，给 a赋值 15，循环变量加上步长变为 13，已经在变化方向上超过了终值，循环结束。输出的 a和的值分别为 1
15、5和 13。34.已知通用对话框名为 Cdlg，则执行下列的_语句，将弹出“另存为对话框”对话框。（分数：2.50）A.Cdlg.Action=1B.Cdlg.Action=2 C.Cdlg.Action=4D.Cdlg.Action=3解析：解析 为了弹出某个对话框，除使用通用对话框的方法外，还可以通过给通用对话框的 Action属性赋值来实现，给 Action属性赋不同的值将弹出不同的对话框。若给 Action属性赋值为 2，运行时将弹出“另存为对话框”对话框。35.在窗体中添加一个列表框(listBox1)和一个命令按钮，并编写如下代码： Private Sub Command1_Cli
16、ck() Dim Entry,I,Nsg Msg=“Choose Ok to add 100 items to your list box.“ MsgBox Msg for I=1 To 100 Entry=“Entr“& I List1.AddItem Entry Next I End Sub 程序完成的功能是_。（分数：2.50）A.本示例使刖 AddItem方法增加 100项给一个列表框 B.本示例使用 AddItem方法向一个列表框中添加的内容是 1100 的列C.本示例使用 AddItem方法向一个列表框中添加的内容是 1100 的和D.本示例使用 AddItem方法增加 101项给
17、一个列表框解析：解析 AddItem 的功能是向列表框添入一项数据。循环 100次，添入 100项。36.在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x=InputBox(“Enter the First integer“) y=InputBox(“Enter the Second integer“) Print y+x End Sub 程序运行后，单击命令按钮，先后在两个输入对话框中分别输入 456和 123，则输出结果是_。（分数：2.50）A.579B.123C.456D.123456 解析：解析 本题的难点是 InputBo
18、x函数。InputBox 函数用来接受用户通过键盘输入的数据。其格式为：“InputBox(提示信息,标题,默认值,对话框的位置,帮助文件名及帮助主题号)”，x 和 y是变体变量或字符串型变量，对字符串来讲符号“+”和“&”的作用一样，“123“+“456“=“123456“”。37.下列可以把当前目录下的图形文件 pic1.jpg装入图片框 Picture1中的语句为_。（分数：2.50）A.Picture=“pic1.jpg“B.Picture.Handle=“pic1.jpg“C.Picture1.Picture=LoadPicture(“pic1.jpg“)D.Picture:Load
19、Picture(“pic1.jpg“) 解析：解析 图片框的 Picture属性可以在设计时从属性窗口或者运行时通过代码来设置。通过代码设置时，要调用 LoadPicture()函数来实现。38.下列的程序段执行后，x 的值为_。 Private Sub Command1_Click() x=0 for i=1 To 10 for j=i To 10 x=x+1 Next j Next i Print x End Sub（分数：2.50）A.50B.55 C.5D.105解析：解析 本题的难点是嵌套循环的循环次数。由于内层的初值为外层循环的循环变量，循环次数为“10+9+8+7+6+5+4+3
20、+2+1=55”。39.当文本框的 Text属性发生变化时，将发生_事件。（分数：2.50）A.Change B.LostFocusC.KeyPressD.SetFocus解析：解析 文本框的 Change事件在文本框的内容发生变化时触发，LostFocus 事件在文本框失去焦点时触发，KeyPress 事件是在文本榧中按下一个键时触发，SetFocus 不是事件而是一个方法，它的作用是给文本框设置焦点。40.下面程序的输出是_。 Private Sub Command1_Click() Print 7/3 End Sub（分数：2.50）A.3.5B.7C.3D.2 解析：解析 运算符号“/”用于两个数相除并返回以整数形式表示的结果。
