二级VB笔试试卷 全国计算机等级考试

《二级VB笔试试卷 全国计算机等级考试》由会员分享，可在线阅读，更多相关《二级VB笔试试卷 全国计算机等级考试（102页珍藏版）》请在装配图网上搜索。

1、2003年9月全国计算机等级考试二级VB语言笔试试卷（含答案） 一、 选择题（（1）~（20）每小题2分，（21）~（30）每小题3分，共70分） 　　 　　（1）以下叙述中错误的是 　　 　　A）Visual Basic 是事件驱动型可视化编程工具 　　 　　B）Visual Basic应用程序不具有明显的开始和结束语句 　　 　　C）Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性 　　 　　D）Visual Basic中控件的某些属性只能在运行时设置 　　 　　（2）以下叙述中错误的是 　　 　　A）在工程资源管理

2、器窗口中只能包含一个工程文件及属于该工程的其他文件 　　 　　B）以.BAS为扩展名的文件是标准模块文件 　　 　　C）窗体文件包含该窗体及其控件的属性 　　 　　D）一个工程中可以含有多个标准模块文件 　　 　　（3）以下叙述中错误的是 　　 　　A）双击鼠标可以触发DblClick事件 　　 　　B）窗体或控件的事件的名称可以由编程人员确定 　　 　　C）移动鼠标时，会触发MouseMove事件 　　 　　D）控件的名称可以由编程人员设定 　　 　　（4）以下不属于Visual Basic系统的文件类型是 　　 　　A）.frm B）.bat C）.

3、vbg D）.vbp 　　 　　（5）以下叙述中错误的是 　　 　　A）打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件 　　 　　B）保存Visual Basic程序时，应分别保存窗体文件及工程文件 　　 　　C）Visual Basic应用程序只能以解释方式执行 　　 　　D）事件可以由用户引发，也可以由系统引发 　　 　　（6）以下能正确定义数据类型TelBook的代码是 　　 　　（资料来源：东方教育网 ) 　　 　　A）Type TelBook B）Type TelBook 　　 　　Name As String*10 Name

4、As String*10 　　 　　TelNum As Integer TelNum As Integer 　　 　　End Type End TelBook 　　 　　C）Type TelBook D）Typedef TelBook 　　 　　Name String*10 Name String*10 　　 　　TelNum Integer TelNum Integer 　　 　　End Type TelBook EndType 　　 　　（7）以下声明语句中错误的是 　　 　　A）Const var1=123 B）Dim var2 = 'ABC' 　　

5、　　C）DefInt a-z D）Static var3 As Integer 　　 　　（8）设窗体上有一个列表框控件Lis选中的列表项内容的是t1，且其中含有若干列表项。则以下能表示当前被 　　 　　A）List1.List B）List1.ListIndex C）List1.Index D）List1. Text 　　 　　（9）程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是 　　 　　A）MouseDown B）MouseUp C）Load D）Click 　　 　　（10）设a=10，b=5，c =1，执行语句Print a > b > c后，窗体上显示

6、的是 　　 　　A）True B）False C）1 D）出错信息 　　 　　（11）如果要改变窗体的标题，则需要设置的属性是 　　 　　A）Caption B）Name C）BackColor D）BorderStyle 　　 　　（12）以下能判断是否到达文件尾的函数是 　　 　　A）BOF B）LOC C）LOFD）EOF 　　 　　（13）如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是 　　 　　A）如果工程中含有Sub Main过程，则程序一定首先执行该过程 　　 　　B）不能把标准模块设置为启动模块 　　 　　C）用Hide方法只是隐藏

7、一个窗体，不能从内存中清除该窗体 　　 　　D）任何时刻最多只有一个窗体是活动窗体 　　 　　（14）窗体的MouseDown事件过程 　　 　　Form_MouseDown (ButtSingle) 　　 　　on As Integer, Shift As Integer, X As Single, Y As 　　 　　有4个参数，关于这些参数，正确的描述是 　　 　　A）通过Button参数判定当前按下的是哪一个鼠标键 　　 　　B）Shift参数只能用来确定是否按下Shift键 　　 　　C）Shift参数只能用来确定是否按下Alt和Ctrl键 　　

8、 　　D）参数x,y用来设置鼠标当前位置的坐标 　　 　　（15）设组合框Combo1中有3个项目，则以下能删除最后一项的语句是 　　 　　A）Combo1.RemoveItem Text 　　 　　B）Combo1.RemoveItem2 　　 　　C）Combo1.RemoveItem 3 　　 　　D）Combo1.RemoveItemCombo1.Listcount 　　 　　（16）以下关于焦点的叙述中，错误的是 　　 　　A）如果文本框的TabStop属性为False，则不能接收从键盘上输入的数据 　　 　　B）当文本框失去焦点时，触发LostFoc

9、us事件 　　 　　C）当文本框的Enabled属性为False时，其Tab顺序不起作用 　　 　　D）可以用TabIndex属性改变Tab顺序 　　 　　（17）如果要在菜单中添加一个分隔线，则应将其Caption属性设置为 　　 　　A）= B）* C）& D）- 　　 　　（18）执行语句Open "数据能够执行的操作是Tel.dat" For Random As #1 Le 　　 　　n = 50后，对文件Tel.dat中的 　　 　　A）只能写，不能读 B）只能读，不能写 　　 　　C）既可以读，也可以写 D）不能读，不能写 　　 　　（19）在窗

10、体上画一个本框，然后编写如下事件过 　　 　　名称为Command1的命令按钮和两程：个名称分别为Text1、Text2的文 　　 　　Private Sub Command1_Click() 　　 　　n = Text1.Text 　　 　　Select Case n 　　 　　Case 1 To 20 　　 　　x = 10 　　 　　Case 2, 4, 6 　　 　　x = 20 　　 　　Case Is < 10 　　 　　x = 30 　　 　　Case 10 　　 　　x = 40 　　 　　End Select 　　 　　

11、Text2.Text = x 　　 　　End Sub 　　 　　程序运行后，如果在文内容是本框Text1中输入10，然后单击命令按钮，则在Text2中显示的 　　 　　A）10 B）20 C）30 D）40 　　 　　（20）设有以下循环结构 　　 　　Do 　　 　　循环体 　　 　　Loop While <条件> 　　 　　则以下叙述中错误的是 　　 　　A）若"条件"是一个为0的常数，则一次也不执行循环体 　　 　　B）"条件"可以是关系表达式、逻辑表达式或常数 　　 　　C）循环体中可以使用Exit Do语句 　　 　　D）如果"条件"

12、总是为True，则不停地执行循环体 　　 　　（21）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： 　　 　　Private Sub Command1_Click() 　　 　　Dim num As Integer 　　 　　num = 1 　　 　　Do Until num > 6 　　 　　Print num; 　　 　　num = num + 2.4 　　 　　Loop 　　 　　End Sub 　　 　　程序运行后，单击命令按钮，则窗体上显示的内容是 　　 　　A）1 3.4 5.8 B）1 3 5 　　 　　C

13、）1 4 7 D）无数据输出 　　 　　（22）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： 　　 　　Private Sub Command1_Click() 　　 　　Dim a As Integer, sAs Integer 　　 　　a = 8 　　 　　s = 1 　　 　　Do 　　 　　s = s + a 　　 　　a = a－1 　　 　　Loop While a <= 0 　　 　　Print s; a 　　 　　End Sub 　　 　　程序运行后，单击命令按钮，则窗体上显示的内容是 　　 　　A

14、） 7 9 B） 34 0 　　 　　C） 9 7 D）死循环 　　 　　（23）设有如下通用过程： 　　 　　Public Function f(x As Integer) 　　 　　Dim y As Integer 　　 　　x = 20 　　 　　y = 2 　　 　　f = x * y 　　 　　End Function 　　 　　在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： 　　 　　Private Sub Command1_Click() 　　 　　Static x As Integer 　　 　　x = 1

15、0 　　 　　y=5 　　 　　y = f(x) 　　 　　Print x; y 　　 　　End Sub 　　 　　程序运行后，如果单击命令按钮，则在窗体上显示的内容是 　　 　　A）10 5 B）20 5 　　 　　C）20 40 D）10 40 　　 　　（24）设有如下通用过程： 　　 　　Public Sub Fun(a(), ByVal x As Integer) 　　 　　For i = 1 To 5 　　 　　x = x + a(i) 　　 　　Next 　　 　　End Sub 　　 　　在窗体上画一个名称为Text1的

16、文本下的事件过程：框和一个名称为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 　　 　　程序运行后，单击命令按钮，则在文本框中显示的内容是 　　 　　A）10 B）15 C）25 D）24 　　 　　（25

17、）在窗体上画一个名称为Command1的命令按钮，然后编写如下代码： 　　 　　Option Base 1 　　 　　Private Sub Command1_Click() 　　 　　d = 0 　　 　　c = 10 　　 　　x = Array(10, 12, 21, 32, 24) 　　 　　For i = 1 To 5 　　 　　If x(i) > c Then 　　 　　d = d + x(i) 　　 　　c = x(i) 　　 　　Else 　　 　　d = d－c 　　 　　End If 　　 　　Next i 　　 　　

18、Print d 　　 　　End Sub 　　 　　程序运行后，如果单击命令按钮，则在窗体上输出的内容为 　　 　　A）89 B）99 C）23 D）77 　　 　　（26）在窗体上画两个别为Label1、Label2、Labe显示"A"、"B"、"A*B"等文Label3 　　 　　显示A*B的计算结果。当单击命令按钮"计算"时Label3中。以下不能实现上滚动条，名称分别为Hscroll1l3、Label4、Label5、Label6，字信息，标签Label1、Label2分。如图所示。当移动滚动框时，，对标签Label1、Label2中显示述功能的事件过程是、Hsc

19、roll2；六个标签，名称分其中标签Label 　　 　　4~ Label6分别别显示其右侧的滚动条的数值，在相应的标签中显示滚动条的值的两个值求积，并将结果显示在 　　 　　A）Private Sub Command1_Click() 　　 　　Label3.Caption = Str(Val(Label1.Caption )*Val( Label2.Caption)) 　　 　　End Sub 　　 　　B）Private Sub Command1_Click() 　　 　　Label3.Caption = HScroll1.Value * HScroll2.Va

20、lue 　　 　　End Sub 　　 　　C）Private Sub Command1_Click() 　　 　　Label3.Caption = HScroll1 * HScroll2 　　 　　End Sub 　　 　　D）Private Sub Command1_Click() 　　 　　Label3.Caption = HScroll1. Text * HScroll2.Text 　　 　　End Sub 　　 　　（27）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： 　　 　　Private Sub Command1_C

21、lick() 　　 　　For n = 1 To 20 　　 　　If n Mod 3 <> 0 Thenm = m + n \ 3 　　 　　Next n 　　 　　Print n 　　 　　End Sub 　　 　　程序运行后，如果单击命令按钮，则窗体上显示的内容是 　　 　　A）15 B）18 C）21 D）24 　　 　　（28）在窗体上画一个名称为Text1的文本框，并编写如下程序： 　　 　　Private Sub Form_Load() 　　 　　Show 　　 　　Text1.Text = "" 　　 　　Text1.SetFoc

22、us 　　 　　End Sub 　　 　　Private Sub Form_MouY As Single)seUp(Button As Integer, Shift As 　　 　　Integer, X As Single, 　　 　　（资料来源：东方教育网 ) 　　 　　Print "程序设计" 　　 　　End Sub 　　 　　Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) 　　 　　Print "Visual Basic"; 　　 　　End Sub 　　 　　程

23、序运行后，如果按"A"键，然后单击窗体，则在窗体上显示的内容是 　　 　　A）Visual Basic B）程序设计 　　 　　C）A程序设计 D）Visual Basic程序设计 　　 　　（29）设有如下程序： 　　 　　Private Sub Command1_Click() 　　 　　Dim sum As Double, xAs Double 　　 　　sum = 0 　　 　　n = 0 　　 　　For i = 1 To 5 　　 　　x = n / i 　　 　　n = n + 1 　　 　　sum = sum + x 　　 　　N

24、ext 　　 　　End Sub 　　 　　该程序通过For循环计算一个表达式的值，这个表达式是 　　 　　A）1+1/2+ 2/3+3/4+4/5 B）1+1/2+2/3+3/4 　　 　　C）1/2+2/3+3/4+4/5 D）1+1/2+1/3+1/4+1/5 　　 　　（30）以下有关数组定义的语句序列中，错误的是 　　 　　A） Static arr1(3) 　　 　　arr1(1) = 100 　　 　　arr1(2) = "Hello" 　　 　　arr1(3) = 123.45 　　 　　B）Dim arr2() As Integer

25、　　 　　Dim size As Integer 　　 　　Private Sub Command2_Click() 　　 　　size = InputBox("输入：") 　　 　　ReDim arr2(size) 　　 　　．．．．．． 　　 　　End Sub 　　 　　C）Option Base 1 　　 　　Private Sub Command3_Click() 　　 　　Dim arr3(3) As Integer 　　 　　．．．．．． 　　 　　End Sub 　　 　　D）Dim n As Integer 　　 　　Priv

26、ate Sub Command4_Click() 　　 　　Dim arr4(n) As Integer 　　 　　．．．．．． 　　 　　End Sub 　　 　　二、填空题（每空2分，共30分） 　　 　　（1）执行下面的程序段后，i的值为〖1〗 ，s的值为 〖2〗 。 　　 　　s = 2 　　 　　For i = 3.2 To 4.9 Step 0.8 　　 　　s = s + 1 　　 　　Next i 　　 　　（2）把窗体的KeyPreview属性设置为True，然后编写如下两个事件过程： 　　 　　Private Sub Form_K

27、eyDown(KeyCode As Integer, Shift As Integer) 　　 　　Print Chr(KeyCode) 　　 　　End Sub 　　 　　Private Sub Form_KeyPress(KeyAscii As Integer) 　　 　　Print Chr(KeyAscii) 　　 　　End Sub 　　 　　程序运行后，如果直接分别是 〖3〗 和 〖4〗 。按键盘上的"A"键（即不按住Shift键），则在窗体上输出的字符 　　 　　（3）在窗体上画一个标签（名称为L写如下几个事件过程：abel1）和一个计时器（名称为Tim

28、er1），然后编 　　 　　Private Sub Form_Load() 　　 　　Timer1.Enabled = False 　　 　　Timer1.Interval = 〖5〗 　　 　　End Sub 　　 　　Private Sub Form_Click() 　　 　　Timer1.Enabled = 〖6〗 　　 　　End Sub 　　 　　Private Sub Timer1_Timer() 　　 　　Label1.Caption = 〖7〗 　　 　　End Sub 　　 　　程序运行后，单击窗体，将在标签中 　　 　　填空。

29、显示当前时间，每隔1秒钟变换一次（见图）。请 　　 　　—————————————————————— 　　 　　14：54：41 　　 　　—————————————————————— 　　 　　（4）在窗体上画一个Label1和Command1，然后编文本框、一个标签和一个命令按写如下两个事件过程：钮，其名称分别为Text1、 　　 　　Private Sub Command1_Click() 　　 　　S$ = InputBox("请输入一个字符串") 　　 　　Text1.Text = S$ 　　 　　End Sub 　　 　　Private Sub

30、Text1_Change() 　　 　　Label1.Caption = UCase(Mid(Text1.Text, 7)) 　　 　　End Sub 　　 　　程序运行后，单击命令"VisualBasic"，则在标签按钮，将显示一个输入对话框，中显示的内容是 〖8〗 　　 　　。如果在该对话框中输入字符串 　　 　　（5）在窗体上画一个列表框、一个Command1和Label1，通过属性窗口把列表、"第三个项目"、"第四个项目"。程序运钮，即可将所选择的项目删除，并在标签选择"第三个项目"的情况)。下面是实现命令按钮和一个标签，其名称分别为List1、框中的项目设置为：

31、"第一个项目"、"第二个项目"行后，在列表框中选择一个项目，然后单击命令按中显示列表框当前的项目数，运行情况如图所示(上述功能的程序，请填空。 　　 　　Private Sub Command1 _Click() 　　 　　If List1.ListIndex >= 〖9〗 Then 　　 　　List1.RemoveItem 〖10〗 　　 　　Label1.Caption = 〖11〗 　　 　　Else 　　 　　MsgBox "请选择要删除的项目" 　　 　　End If 　　 　　End Sub 　　 　　—————————— ——————————

32、— 　　 　　第一个项目 　　 　　第二个项目 COMMAND1 　　 　　第三个项目 　　 　　3 　　 　　————————————————————— 　　 　　（6）设有程序： 　　 　　Option Base 1 　　 　　Private Sub Command1_Click() 　　 　　Dim arr1, Max as Integer 　　 　　arr1 = Array(12, 435, 76, 24, 78, 54, 866, 43) 　　 　　（资料来源：东方教育网 ) 　　 　　〖12〗 = arr1(1) 　　 　　Fo

33、r i = 1 To 8 　　 　　If arr1(i) > Max Then 〖13〗 　　 　　Next i 　　 　　Print "最大值是: "; Max 　　 　　End Sub 　　 　　以上程序的功能是：用Array函数建组中元素的最大值。请填空。立一个含有8个元素的数组，然后查找并输出该数 　　 　　（7）以下程序的功能在文本框Text1中显示出来是：把当前目录下的顺序文件sm。请填空。text1.txt的内容读入内存，并 　　 　　Private Sub Command1_Click() 　　 　　Dim inData As String 　

34、　 　　Text1.Text = "" 　　 　　Open ".\smtext1.txt"〖14〗 As #1 　　 　　Do While 〖15〗 　　 　　Input #1, inData 　　 　　Text1.Text = Text1.Text & inData 　　 　　Loop 　　 　　Close #1 　　 　　End Sub 　　 　　2003年9月全国计算机等级考试二级VB语言笔试试卷参考答案 　　 　　一、 选择题 　　 　　（1） C （2） A （3） B （4） B （5） C 　　 　　（6） A （7） B （8） D

35、 （9） C （10）B 　　 　　（11）A （12）D （13）A （14）A （15）B 　　 　　（16）A （17）D （18）C （19）A （20）A 　　 　　（21）B （22）C （23）C （24）A （25）C 　　 　　（26）D （27）C （28）D （29）C （30）D 　　 　　二、 填空题 　　 　　（1） 〖1〗 5.6 〖2〗 5 　　 　　（2） 〖3〗 A 〖4〗 a 　　 　　（3） 〖5〗 1000 〖6〗 True 〖7〗 Time 　　 　　（4） 〖8〗 BASIC 　　 　　（5） 〖9〗 0 〖

36、10〗List1.ListIndex 〖11〗 List1.ListCount 　　 　　（6） 〖12〗 Max 〖13〗 Max = arr1(i) 　　 　　（7） 〖14〗 For Input 〖15〗 Not EOF(1)） 2005年4月全国计算机等级考试二级VB笔试试卷及答案 一、选择题((1)~(35)每小题2分，共70分) 　　 　　下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。 　　 　　(1)数据的存储结构是指 　　 　　A) 存储在外存中的数据B) 数据所占的存储空间量 　

37、　 　　C) 数据在计算机中的顺序存储方式D) 数据的逻辑结构在计算机中的表示 　　 　　(2)下列关于栈的描述中错误的是 　　 　　A)栈是先进后出的线性表B) 栈只能顺序存储 　　 　　C) 栈具有记忆作用D) 对栈的插入与删除操作中，不需要改变栈底指针 　　 　　(3)对于长度为n的线性表，在最坏情况下，下列各排序法所对应的比较次数中正确的是 　　 　　A) 冒泡排序为n/2B) 冒泡排序为n 　　 　　C) 快速排序为nD) 快速排序为n(n-1)/2 　　 　　(4)对于长度为n的线性表进行顺序查找，在最坏情况下所需要的比较次数为 　　 　　

38、A) log2nB) n/2C) nD) n1 　　 　　(5)下列对于线性链表的描述中正确的是 　　 　　A)存储空间不一定是连续，且各元素的存储顺序是任意的 　　 　　B)存储空间不一定是连续，且前件元素一定存储在后件元素的前面 　　 　　C)存储空间必须连续，且前件元素一定存储在后件元素的前面 　　 　　D)存储空间必须连续，且各元素的存储顺序是任意的 　　 　　(6)下列对于软件测试的描述中正确的是 　　 　　A)软件测试的目的是证明程序是否正确 　　 　　B)软件测试的目的是使程序运行结果正确 　　 　　C)软件测试的目的是尽可能多地发现程序中的错

39、误 　　 　　D)软件测试的目的是使程序符合结构化原则 　　 　　(7)为了使模块尽可能独立，要求 　　 　　A)模块的内聚程度要尽量高，且各模块间的耦合程度要尽量强 　　 　　B)模块的内聚程度要尽量高，且各模块间的耦合程度要尽量弱 　　 　　C)模块的内聚程度要尽量低，且各模块间的耦合程度要尽量弱 　　 　　D)模块的内聚程度要尽量低，且各模块间的耦合程度要尽量强 　　 　　(8)下列描述中正确的是 　　 　　A) 程序就是软件 　　 　　B) 软件开发不受计算机系统的限制 　　 　　C) 软件既是逻辑实体，又是物理实体 　　 　　D) 软件是程

40、序、数据与相关文档的集合 　　 　　(9)数据独立性是数据库技术的重要特点之一。所谓数据独立性是指 　　 　　A) 数据与程序独立存放 　　 　　B) 不同的数据被存放在不同的文件中 　　 　　C) 不同的数据只能被对应的应用程序所使用 　　 　　D) 以上三种说法都不对 　　 　　(10) 用树形结构表示实体之间联系的模型是 　　 　　A) 关系模型B) 网状模型C) 层次模型D) 以上三个都是 11、在窗体（名称为Form1）上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。程序运行以后，如果在文本框中输入一个字符，

41、则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是： 　　 　　A)Private Sub Text1_Change() 　　 　　Command1.Caption=”计算机等级考试” 　　 　　End Sub 　　 　　B) Private Sub Command1_Click() 　　 　　Caption=”计算机等级考试” 　　 　　End Sub 　　 　　C) Private Sub Form1_Click() 　　 　　Text1.Caption=”计算机等级考试” 　　 　　End Sub 　　 　　D) Priva

42、te Sub Command1_Click() 　　 　　Text1.Text=”计算机等级考试” 　　 　　End Sub 　　 　　(12)设a=5b=4c=3d=2，下列表达式的值是 　　 　　3>2*b Or a=c And b<>c Or c>d 　　 　　A)1　　　　B)True　　　　C)False　　　　D)2 　　 　　(13)设a=”MicrosoftVisualBasic” 则以下使变量b的值为”VisualBasic”的语句是 　　 　　A)b=Left(a10) 　　 　　B)b=Mid(a10) 　　 　　C)b=Right(a

43、10) 　　 　　D)b=Mid(a1110) 　　 　　(14)假定有如下的窗体事件过程： 　　 　　Private Sub Form_Click() 　　 　　a$ = "Microsoft Visual Basic" 　　 　　b$ = Right(a$ 5) 　　 　　c = Mid(a$ 1 9) 　　 　　MsgBox a$ 34 b$ c$ 5 　　 　　End Sub 　　 　　程序运行后单击窗体，则在弹出的信息框中的标题栏中显示的信息是： 　　 　　A)Microsoft Visual 　　 　　B)Microsoft 　　 　

44、　C)Basic 　　 　　D)5 　　 　　(15)设a=”a”b=”b”c=”c”d=”d”执行语句x=Iif((ad)”A””B”)后，x的值为： 　　 　　A)”a” 　　 　　B)”b” 　　 　　C)”B” 　　 　　D)”A” 　　 　　(16)为了使命令按钮(名称为Command1)右移200，应使用的语句是 　　 　　A)Command1.Move -200 　　 　　B) Command1.Move 200 　　 　　C) Command1.Left= Command1.Left200 　　 　　D) Command1.Left=

45、 Command1.Left-200 　　 　　(17)在窗体上画一个文本框，然后编写如下事件过程： 　　 　　Private Sub Form_Click() 　　 　　x = InputBox("请输入一个整数") 　　 　　Print x Text1.Text 　　 　　End Sub 　　 　　程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容是： 　　 　　A)123 　　 　　B)456 　　 　　C)579 　　 　　D)123456 　　 　　（18）在窗体上画一个文本框和

46、一个计时器控件，名称分别为Text1和Timer1在属性窗口中把计时器的Interval属性设置为1000，Enabled属性设置为False程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序： 　　 　　Private Sub Command1_Click() 　　 　　Timer1._________ 　　 　　End Sub 　　 　　Private Sub Timer1_Timer() 　　 　　Text1.Text = Time 　　 　　End Sub 　　 　　在______处应填入的内容是 　　 　　

47、A)Enabled=True 　　 　　B)Enabled=False 　　 　　C)Visible=True 　　 　　D)Visible=False 　　 　　(19)假定在图片框Picture1中装入了一个图形，为了清除该图形（不删除图片框），应采用的正确方法是： 　　 　　A)选择图片框，然后按Del键 　　 　　B)执行语句Picture1.Picture=LoadPicture(“”) 　　 　　C)执行语句Picture1.Picture=”” 　　 　　D)选择图片框，在属性窗口中选择Picture属性，然后按回车键 　　 　　（20）在窗体

48、上画一个List1的列表框，一个名称为Label1的标签，列表框中显示若干个项目，当单击列表框中的某个项目时，在标签中显示被选中的项目的名称，下列能正确实现上述操作的程序是 　　 　　A) Private Sub List1_Click() 　　 　　Label1.Caption = List1.ListIndex 　　 　　End Sub 　　 　　B) Private Sub List1_Click() 　　 　　Label1.Name = List1.ListIndex 　　 　　End Sub 　　 　　C) Private Sub List1_Click(

49、) 　　 　　Label1.Name = List1.Text 　　 　　End Sub 　　 　　D) Private Sub List1_Click() 　　 　　Label1.Caption = List1.Text 　　 　　End Sub （21）在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程： 　　 　　Private Sub Command1_Click() 　　 　　Dim i As Integer x As Integer 　　 　　For i = 1 To 6 　　 　　If i = 1 Then x = i 　

50、　 　　If i <= 4 Then 　　 　　x = x 1 　　 　　Else 　　 　　x = x 2 　　 　　End If 　　 　　Next i 　　 　　Print x 　　 　　End Sub 　　 　　程序运行后，单击命令按钮，其输出结果为 　　 　　A)9 　　 　　B)6 　　 　　C)12 　　 　　D)15 　　 　　（22）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： 　　 　　Private Sub Command1_Click() 　　 　　c = "ABCD" 　　 　

51、　For n = 1 To 4 　　 　　Print _________ 　　 　　Next 　　 　　End Sub 　　 　　程序运行后，单击命令按钮，要求在窗体上显示如下内容： 　　 　　D 　　 　　CD 　　 　　BCD 　　 　　ABCD 　　 　　则在________处应填入的内容为 　　 　　A)Left(cn) 　　 　　B)Right(cn) 　　 　　C)Mid(cn1) 　　 　　D)Mid(cnn) 　　 　　(23)执行以下程序段 　　 　　Dim x As Integer i As Integer 　　

52、 　　x=0 　　 　　For i = 20 To 1 Step -2 　　 　　x = x i \ 5 　　 　　Next I 　　 　　后，x的值为 　　 　　A)16 　　 　　B)17 　　 　　C)18 　　 　　D)19 　　 　　（24）在Visual Basic工程中，可以作为启动对象的程序是 　　 　　A)任何窗体或标准模块 　　 　　B)任何窗体或过程 　　 　　C)Sub Main过程或其他任何模块 　　 　　D)Sub Main过程或任何窗体 　　 　　(25)假定建立了一个名为Command1的命令按钮数组，则

53、以下说法中错误的是 　　 　　A)数组中每个命令按钮的名称(名称属性)均为Command1 　　 　　B)数组中每个命令按钮的标题(Caption属性)都一样 　　 　　C)数组中所有命令按钮可以使用同一个时间过程 　　 　　D)用名称Command1(下标)可以访问数组中的每个命令按钮 (26)把窗体的KeyPreview属性设置为True然后编写如下事件过程: 　　 　　Private Sub Form_KeyPress(KeyAscii As Integer) 　　 　　Dim ch As String 　　 　　ch = Chr(KeyAscii) 　　

54、 　　KeyAscii = Asc(UCase(ch)) 　　 　　Print Chr(KeyAscii 2) 　　 　　End Sub 　　 　　程序运行后按键盘上的”A”键则在窗体上显示的内容是 　　 　　A)A 　　 　　B)B 　　 　　C)C 　　 　　D)D 　　 　　(27)在窗体上画一个命令按钮和一个文本框名称分别为Command1和Text1然后编写如下程序: 　　 　　Private Sub Command1_Click() 　　 　　a = InputBox("请输入日期(1~31)") 　　 　　t = "旅游景点:" _

55、 　　 　　& IIf(a > 0 And a <= 10 "长城" "") _ 　　 　　& IIf(a > 10 And a <= 20 "故宫" "") _ 　　 　　& IIf(a > 20 And a <= 30 "颐和园" "") 　　 　　Text1.Text = t 　　 　　End Sub 　　 　　程序运行后如果从键盘输入16则在文本框中显示的内容是: 　　 　　A)旅游景点：长城故宫 　　 　　B)旅游景点：长城颐和园 　　 　　C)旅游景点：颐和园 　　 　　D)旅游景点：故宫 　　 　　(28)在窗体上画一个名称为Label1

56、的标签然后编写如下事件过程: 　　 　　Private Sub Form_Click() 　　 　　Dim arr(10 10) As Integer 　　 　　Dim i As Integer j As Integer 　　 　　For i = 2 To 4 　　 　　For j = 2 To 4 　　 　　arr(i j) = i * j 　　 　　Next j 　　 　　Next i 　　 　　Label1.Caption = Str(arr(2 2) arr(3 3)) 　　 　　End Sub 　　 　　程序运行后单击窗体在标签中显示的内容

57、是 　　 　　A)12 　　 　　B)13 　　 　　C)14 　　 　　D)15 　　 　　(29) 在窗体上画一个名称为Comamnd1的命令按钮然后编写如下通用过程和命令按钮的事件过程: 　　 　　Private Function fun(ByVal m As Integer) 　　 　　If m Mod 2 = 0 Then 　　 　　fun = 2 　　 　　Else 　　 　　fun = 1 　　 　　End If 　　 　　End Function 　　 　　Private Sub Command1_Click() 　　 　

58、　Dim i As Integer s As Integer 　　 　　s = 0 　　 　　For i = 1 To 5 　　 　　s = s fun(i) 　　 　　Next 　　 　　Print s 　　 　　End Sub 　　 　　程序运行后单击命令按钮则窗体上显示的是: 　　 　　A)6 　　 　　B)7 　　 　　C)8 　　 　　D)9 　　 　　(30)阅读程序: 　　 　　Option Base 1 　　 　　Dim arr() As Integer 　　 　　Private Sub Form_Click() 　

59、　 　　Dim i As Integer j As Integer 　　 　　ReDim arr(3 2) 　　 　　For i = 1 To 3 　　 　　For j = 1 To 2 　　 　　arr(i j) = i * 2 j 　　 　　Next j 　　 　　Next i 　　 　　ReDim Preserve arr(3 4) 　　 　　For j = 3 To 4 　　 　　arr(3 j) = j 9 　　 　　Next j 　　 　　Print arr(3 2) arr(3 4) 　　 　　End Sub 　　 　　程序运

60、行后单击窗体输出结果为: 　　 　　A)21 　　 　　B)13 　　 　　C)8 　　 　　D)25 (31)在窗体上画一个名称为Command1的命令按钮然后编写如下程序: 　　 　　Option Base 1 　　 　　Private Sub Command1_Click() 　　 　　Dim c As Integer d As Integer 　　 　　d = 0 　　 　　c = 6 　　 　　x = Array(2 4 6 8 10 12) 　　 　　For i = 1 To 6 　　 　　If x(i) > c Then 　　

61、 　　d = d x(i) 　　 　　c = x(i) 　　 　　Else 　　 　　d = d - c 　　 　　End If 　　 　　Next i 　　 　　Print d 　　 　　End Sub 　　 　　程序运行后如果单击命令按钮则在窗体上输入的内容为 　　 　　A)10 　　 　　B)16 　　 　　C)12 　　 　　D)20 　　 　　(32)设有如下程序: 　　 　　Private Sub Command1_Click() 　　 　　Dim c As Integer d As Integer 　　 　　c =

62、4 　　 　　d = InputBox("请输入一个整数") 　　 　　Do While d > 0 　　 　　If d > c Then 　　 　　c = c 1 　　 　　End If 　　 　　d = InputBox("请输入一个整数") 　　 　　Loop 　　 　　Print c d 　　 　　End Sub 　　 　　程序运行后单击命令按钮如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9、0则输出结果是: 　　 　　A)12 　　 　　B)11 　　 　　C)10 　　 　　D)9 　　 　　(33)在窗体上

63、画一个名称为Command1的命令按钮和一个名称为Text1的文本框在文本框中输入以下字符串: 　　 　　Microsoft Visual Basic Programming 　　 　　然后编写如下事件过程: 　　 　　Private Sub Command1_Click() 　　 　　Open "d:\temp\outf.txt" For Output As #1 　　 　　For i = 1 To Len(Text1.Text) 　　 　　c = Mid(Text1.Text i 1) 　　 　　If c >= "A" And c <= "Z" Then 　　

64、 　　Print #1 LCase(c) 　　 　　End If 　　 　　Next i 　　 　　Close 　　 　　End Sub 　　 　　程序运行后单击命令按狃文件outf.txt中的内容是: 　　 　　A)MVBP 　　 　　B)mvbp 　　 　　C)M 　　 　　V 　　 　　B 　　 　　P 　　 　　D)m 　　 　　v 　　 　　b 　　 　　p 　　 　　(34)在窗体上画一个名称为Command1的命令按钮然后编写如下程序: 　　 　　Dim SW As Boolean 　　 　　Functio

65、n func(X As Integer) As Integer 　　 　　If X < 20 Then 　　 　　Y = X 　　 　　Else 　　 　　Y = 20 X 　　 　　End If 　　 　　func = Y 　　 　　End Function 　　 　　Private Sub Command1_Click() 　　 　　Dim intNum As Integer 　　 　　intNum = InputBox("") 　　 　　If SW Then 　　 　　Print func(intNum) 　　 　　End If 　　

66、 　　End Sub 　　 　　Private Sub Form_MouseDown(Button As Integer Shift As Integer X As Single Y As Single) 　　 　　SW = False 　　 　　End Sub 　　 　　Private Sub Form_MouseUp(Button As Integer Shift As Integer X As Single Y As Single) 　　 　　SW = True 　　 　　End Sub 　　 　　程序运行后单击命令按钮将显示一个输入对话框如果在对话框中输入25则程序的执行结果是: 　　 　　A)输出0 　　 　　B)输出25 　　 　　C)输出45 　　 　　D)无任何输出 　　 　　(35) 设有如下通用过程: 　　 　　Public Sub fun(a() As Integer x As Integer) 　　 　　F