答案：符号 31) Visual Basie 提供了列表框控件， 当列表框中的项目较多、超过了列表框的长度时， 系统会自动在列表框边上加一个______。 答案：滚动条 32) 一个程序最多可以有________窗体。 答案：255
33) 将一般窗体转换为MDI窗体的子窗体时要把MDIChild属性的值设置为_______。 答案：TRUE
34) 要选择多个不相邻的控件，按住_______或SHIFT键不放，再单击要选择的控件。 答案：CTRL
35) 表达式：\的值是_______。 答案：FALSE 36) ______属性用来设置窗体的标题。它确定和改变显示在窗体的标题栏中的文本。 答案：CAPTION
37) 假定有一个文本框，其名称为Textl，为了使该文本框具有焦点，应执行的语句是______。 答案：TEXT1.SETFOCUS 38) 执行下面的程序段后，s的值为____。 S=5
For I=2.6 To 4.9 Step 2 s=s+1
Next I 答案：7
39) 表达式“12345”<>“12345”&“ABC”的值是_____。 答案：TRUE 40) 下列程序用来计算1+2+3??+10的值，请补充完程序。 Dim t,k as single K=0
DO While k<10 K=k+1:______ loop
print t 答案：T=T+K
41) 下列程序段的执行后输出的结果为_______。 K = 1
For I = 1 To 3 A = I ^ I ^ K Next I
Print A 答案：27
42) 下列程序是用来计算1＋2＋3??＋10的程序段，请补充完该程序。 Dim I, s, k As Integer s = 0: k = 0 For____To -1
k = k+1:s = s+k Next I
Print s 答案：J=-10
43) 执行inputbox函数后，会产生一个对话框，对话框上通常有两个按纽，它们是_____按纽和取消按钮。 答案：确定 44) 下列程序的执行结果是_____。 M1 = 1:m2 = 1 Do While m2<>6
m1 = m1*m2 : m2 = m2+1 Loop
Print m1 答案：120
45) 下列程序的执行结果是_____。 Private Function P(N As Integer) For I = I To N SUM = SUM + 1 Next I P = SUM End Function
Private Sub Command1_Click() S = P(1) + P(2) + P(3) + P(4) Print S;
End Sub 答案：14
46) 货币型数据的类型标识符为______。 答案：@
47) 以下程序用来输出1到100所有奇数的和，请补充完该程序。 Private Sub Command3_Click() Dim s As Long Dim x As Integer s = 0
For x=1 to 100 step____ s = s + x Next x Print s
End Sub 答案：2
48) 假设有一复选框控件，名为Check1，在程序中，我们用“check1.value=1”语句设置Value属性的值，则该程序执行后，复选框处于____状态。 答案：选中
49) 激活属性窗口的快捷键是______。 答案：F4 50) 下列程序的执行结果是_______。 A = 75
If a>60 Then I = 1
ElseIf a>70 Then I = 2
ElseIf a>80 Then I = 3
ElseIf a>90 Then I = 4 End If
Print I 答案：1
51) 下列程序段的运行后t的值为______。 Dim t,k as single k=5 : t=1
do While k>=-1 t=t*k : K=K-1 loop 答案：0
52) 执行语句“a=6=5”后，变量a的值为______。 答案：FALSE 53) 下面程序段的输出结果是_____。 P=0:s=0 Do
p = p+2 s = s+p
Loop While p<11
Print \答案：s=42 54) 下面程序段的输出结果是______。 For X=1.5 To 5 Step 5 Print X;
Next X 答案：1.5
55) 执行下面的程序段后，s的值为______。 S=5
For I=2.6 To 4.9 Step 0.6 s=s+1
Next I 答案：9
56) 表达式Fix(-32.68)+Int(-23.02)的值为______。 答案：-56 57) 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click()
a=InputBox(\请输入一个整数\ b=InputBox(\请输入一个整数\Print a+b End Sub
程序运行后，单击命令按钮，在输入对话框中分别输入321和456，输出结果为____。 答案：321456
58) 执行下面的程序段后，b的值为_____。 A=300:b=20
a=a+b:b=a-b:a=a-b 答案：300
59) Visual Basic 的对象是________和_______的总称。 答案：窗体#控件
60) 图片框的默认属性为_______（提示：该题只填写英文，如Name事件，只写Name即可）。 答案：PICTURE
61) 滚动条响应的重要事件有_______和_______（提示：该题只填写英文，如Click事件，只写Click即可）。 答案：CHANGE#SCROLL 62) 下列程序段执行后x的值是______。 X=100 : y=50
if x>y then x=x-y else x=x+y 答案：50
63) 表达式32/2^3-3*2^2+4^2的值是_______。 答案：8
64) 下列程序用来将变量X，Y的值互换，请补充完程序（提示：该题答案中不要出现空格）。
T=Y:______:X=T 答案：Y=X
65) 有如下程序，该程序的运行结果是______。 A=20 : b=10
print a>b 答案：TRUE
66) 表达式15+3*3/9*5\\5 mod 10 的值是______。 答案：16 67) 有如下程序，该程序的运行后输出的结果是______。 Private sub Command1_Click() I=\
Mid(I,4,3)=\ Print I
End Sub 答案：AAABBB
68) 有一数组定义语句：dim M(-2 to 1) as string，该语句定义的数组M中包含____个元素。 答案：4
69) 设有数组声明语句：Option base 1 dim A(3,-2 to 1)，则数组A中有_____个元素。 答案：12
70) 有数组定义语句：dim I(99,99) as Integer，则数组I中共包含有______个元素。 答案：10000
71) 下面程序段执行后的结果是_____。 X=10
For I=6.3 to 4.9 Step -0.3 x=x-1 Next
Print x 答案：5
72) 表达式：5\\2*3的值是______。 答案：0
73) 表达式：Mid(\的值是______。 答案：HAI 74) 表达式Int(Rnd(0)+1)+Int(Rnd(1)-1)的值是_____。 答案：0
75) VB程序设计中三种基本结构分是：_______结构、选择结构和_______结构。 答案：顺序#循环
76) ______是构成文件的最基本的单位。 答案：字符
77) 顺序文件与随机文件相比较，占用内存资源较小的文件是______文件。 答案：随机
78) 随机文件是以_______为单位读写，二进制文件以_______为单位读写。 答案：纪录#字节
79) 随机函数Rnd(X)，当X=_____时返回最近一次调用Rnd函数生成的随机数。 答案：0
80) 语句x=inputbox(\请输入数据\输入12345,则x的值为______类型的数据（提示：例如整型，Int；字符型，String）。 答案：STRING
81) x,y中至少有一个变量小于变量z的VB表达式为x 82) 以下程序段的输出结果是____。 Num=0 While num<=2 num=num+1 Wend Print num 答案：3 83) 如果要将某个菜单项设计为分隔线，则该菜单项的标题应设置为______。 答案：- 84) 在Visual Basic中按文件的访问方式不同, 可以将文件分为顺序文件、随机文件和______。 答案：二进制文件 85) 如果有三个单选按钮直接画在窗体上，另有四个单选按钮画在框架中，则运行时，可以同时选中______个选项按钮（提示：该题答案不能出现汉字）。 答案：2 86) 以下语句的执行结果是____。 I = Format(5459.4, \ Print I 答案：5,459.40 87) ______属性为列表框中的每个列表项设置一个对应的数值，它是一个整数数组，数组大小与列表项的个数一致。 答案：LIST 88) 在窗体上画一个命令按钮(其Name属性为CommAnd1)，然后编写如下代码： Private Sub CommAnd1_Click() Dim M(10) As Integer For k=1 To 10 M(k)=12-k Next k x=6 Print M(2+M(x)) End Sub 程序运行后，单击命令按钮，输出结果是______。 答案：4 89) 当程序开始运行，要求窗体中的文本框呈现空白，则在设计时，应当在此文本框的属性窗口中，把此文本框的____属性设置为空。 答案：TEXT 90) 将数据从内存写入随机文件，写入语句的格式是______[#]文件号，[记录号]，自定义变量名。 答案：PUT 二、 填空题（每空2分，共20分） 1．代数式 的Visual Basic 表达式是 sqr((x^3+exp(-6)*log(y))*atn(a*3.14159/180)/(x*x+y*y)) 2.设x=2,y=4,a=4,b=6,表达式 （a>x Xor b 5. 语句Line(1000,1000)-Step(2000,1500),vbRed,BF的含义是：在窗体上绘制以角点为（2000，2000）和（4000，3500）的红色实心的矩形。 6．用随机函数产生10个100～500的整数，其表达可为：for I=1 to 10 a(i)=100+int(400*rnd) next I。 7．当x=2时，语句if x=2 then Print x=2 的结果值是 True。