题目内容
（请给出正确答案）
在窗体上画—个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_ Click() c=1234 c1=Trim(str(c)) For i=1 To 4 Print ______ NextEnd Sub程序运行后，单击命令按钮，要求在窗体上显示如下内容： 1 12 123 1234则在横线外应填入的内容为______。
A．Right (c1，i)
B．Left(c1，i)
C．Mid(c1，i，1)
D．Mid(c1，i，i)
简答题官方参考答案
（由简答题聘请的专业题库老师提供的解答）
更多“在窗体上画—个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_ Click（)c=”相关的问题
在窗体上画一个名称为Command1的命按钮，然后编写如下事件过程： Private Sub Command1_Click() Static x As Integer Cls For i=1 To 2 y=y+x x=x+2 Next Print x，y End sub 程序运行后，连续三次单击Command1按钮后，窗体上显示的是
A．4 2
B．12 18
C．12 30
D．4 6
在窗体上画—个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click_() For n=1 To 20 If n Mod 3＜＞0 Then m=m+n\3 Next n print n End Sub 程序运行后，如果单击命令按钮，则窗体上显示的内容是 ______。
A．15
B．18
C．21
D．24
在窗体上画—个命令按钮(名称为Command1)，并编写如下代码：Function Fun1 (ByVala As Integer, b As Integer)As Integer Dim t As Integer t=a-b b=t+ a Fun 1=t+ bEnd FunctionPrivate Sub Command1_ Click() Dim x As Integer x=10 Print Fun1(Fun1 (x,(Fun1(x，x-1))),x-1)End Sub程序运行后，单击命令按钮，输出结果是 ______。
A．10
B．0
C．11
D．21
在窗体上画—个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim num As Integer num=1 Do Until num＞6 Print num； num=num+4 Loop End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是_________。
A．13.45.8
B．1 3 5
C．147
D．无数据输出
在窗体上画—个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_click() Dim a As Integer,s As Integer a=8 s=1 Do s=s+a a=a-1 Loop While a＜=0 Print s；a End Sub 程序运行后，单击命令按钮，则窗体上显示的内容，是 ______。
A．79
B．340
C．97
D．死循环
在窗体上画—个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim num As Integer num=1 DO Until num＞6 Print num; num=num+2.4 Loop End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是 ______。
A．13.45.8
B．1 3 5
C．1 4 7
D．无数据输出
在窗体上画—个名称为Command1的命令按钮，然后编写如下代码： Option Base 1 Private 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
在窗体上画一个命令按钮，名称为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
A．-5
B．25
C．1
D．-1
（31 ）在窗体上画 1 个命令按钮，名称为 Command1 ，然后编写下列程序：
Dim Flag As Boolean
Private Sub Command1_Click()
Dim intNum As Integer
intNum=InputBox(" 请输入 :")
If Flag Then
Print f(intNum)
End If
End Sub
Function f(X As Integer)As Integer
If X＜10 Then
Y=X
Else
Y=X+10
End If
f=Y
End Function
Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)
Flag=True
End Sub
运行程序 ， 首先单击窗体 ， 然后单击命令按钮 ， 在输入对话框中输入 5 ， 则程序的输出结果为 （） 。
A ） 0
B ） 5
C ） 15
D ）无任何输出
警告：系统检测到您的账号存在安全风险
为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
