更多"程序代码如下，当单击窗体上的Command1控件时，窗体上输出的结果是"的相关试题:
[单项选择]程序代码如下，当单击窗体上的Command1控件时，窗体上输出的结果是( )。
Private Sub Command1_Click（ ）
Dim Y As Integer，I As Integer
Dim A(7)As Integer
Y=18：I=0
Do
A(I)=Y Mod 2
I=I+1
Y=Y/2
Loop Until Y＜1
For j=I-1 To 0 Step-1
Print A(j)；
Next j
End Sub
A. 1 0 0 0
B. 1 0 0 1 0
C. 0 0 1 1 0
D. 1 0 1 0 0
[单项选择]程序代码如下，当单击窗体上的Command1控件时，窗体上显示的结果是( )。 Private Sub Command1_Click（ ） Dim i As Integer,k As Integer Dim a(9) As Integer,p(2)As Integer k=5 For i=0 To 9 a(i)=i Next i For i=0 To 2 p(i)=a(i*(i+1)) Next i For i=0 To 2 k=k+p(i)*2 Next i Print k End Sub
A. 20
B. 21
C. 22
D. 23
[单项选择]程序代码如下，当单击窗体上的Command1控件时，在窗体上输出的结果是( )。
Private Sub Command1_Click（ ）
Dim aa(3，3)As Integer
Dim i As Integer,j As Integer
Dim s As Integer
For i=0 To 3
For j=0 To 3
aa(i，j)=i*4+j+1
Next j
Next i
For i=0 To 3
s=s+aa(i，1)
Next i
Print s
End Sub
A. 32
B. 28
C. 30
D. 36
[填空题]单击窗体上的命令按钮Command1, 【10】
Private Sub Command1_Click（ ）
a= "10"
b=20
c=Val(a) +b
Print c
End Sub
[单项选择]单击窗体上Command1命令按钮时，执行如下事件过程： Private Sub Command1_Click( ) a$= "software and hardware" b$= Right(a$, 8) c$= Mtd(b$ 1, 8) Msgbox c$ End sub则在弹出的信息框的标题栏中显示的信息是( )。
A. software and hardware
B. software
C. hardware
D. and
[填空题]单击窗体上的命令按钮Command1,______
Private Sub Command1_Click（ ）
a= "10"
b=20
c=Val(a) +b
Print c
End Sub
[填空题]窗体上命令按钮Command1的事件过程如下：
Private Sub Command1_Click（ ）
Dim total As Integer
total=s(1)+s(2)
Print total
End Sub
Private Function s(m As Integer) As Integer
Static x As Integer
For i=1 To m
x=x+1
Next i
s=x
End Function
运行程序，第三次单击命令按钮Command1时，输出结果为______。
[单项选择]在窗体上画一个命令按钮，名称为Command1。单击命令按钮时，执行如下事件过程：
Private Sub Command1_Click（ ）
a$="software and hardware"
b$=Right(a$,8)
c$=Mid(a$,1,8)
MsgBox a$,,b$,c$,1
End Sub
则在弹出的信息框的标题栏中显示的信息是( )。
A. software and hardware
B. software
C. hardware
D. 1
[单项选择]在窗体上有一个命令按钮Command1，编写如下程序：
Private Sub Command1_Click（ ）
Print pp1(3,7)
End Sub
Public Function pp1(x As Single,n As Integer)As Single
If n=0 Then
pp1=1
Else
If n Mod 2=1 Then
pp1=x*x+n
Else
pp1=x*x-n
End If
End If
End Function
程序运行后，单击该命令按钮，屏幕上显示的是( )。
A. 2
B. 1
C. 0
D. 16
[单项选择]在窗体上画一个命令按钮Command1，然后编写如下代码：
Private Sub Command1_Click（ ）
Dim Arr1(10) As Integer, Arr2(10)As Integer
n=3
For i = 1 To 5
Arr1 (i)=i
Arr2(n)=2 * n+i
Next i
Print Arr2(n); Art1 (n)
End Sub
运行程序后，单击命令按钮，输出结果是( )。
A. 11 3
B. 3 11
C. 13 3
D. 3 13
[单项选择]窗体上命令按钮Command1的事件过程如下：
Option Base 1
Private Sub Command1_Click（ ）
Dim a(4,4)As Variant
For i=1 To 4
For j=1 To 4
a(i,j)=(i-1)*3+j
Next j
Next i
For i=3 To 4
For j=3 To 4
Print a(i,j)
Next j
Next i
End Sub
该程序执行后，输出结果是( )。
A. 9
B. 7
C. 9
D. 8
[单项选择]在窗体上有一个命令按钮Command1，编写事件代码如下： Private Sub Command1_Click（ ） Dim y As Integer y=0 Do y=InputBox("y=") If(y Mod 10)+Int(y/10)=10 Then Debug.Print y； Loop Until y=0 End Sub 打开窗体运行后，单击命令按钮，依次输入10、37、50、55、64、20、28、19、-19、0，立即窗口上输出的结果是
A. 37 55 64 28 19 19
B. 10 50 20
C. 10 50 20 0
D. 37 55 64 28 19
