内容发布更新时间 : 2024/5/16 2:52:50星期一 下面是文章的全部内容请认真阅读。
Next j
29下列程序段的运行结果是：
Sub Form1_Click()
Dim n as Integer
I=21:n=3
Do While I>n
I=I-n
Loop
Print I
End Sub
打印结果_____。
30Visual Basic中的常量分为两种，一种是直接常量，一种是____常量。
31Visual Basic 提供了列表框控件， 当列表框中的项目较多、超过了列表框的长度时， 系统会自动在列表框边上加一个______。 32一个程序最多可以有________窗体。
33将一般窗体转换为MDI窗体的子窗体时要把MDIChild属性的值设置为_______。 34要选择多个不相邻的控件，按住_______或SHIFT键不放，再单击要选择的控件。 35表达式：\的值是_______。
36______属性用来设置窗体的标题。它确定和改变显示在窗体的标题栏中的文本。
37假定有一个文本框，其名称为Textl，为了使该文本框具有焦点，应执行的语句是______。 38执行下面的程序段后，s的值为____。 S=5
For I=2.6 To 4.9 Step 2
s=s+1
Next I
39表达式“12345”<>“12345”&“ABC”的值是_____。 40下列程序用来计算1+2+3……+10的值，请补充完程序。
Dim t,k as single
K=0
DO While k<10
K=k+1:______
loop
print t
41下列程序段的执行后输出的结果为_______。
K = 1
For I = 1 To 3
A = I ^ I ^ K
Next I
Print A
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
43执行inputbox函数后，会产生一个对话框，对话框上通常有两个按纽，它们是_____按纽和取消按钮。
44下列程序的执行结果是_____。
M1 = 1:m2 = 1
Do While m2<>6
m1 = m1*m2 : m2 = m2+1 Loop
Print m1
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
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 48
假设有一复选框控件，名为Check1，在程序中，我们用“check1.value=1”语句设置Value属性的值，则该程序执行后，复选框处于____状态。 49激活属性窗口的快捷键是______。 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
51下列程序段的运行后t的值为______。
Dim t,k as single
k=5 : t=1
do While k>=-1
t=t*k : K=K-1
loop
52执行语句“a=6=5”后，变量a的值为______。 53下面程序段的输出结果是_____。
P=0:s=0 Do