VB期末测试题
一、填空题：（10 * 2 = 20）
1、VB中的整型数在计算机中占 个字节，表示数的范围是 。
2、变量命名规则要求变量名必须以 开头，其后可由字母、数字、下划线组成，长度不超过 个字符。
3、CHR（ASC（“ABCD”））的值是 LOG（EXP（3））的值是
4、RND函数产生的随机数区间是
5、逻辑运算符中，运算级别最高的是
6、语句X=X+1的含义是
7、Print方法具有 和 功能。
8、语句X = 5 = 3中，第一个“=”是 号，第二个“=”是 号
9、要定义一个单精度符号常量PI，其值为3.1416应该使用的语句是：
10、有如下语句：Dim x as Integer，y ，z as String * 8，则声明的变量x，y，z的类型分别是 型、 型和 型。
二、选择题（）
3. 以下程序的输出结果是______。8
Private Sub Command1_Click()
a=100
Do
s=s+a
a=a+1
Loop Until a>100
print a
End Sub
A.100 B.120 C.201 D.101√
4. 以下程序的循环次数是______。11
Private Sub Command1_Click()
For j=8 To 35 Step 3
Print j;
Next j
End Sub
A.10 ‘int(35-8)/3+1√ B.9 C.27 D.28
5. 执行下面程序段后，变量a的值为______。20
For I=1 To 3
For j=1 To I
For k=j To 3
a=a+1
Next k
Next j
Next I
A.3 B.9 C.14√ D.21
6. 执行下面程序段后，变量x的值为______。20
x=5
For I=1 To 20 step 2
x=x+I\5
Next I
A.21√ B.22 C.23 D.24
7. 当输入4时，以下程序的输出结果是______。7
Private Sub Command1_Click()
x=InputBox(x)
If x^2<15 Then y=1/x
If x^2>15 Then y=x^2+1
Print y
End Sub
A.4 B.17√ C.18 D.0.25
8. 运行下面程序后，在弹出的消息窗口中显示的是______。3
Private Sub Form_Click()
Dim counter
counter=0
While counter<20
counter=counter+1
Wend
MsgBox counter
End Sub
A.0 B.21 C.20√ D.19
9. 运行下面程序后，在窗体中显示的是______。4
Private Sub Form_Click()
a$="*": b$="$"
For k=1 To 3
x$=String$(Len(a$)+k,b$) ‘指定长度重复字符的字符串。
Print x$;
Next k
Print
End Sub
A.、*** ** **** B.*$*$*$ C.1*$2*$3*$ D.、$$$$$$$$$√
10. 下面程序运行后，单击命令按钮，在两个文本框中显示的值分别为______。7
Private Sub Command1_Click()
x=0
Do While x<50
x=(x+2)*(x+3)
n=n+1
Loop
Text1.Text=Str(n)
Text2.Text=Str(x)
End Sub
A.1和0 B.2和72√ C.3和50 D.4和168
11. 执行下面的程序段后，I的值为______。3
s = 2
For I = 3.2 To 4.9 Step 0.8
s = s + 1
Next I
A.6.4 B.5.6√ C.4.8 D.7.2
12. 执行下面的程序段后，变量S的值为______。3
S＝5
For I ＝2.6 To 4.9 Step 0.6
S=S+1
Next I
A.7 B.8 C.9√ D.10
13. 在窗体中添加一个文本框（其中Name属性为Text1）,然后编写如下代码：2
Private Sub Form_click()
Text1.Text = ""
Text1.SetFocus
For I = 1 To 10
Sum = Sum + I
Next I
Text1.Text = Sum
End Sub
上述程序运行后，单击窗体，则运行的结果______。
A.在文本框Text1中输出55√ B.在文本框Text1中输出0
C.出错 D.在文本框Text1中输出不定值
14. 运行下面程序后，在弹出的消息窗口中显示的是______。2
Private Sub Form_Click()
k=0
Do While k<70
k=k+2
k=k*k+k
a=a+k
Loop
MsgBox a
End Sub
A.64 B.72 C.78√ D.148
1. 语句Dim a(3,-3 to 0,3 to 6)声明的数组a有______元素。3
A.12 B.27 C.64√ D.80
2. 用语句Dim a(-3 to 5) As Integer定义的数组的元素个数是______。6
A.7 B.8 C.9√ D.10
1. 以下程序的输出结果是______。12
Option Base 1
Private Sub Command1_Click()
Dim a(10),p(3) As Integer
k=5
For I=1 To 10
a(I)=I
Next I
For I=1 To 3
p(I)=a(I*I)
Next I
For I=1 To 3
k=k+p(I)*2
Next I
Print k
End Sub
A.33√ B.28 C.35 D.37
2. 运行下面程序后，在弹出的消息窗口中显示的是______。
Private Sub Form_Click()
Dim Week,Day
Week=Array("Mon","Tue","Wed","Thu","Fri","Sat","Sun")
Day=Week(2)
Day=Week(4)
MsgBox Day
End Sub
A.Fir√ B.Tue C.Wed D.Thu
1. 下列控件中，没有Caption属性的是＿＿＿。4
A.框架 B.列表框√ C.复选框 D.单选按钮
2. 假如列表框（List1）有4个数据项，那么把数据项“China”添加到列表框的最后，应使用＿＿＿语句。6
A. List1.AddItem3，”China” B.List1.AddItem”China”，List1.ListCount-1
C.List1.AddItem”China”，3 D.List1.AddItem”China”，List1.ListCount√
3. 如果列表框（List1）中只有一个项目被用户选定，则执行Debug．Print List1Selected（List1.ListIndex）语句的结果是＿＿＿。14
A.在Debug窗口输出被选定的项目的索引值 B.在 Debug窗口输出True√
C.在窗体上输出被选定的项目的索引值 D.在窗体上输出True
版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。
发表评论