( 24 )在窗体上画 1 个命令按钮,并编写如下事件过程:
Private Sub Command1_Click()
Dim a(3,3)
For m=1 To 3
For n=1 To 3
If n=m Or n=4-m Then
a(m,n)=0
End If
Print a(m,n);
Next n
Next m
End Sub
运行程序,单击命令按钮,窗体上显示的内容为
A )
2 0 0
0 4 0
0 0 6
B )
2 0 4
0 4 0
4 0 6
C )
2 3 0
3 4 0
0 0 6
D )
2 0 0
0 4 5
0 5 6
第1题:
在窗体上画一个命令按钮,然后编写如下事件过程:
运行后的输出结果是______。
A.5
B.1
C.2
D.6
第2题:
在窗体上画1个命令按钮,并编写如下事件过程: Private Sub Command1 Click( ) Dim a(3,3) For m=1 To 3 For n=1 To 3 If n=m or n=4—m Then a(m.n)=m+n Else a(m,n)=0 End If Print a(m,n); Next n Print Next m End Sub 运行程序,单击命令按钮,窗体上显示的内容为( )。
A.2 0 0 0 4 0 0 0 6
B.2 0 4 0 4 0 4 0 6
C.2 3 0 3 4 0 0 0 6
D.2 0 0 0 4 5 0 5 6
第3题:
在窗体上画1个命令按钮(名称为Commandl)和1个文本框(名称为Textl),然后编写如下事件过程:
程序运行后,在文本框中输入3,然后单击命令按钮,则Y的值变为__________。
第4题:
在窗体上画1个命令按钮,并编写如下事件过程: private Sub Command1_Click( ) For i=5 To 1 Step-0.8 Print Int(i); Next i End Sub 运行程序,单击命令按钮,窗体上显示的内容为( )。
A.5 4 3 2 1 1
B.5 4 3 2 1
C.4 3 2 1 1
D.4 4 3 2 1 1
第5题:
在窗体上画一个命令按钮,名称为Commandl,然后编写如下事件过程: Private Sub Commandl_Click() Dim() a=Array(”机床”,”车床”,”钻床”,”轴承”)Printa(2)EndSub程序运行后,如果单击命令按钮,则在窗体上显示的内容是( )。
A.机床
B.车床
C.钻床
D.轴承