VB填空题题库
1) 假定当前日期为2002年7月12日，星期六，则执行语句Print day(now)vb编程基础知识题库后，输出结果是______（提示：不能出现符号#）。
答案：12
2) 语句a%=3.14156:Print a%的输出结果是______。
答案：3
3) 以下循环的执行次数是_____。
K=0
Do While k<=10
k=k+1
Loop
答案：11
4) Fix(5.8)的值是______
答案：5
5) 下列程序段的执行后输出的结果为_____。
I=4:A=5
Do
I=I+1:A=A+2
Loop Until I>=7
Print "A=";A
答案：A=11
6) 表达式3/6*5的值是_______。
答案：2.5
7) 下列程序的作用是将三个数按从大到小进行排序，请补充完该程序。
If a<b Then
d=a:a=b:b=d
EndIf
If a<c Then
d=a:a=c:c=d
EndIf
If_____Then
d=b:b=c:c=d
EndIf
Print a,b,c
答案：b<c
8) 在Select case 结构中应至少包含一个______子句。
答案：CASE
9) 窗体的属性可在属性窗口中设置，也可在程序中用______语句动态设置。
答案：赋值
10) 有如下Sub过程:
Sub ind(a As Integer)
Static x As Integer
x = x+a
Print x;
End Sub
以下是调用它的事件过程，程序运行后，单击命令按钮Command1，输出结果为______。
Private Sub Command1_Click()
Ind(2)
End Sub
答案：2
11) 逻辑常量值为TRUE或_______。
答案：FALSE
12) 货币类型的数据小数点的位置是固定的，精确到小数点后_____位。
答案：4
13) 表达式（2+8*3）/2的值是______。
答案：13
14) 以下程序用来判断一个整数X是否为偶数，并将其中的偶数在窗体上显示，请补充完该程序。
If X___2=____ Then Print X
答案：MOD#0
15) 当对窗体中的对象进行_____操作时，Visual Basic 就会显示该对象的代码窗口。
答案：双击
16) 下列程序的执行结果是____。
T = O : m = 1 : Sum = 0
Do
t = t + m : Sum = Sum + t : m = m + 2
Loop While m <= 9
Print Sum
答案：55
17) 一组具有相同名称，不同下标的下标变量称为______。
答案：数组
18) 给定年份，下列程序用来判断该年是否闰年，请补充完该程序。
提示：闰年的条件是年号可以被4整除但不能被100整除，或者能被400整除。
Private Sub Command6_Click()
Dim y As Integer
y=InputBox("请输入年号")
If(y Mod 4=0______y Mod 100<>0) or (y Mod 400=0) Then
Print "是闰年"
Else Print "是普通年份"
End If
End Sub
答案：AND
19) 设a=2,b=3,c=4,d=5下列a>b and c<>d or c=a表达式的值是_____。
答案：FALSE
20) 表达式："1" & "2" = "12"的值是_______。
答案：TRUE
21) 为了能自动放大或缩小图象框中的图形以与图象框的大小相适应,必须把该图象框的Stretch属性设置为______。
答案：TRUE
22) 根据变量的定义位置和所使用的变量定义语句的不同，VB中的变量可以分为3类，即_____、模块变量和全局变量。
答案：局部变量
23) 表达式3>4 and 7=5的值是______。
答案：FALSE
24) 以下的程序用来输出100到2000间不能被3整除的数字，请补充完该程序。
Private Sub Commmand1_Click()
Dim x As Integer
x = 100
Do Until x > _____
If x Mod 3 <> 0 Then
Print x
End If
x = x + 1
Loop
End Sub
答案：2000
25) 下列程序段的执行时，共循环____次。
For a=0 To 1
For b=1 To 2
For c=1 To 3
I=I+1
Next c
Next b
next a
答案：12
26) 以下程序计算2到50间所有偶数的和，请补充完该程序
Sub mult()
Dim Sum As Integer
Sum=0
Dim I as integer
For___to 50
If I MOD 2=___Then___
Next I
Print sum
End Sub
答案：I=2#0#SUM=SUM+I
27) A=7,B=3,C=4,则表达式 A MOD 3+B^3/C\5的值为____。
答案：2
28) 下列循环语句，要求和数达到10既停止累加，退出循环，请补充完程序。
For j=1 to 10
s=s+j
If s>=10 then Exit ____。
Next j
答案：FOR
29) 下列程序段的运行结果是：
Sub Form1_Click()
Dim n as Integer
I=21:n=3
Do While I>n
I=I-n
Loop
Print I
End Sub
打印结果_____。
答案：3
30) Visual Basic中的常量分为两种，一种是直接常量，一种是____常量。
答案：符号
31) Visual Basic 提供了列表框控件， 当列表框中的项目较多、超过了列表框的长度时， 系统会自动在列表框边上加一个______。
答案：滚动条
32) 一个程序最多可以有________窗体。
答案：255
33) 将一般窗体转换为MDI窗体的子窗体时要把MDIChild属性的值设置为_______。
答案：TRUE
34) 要选择多个不相邻的控件，按住_______或SHIFT键不放，再单击要选择的控件。
答案：CTRL
35) 表达式："1"+"2"="3"的值是_______。
答案：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
答案：I=-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 = 1 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
答案：10
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
版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。
发表评论