题目内容
（请给出正确答案）
(29）在窗体上画一个名为Command 1的命令按钮，然后编写以下程序：
Private Sub Commandl_lick()
Dim a(10) As Integer
For k＝10 To 1 Step-1
a(k)＝20-2*k
Next k
k＝k＋7
Print a(k-a(k))
End Sub
运行程序，单击命令按钮，输出结果是
A）18
B）12
C）8
D）6
简答题官方参考答案
（由简答题聘请的专业题库老师提供的解答）
更多“（29）在窗体上画一个名为Command 1的命令按钮，然后编写以下程序：Private Sub Commandl_lick（)Dim”相关的问题
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command 1_ Click() Static y As Integer CIs For i=0 To 2 x=x +y y=y +3 Next Print x, yEnd Sub程序运行后，连续二次单击Command1按钮后，窗体上显示的是______。
A．9 9
B．36 18
C．30 12
D．63 27
A．Private Sub Command Click() CommonDialogl.FileName＝"SaveFile" CommonDialogl.Filte＝"All Files|*.*|(*.txt)|*.txt|(*.doC)|*.doc" CommonDialogl.FilterIndex＝2 CommonDialogl.DialogTitle＝"Save" CommonDialogl.Action＝2 End Sub
B．Private Sub Commandl_Click() CommonDialogl. FileName="SaveFile" CommonDialogl. Filter= "All Files| *. * | (*. txt)[*. txt| *. doc| *. doc" CommonDialogl. FilterIndex= 1 ComonDialogl. DialogTitle = "Save" CommonDialogl. A
C．Private Sub Cmmandl_Click() CommonDialogl. FileName= "Save" CommonDialogl. FiLter="All Files | *. * |(*. txt)|*. txt|(*. doC)|*. doc" CommonDialogl. FilterIndex= 2 CommonDialogl. DialogTitle = "SaveFile" CommonDialogl. A
D．Private Sub Commandl_Click() CommonDialogl. FileName = "SaveFile" CommonDialogl. Filter= "All Files|*. *|(*. txt)|*. txt| (*. doC)|*. doc" CommonDialogl. FilterIndex=1 CommonDialogl. DialogTitle= "Save" CommonDialogl. Ac
A.7
B.8
C.9
D.12
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command l-Click ()
a=0
For I =l T02
For j=l To4
if j Mbd2＜＞0 Then
a=a+1
End lf
a= a +l
Next j
Next i
Ms g Box a
End Sub
程序执行后，单击命令按钮，消息框显示的是【 】。
在窗体上画一个名称为Command1的命令按钮，然后编写如下程序 _______。 Dim k As Integer Private Sub Form_Load() k=5 End Sub Private Sub Command Click() Static b As Integer b ＝ b + k k=k+1 Print k，b End Sub 程序运行时，两次单击命令按钮Command1后，在窗体上显示的第二行是 _______。
A．7 11
B．5 11
C．76
D．2 1
在窗体上画两个文本框Text1和Text2，一个命令按钮Command1，请阅读以下程序段： Private Sub Command1_Click() x=0 Do Until x＞=50 x=(x+4)*(x+3) n=n+1 Loop Text1.Text=Str(n) Text2.Text=Str(x) End Sub 运行程序后，单击命令按钮，在两个文本框中显示的值分别为()。
A．1和0
B．2和240
C．3和50
D．4和168
在窗体上画一个名为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
在窗体上画一个名为Command1的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_Click() Dim Arr Arr = Array(1,2,3,4,5) j=1 For i = 5 To 1 Step -1 S = S + Art(i) * j j =j * 10 Next Print S End Sub 程序运行后，单击命令按钮，输出结果为()。
A．54321
B．123
C．12345
D．345
警告：系统检测到您的账号存在安全风险
为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
