1.当运行程序时，系统自动执行启动窗体的某个事件过程。这个事件过程是（ ） A)Load B)Click C)Unload D)GotFocus
2.无论何控件，都具有一个共同属性。这个属性是（ ） A)Text B)Font C)Name D)Caption
3.在一行内写多条语句时，语句之间要用某个符号分隔。这个符号是（ ） A)， B)； C)、 D)：
4.表达式3∧2*2+3 MOD 10\\4的值是（ ） A)18 B)1 C)19 D)0
5.下面的变量名合法的是（ ）
A)k_name B)k ame C)name D)k-name
6.以下能正确定义数据类型TelBook的代码是 （ ） A）.Type TelBook Name As String*10 TelNum As Integer End Type
B）.Type TelBook Name As String*10 TelNum As Integer End TelBook
C）.Type TelBook Name String*10 TelNum Integer End Type TelBook D）.Typedef TelBook Name String*10 TelNum Integer End Type
7.以下声明语句中错误的是 （ ） A）.Const var1=123 B）.Dim var2=′ABC′ C）.DefInt a-z
D）.Static var3 As Integer
8.设a=2,b=4,c=6，下列表达式的值为真的是（ ）
A)a>b And cb Or cb Xor cb Eqv c A) “计算考试” B) “计机考试” C) “计算等级” D) “计机级试” 10.下列表达式的值为2123的是（ ） A) Val(\"123asd\") & 2000 B) Val(\"123asd\") + 2000 C) Str(123) & \"2000\" D)Str(123)+\"2000\" 11.下列叙述不正确的是（ ） A)InputBox函数返回值为字符型 B)MsgBox函数返回值为所单击按钮的键值 C)MsgBox语句返回值为所单击按钮的键值 D)Shell函数返回值为所执行文件的工作代码 12.下列叙述不正确的是（ ） A)命令按钮的默认属性为Caption B)标签的默主属性为Caption C)复选框的默认属性为value D)滚动条的默认属性为value 13.下列各程序段中，正确的是（ ） A)If 10 < 10 Then a=a+10 B)If a> 10 Then a= a+1 Else a= a+ 5 End If C)If a <=10 Then a=a + 1 Else End If D)If a <=10 Then a=a + 1 Else If a <=20 Then a=a + 10 End If 14.在窗体上画一个命令按钮，名称为Command1。然后编写如下程序： Private Sub Command1_Click() For I= 1 to 2 For J=1 to I Print String (I,\"Hello\"); Next J Print Next I End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是（ ） A)H HH HHH B)H HHHH C)HHHHH D)H HH HHHH 15.引用列表框（List1）最后一个数据项应使用的表达式是（ ） A)List1.List(List1.ListCount) B)List1.List(List1.ListCount-1) C)List1.List(ListCount) D)List1.List(ListCount-1) 16.有如下程序： Option Base 1 Private Sub Command1_Click() Dim x,y(3,3) x = Array(1,2,3,4,5,6,7,8,9) For i = 1 To 3 For j = 1 To 3 y(i,j) = x(i*j) If(j > = i) Then Print y(i,j); Next j Print Next i End Sub 运行时输入出的结果是（D） A)1 2 3 2 4 6 4 6 8 B)1 2 3 2 4 6 3 6 9 C)1 2 4 3 6 9 D)1 2 3 4 6 9 17.如果要在菜单中添加一个分隔线，则应将其Caption属性设置为 （ ） A.= B.* C.& D.- 18.执行语句Open″Tel.dat″For Random As#1Len=50后，对文件Tel.dat中的数据能够执行的操作是 （ ） A.只能写，不能读 B.只能读，不能写 C.既可以读，也可以写 D.不能读，不能写 19.在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程: Private Sub Command1_Click（）n=Text1.Text SelectCase n Case1To20 x=10 Case2，4，6 x=20 Case Is<10 x=30 Case10 x=40 End Select Text2.Text=x End Sub 程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是（ ） A.10 B.20 C.30 D.40 20．在MsgBox函数中哪一个参数是必须的？（ ） A. Prompt B.Buttons C. Title D. Context 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.1 4 7 D.无数据输出 22.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程: Private Sub Command1_Click（） Dim a As Integer，s As Integer a=8:s=1 Do s=s+a a=a-1 Loop While a<=0 Print s;a End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是 （ ） A.7 9 B.34 0 C.9 7 D.死循环 23.设有如下通用过程: Public Function f（x As Integer） Dim y As Integer x=20y=2 f=x*y End Function 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程: Private Sub Command1_Click（） Staic x As Integer x=10;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的文本框和一个名称为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.Cls 方法可清除窗体或图片框中的信息是（ ） A)Picture属性设置的背景图案 B)在设计时放置的控件 C)程序运行时产生的图形和文字 D)以上方法都对 26.下列数组声明正确的是（ ） A)n=5 Dim a(1 to n) As Integer B)Dim a(10) As Integer ReDim a(1 to 12) C)Dim a() As Single ReDim a(3 ,4) As Integer D)Dim a() As Integer n=5 ReDim a(1 to n) As Integer 27.下列控件中，没有Caption属性的是（ ） A)框架 B)列表框 C)复选框 D)单选按钮 28.如下程序段定义了学生成绩的记录类型，由学号、姓名、三门课程成绩(百分制)组成。 Type Stud no As Integer name As String * 10 score (1 to 3) As Single End Type 若对某个学生的各数据项进行赋值，下列程序段正确的是（ ） A)Dim S As Stud Stud.no =0201 Stud.name=\"李明\" Stud.score=78,88,96 B)Dim S As Stud S.no =0201 S.name=\"李明\" S.score=78,88,96 C)Dim S As Stud S.no =0201 S.name=\"李明\" S.score(1)=78 S.score(2)=88 S.score(3)=96 D)Dim S As Stud Stud.no =0201 Stud.name=\"李明\" Stud.score(1)=78 Stud.score(2)=88 Stud.score(3)=96 29.如果Form1是启动窗体，并且Form1的Load事件过程中有Form2.Show，则程序启动后（ ） A)发生一个运行时错误 B)发生一个编译时错误 C)在所有的初始化代码运行后Form1是活动窗体 D)在所有的初始化代码运行后Form2是活动窗体 30.如果列表框（List1）中没有被选定的项目，则执行List1.RemoveItem List1.ListIndex语句的结果是（ ） A)移去第一项 B)移去最后一项 C)移去最后加入列表一项 D)以上都不对 二、填空： 1. 在窗体上画一个命令按钮，名称为Command1,Caption属性设置为“确定”，画3个标签Label1、Label2和Label3，在label1中输入“这是一个绝对值的程序”，在Label2中输入“请输入x的值”，Label3将输出本题 结果，再画一个文体框，名称为Textl,用于输入x的值。当在文本框Textl输入一个负数，然后“确定”按钮，则在标签Label3中将输出该数的绝对值及信息，程序有运行情况如图2-3所示。请在[1]和[2]处填入适当的内容，将程序补充完整。（要求不用取绝对值函数） Private Sub Commandl_Click() Dim x As Single x=Val(Text1.Text) Label3.Caption=\"x=&x If x<0 Then[1] Label3.Caption=[2]+\的绝对值是\" &x End Sub 2. 组合框是组合了文本框和列表框的特性而组成的一种控件。[3]风格的组合框不允用户输入列表框中没有的项。 3. 在Visual Basic中，除了可以指定某个窗体作为启动对象外，还可以指定[4]为启动对象。 4.Visual Basic 提供了三种控件，即[5]、[6]和可插入对象。 5．本程序的功能是利用随机数函数模拟投币，方法是：每次随机产生一个0或1的整数，相当于一次投币，1代表正面，0代表反面。在窗体上有三个文本框，名称分别是Text1、Text2、Text3，分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数。程序运行后，在文本框Text1中输入总次数，然后单击“开始”按钮，按照输入的次数模拟投币，分别统计出现正面、反面的次数，并显示结果。以下是实现上述功能的程序，请填空。 Private Sub Command1_Click() Randomize n=CInt(Text1.Text) n1=0 n2=0 For i=1 To__[7]__ r=Int(Rnd*2) If r=___[8]____Then n1=n1+1 Else n2=n2+1 End If Next Text2.Text=n1 Text3.Text=n2 End Sub 参考答案 一、(1)A (2)C (3)D (4)C (5)A(6)A (7)B (8)D (9)B (10)B (11)BC (12)A (13)C(14)B (15)B (16)D(17)D (18)C (19)A (20)A (21)B (22)C (23)C (24)A (25)C (26)D (27)B(28)C(29)C (30)D 二、 [1]x=-x [2]Label3.Caption [3]下拉式列表框 [4]Main子过程 [5]标准控件（内部控件） [6]ActiveX控件 [6]n [7] 1 因篇幅问题不能全部显示，请点此查看更多更全内容