题目内容
（请给出正确答案）
在窗体上画一个命令按钮，然后编写如下代码：
Private Sub Commandl_Click()
Dim M(10) As Integer
For k=1 To 10
M(k)=12-k
Next k
x=6
Msgbox M(2+M(x))
End Sub
程序运行后，单击命令按钮，消息框显示的是______。
安装简答题APP，拍照搜题省时又省心！
更多“在窗体上画一个命令按钮，然后编写如下代码： Private …”相关的问题
在窗体上画一个名为Commandl的命令按钮，然后编写如下代码：
option Base 1
Pdvate Sub Commandl_Click()
Dim a
a=Array(1，2，3，4)
J=1
For i=3 To 1 Step-1
s=s+a(i)*J
j=j*10
Nexti
Print s
End Sub
运行上面的程序，其输出结果是
A．1234
B．12
C．34
D．4321
在窗体上画一个命令按钮，然后编写如下代码： Private Sub Command1_Click() 0pen "d：\vb\test.txt "For Input As #1 Print LOF(1) Close #1 End Sub 假设文件d:\vb\test.txt的内容为I am a student．，那么程序运行后，单击命令按钮，其输出结果为______.
A．13
B．14
C．15
D．16
在窗体上画一个命令按钮，然后编写如下代码：
Private Sub Command1_C1ick()
Dim M (10) As Integer
For k=1 To 10
M(k)=12-k
Next k
x=6
Msgbox M(2+M(x))
End Sub
程序运行后，单击命令按钮，消息框显示的是【 】。
在窗体上画一个命令按钮Command1，然后编写如下代码： Privae Sub Command1_Click() Dim Arr1(10) As Integer,Arr2(10) As Integer n=3 For i=1 To 5 Arr1(i)=i Art2(n)=2*n+i Next i Print Arr2(n);Arr1(n) End Sub 运行程序后，单击命令按钮，输出结果是()。
A．11 3
B．3 11
C．13 3
D．3 13
在窗体上画一个命令按钮，名称为 Command1, 然后编写如下代码：
Option Base 0
Private Sub Command1_Click（）
Dim A （4）As Integer,B（4） As Integer
For k=0 To 2
A（k+1）=InputBox（“ 请输入一个整数 ”）
B（3-k）=A（k+1）
Next k
Print B（k）
End Sub
程序运行后，单击命令按钮，在输入对话框中分别输入2、4、6，输入结果为（）。 A．0
B．2
C．3
D．4
在窗体上画一个名称为Command1的命令按钮，然后编写如下代码： Option Base 1 Prirate Sub Command1_Click() d=0 c=10 x=Array(10,12,21,32,24) For i=1 To 5 If x(i)＞c Then d=d+x(i) c=x(i) Else d=d-c End If Next I Print d End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为______。
A．89
B．99
C．23
D．77
（30）在窗体上画一个名为 Command1 的命令按钮，然后编写如下代码：
Option Base 1
Private Sub Command1_Click()
Dim a
a=Array(1, 2, 3, 4)
j=1
For i=4 To 1 Step -1
s=s+a(i)*j
j=j*10
Next i
Print s
End Sub
运行上面的程序，其输出结果是（）。
A）1234
B）12
C）34
D）4321
在窗体上画一个命令按钮，名称为Command1，然后编写如下代码：Option Base()Private Sub Command1_ Click() Dim A1(4) As Integer, A2(4)As Integer For k= 0 To 2 A1(k+1)=InputBox(“请输入—个整数”) A2(3-k)=A1(k+1) Next k Print A2 (k)End Sub程序运行后，单击命令按钮，在输入对话框中依次输入2、4、6，则输出结果为______。
A．0
B．1
C．2
D．3
在窗体上画一个命令按钮，名称为Commandl，然后编写如下代码： Option Base 0 Private Sub Commandl_Click() DimA(4)As Integer,B(4)As Integer Fork=0 To 2 A(k+1)=InputBox(“请输入一个整数”) B(3-k)=A(k+1) Nextk PrintB(k) End Sub 程序运行后，单击命令按钮，在输入对话框中分别
A．0
B．2
C．3
D．4
在窗体上画一个命令按钮(其名称为Command1)，然后编写如下代码：
Private Sub Command1 Click（）
Dim a
a=Array(1，2，3，4)
i=3：j=1
Do While＞=0
s=s+a(i)*j
i=i-1
j=j*10
Loop
Print S
End Sub
运行上面的程序，单击命令按钮，则输出结果是（）。
A.4321
B.123
C.234
D.1234
为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
微信搜一搜
简答题
微信搜一搜
简答题
如搜索结果不匹配，请 
