在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() a=0 For i=1 To 3
在窗体上画一个命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
a=0
For i=1 To 3
For j=1 To 4
If j Mod 2<>0 Then
a=a+1
End If
a=a+1
Next j
Next i
Print a
End Sub
程序执行后,单击命令按钮,输出结果是【 】。
在窗体上画一个命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
a=0
For i=1 To 3
For j=1 To 4
If j Mod 2<>0 Then
a=a+1
End If
a=a+1
Next j
Next i
Print a
End Sub
程序执行后,单击命令按钮,输出结果是【 】。
在窗体上画一个名称为Command1的命令按钮,一个名称为Label1的标签,然后编写如下事件过程: Private Sub Command1_Click() s=0 For i=1 To 15 x=2*i-1 if x Mod 3=0 Then s=s+1 Next i LabeCaption=s End Sub 程序运行后,单击命令按钮,则标签中显示的内容是______。
A.1
B.5
C.27
D.45
Private Sub Command1_Click()
s = 0
For i = 0 To 15
X = 2 * i - 1
If X Mod 3 = 0 Then s = s + 1
Next i
Label
1.Caption = s
End Sub
程序运行后, 单击命令按钮, 则标签中显示的内容为
A.1
B.5
C.27
D.45
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:
Private Sub Command1_Click()
Static A As Integer
Static B As Integer
Cls
B=2
B=B+3
A=3+A
printA,B
EndSub
程序运行时,3次单击命令按钮Command1后,窗体上显示的结果为()。
A、35
B、66
C、95
D、33
Private x As Integer
Private Sub Command1_Click()
Static y As Integer
Dim z As Integer
n = 10
z = n + z
y = y + z
x = x + z
Label
1.Caption = x
Label
2.Caption = y
Label
3.Caption = z
End Sub
运行程序后, 连续三次单击命令按钮后, 则三个标签中显示的内容分别是
A.10 10 10
B.30 30 30
C.30 30 10
D.10 30
Private Sub Command1_Click()
Dim a (10,10) As Integer
Dim i As Integer, j As Integer
For i = 1 To 3
for j = 1 To 3
a (i, j) = (i – 1) * 3 + j
Print a(i, j );
next j
next i
End Sub
程序运行后, 单击命令按钮, 窗体上显示的是______
A.1 2 3 2 4 6 3 6 9
B.2 3 4 3 4 5 4 5 6
C.1 4 7 2 5 8 3 6 9
D.1 2 3 4 5 6 7 8 9
Private x As Integer
Private Sub Command1_Click()
x = 5: y = 3
Call Proc(x, y)
Label
1.Caption = x
Label
2.Caption = y
End Sub
Private Sub Proc(ByVal a As Integer, ByVal b
As Integer)
x = a * a
y = b + b
End Sub
运行程序后, 则两个标签中显示的内容分别是
A.5和3
B.25和3
C.25和6
D.5和6
写如下事件过程:
Private Sub Command1_Click()
Dim array1(10, 10) As Integer
Dim i As Integer, j As Integer
For i = 1 To 3
for j = 2 To 4
array1(i, j) = i + j
next j
next i
Text1.Text = arrry1(2, 3) + array(3, 4)
End Sub
程序运行后, 单击命令按钮, 在文本框中显示的值是______
A.12
B.13
C.14
D.15
设窗体上有一个名为Text1的文本框,并编写如下程序:
Private Sub Form_Load()
Show
Text1.Text = ""
Text1.SetFocus
End Sub
Private Sub Form_MouseUp(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
Print "程序设计"
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Print "Visual Basic";
End Sub
程序运行后,如果在文本框中输入字母“a”,然后单击窗体,则在窗体上显示的内容是()。
A.Visual Basic
B.程序设计
C.Visual Basic程序设计
D.a程序设计