VB选择题库(4)讲解学习.docx
文本预览下载声明
VB 选 择 题 库 ( 4)
程序运行后，文本框中显示的信息是：
S=O:a=O
Do
a=a+2:s=s+a
If s10 Then Exit Do
Loop Until a40
Text1.Text=Str(a+s) 18
程序运行后，单击窗体，则在窗体上显示的“ * ”的个数是 20
Private Sub Form_Click()
Fori = 1 To 9
For j = i - 1 To Step - 2
Print *
Next j
Next i
End Sub
14程序运行后，两次单击命令按钮后，在窗体上显示的结果是：
14
Private Sub Command1_Click()
Static s As Integer
For i = 5 To 1 Step -0.3
s = s + 1
Next i
Print s
End Sub
程序运行后，单击命令按钮，在文本框显示的信息是： 15
Dim s As Integer
Dim Flag As Boolean
Flag = True
s = 1
While s 100 And Flag
s = s + 7
If s Mod 5 = 0 Then Flag = False
Wend
text1.Text = Str(s)
程序运行后，单击窗体，则在窗体上显示的信息是： 5
Private Sub Form_Click()
s = 0
For i = 1 To 100
If i Mod 8 = 5 Then
Exit For
End If
i = i + 1
Next i
Print i
End Sub
程序运行后，则在窗体上显示的信息是： 1 2 3
Fori = 1 To 3
Forj = 1 To 3
arr1(i, j) = i
arr2(j, i) = arr1(i, j)
Next j
Next i
Fori = 1 To 3
Print arr2(2, i)
Next i
程序运行后，单击命令按钮，则在窗体上显示的信息是： 9
Dim arr()%
Private Sub Command1_Click()
ReDim arr(5)
Fori = 0 To 5
arr(i) = i
Next i
ReDim arr(8)
For Each x In arr
s = x + s + 1
Next x
Print s
End Sub
下面是窗体单击事件中的代码：
Private Sub Form_Click()
ifx y Then printxprintok!
End Sub
程序运行后，单击窗体，则在窗体上输岀的结果是： XY OK!
下面是窗体单击事件中的代码：
Private Sub Form_Click()
ifx y Then printxy
End Sub
程序运行后，单击窗体，则在窗体上输岀的结果是： xy
下面是窗体单击事件中的代码：
Private Sub Form_Click()
if not x y Then printxy
printok!
End Sub
程序运行后，单击窗体，则在窗体上输岀的结果是： ok!
下面是窗体单击事件中的代码：
Private Sub Form_Click()
if not x y or true Then printxy
printok!
End Sub
程序运行后，单击窗体，则在窗体上输岀的结果是:
下面是窗体单击事件中的代码：
Private Sub Form_Click()
if not x y and true Then printxy
prinPok!
End Sub
程序运行后，单击窗体，则在窗体上输岀的结果是:
下面是窗体单击事件中的代码：
Private Sub Form_Click()
ifxy Then printxy
End Sub
程序运行后，单击窗体，则在窗体上输岀的结果是:
下面是窗体单击事件中的代码：
Private Sub Form_Click()
if 99 11111111111 or true Then
printxy else printxy
End Sub
程序运行后，单击窗体，则在窗体上输岀的结果是:
下面是窗体单击事件中的代码：
Private Sub Form_Click()
if 99 11111111111 and true Then
printxy else printxy
End Sub
程序运行后，单击窗体，则在窗体上输岀的结果是:
下面是窗体单击事件中的代码：
Private Sub Form_Click()
if x y and true Then
printxy else printxy
End Sub
程序运
显示全部