更多"在窗体中添加一个命令按钮，编写如下程序： Private Sub S"的相关试题:
[单项选择]在窗体添加一个命令按钮(名为Command1)和一个文本框(名为Text1),并在命令按钮中编写如下事件代码：
Private Sub Commandl Click（ ）
m=2.17
n=Len(Str$(m)+Space)
Me!Textl=n
End Sub
打开窗体运行后,单击命令按钮,在文本框中显示【 】。
A. 5
B. 8
C. 9
D. 10
[单项选择]在窗体中添加一个命令按钮和一个文本框，并编写如下程序代码： Private Sub Command1_Click（ ） k=0 Do While k ＜ 70 k=k+2 k=k*k+k a=a+k Loop Text1．Text=a End Sub 程序运行后，文本框中显示的是
A. 20
B. 32
C. 44
D. 78
[单项选择]在窗体中添加一个命令按钮，名称为Commandl，然后编写如下程序： Private Sub Command1_Click（ ） Dim a As Integer，b As String，C As Integer a = 1234 : b = Str(a) c = Len(b) Print c End Sub 程序运行后，单击命令按钮，则在窗体上显示的内容是
A. 0
B. 5
C. 6
D. 7
[单项选择]在窗体中添加一个命令按钮，并编写如下程序： Private Sub Command1_CliCk（ ） X=1∶Y=2∶Z=3 X=Y∶Y=Z∶Z=X Print Z End Sub 程序执行后，输出的结果是______。
A. 3
B. 0
C. 2
D. 1
[单项选择]在窗体中添加一个命令按钮，并编写如下程序：Private Sub Command1_ Click（ ） x=1: y=2: z=3 x=y: y=z: z=xEnd Sub程序执行后，输出的结果是______。
A. 3
B. 0
C. 2
D. 1
[单项选择]在窗体中添加一个命令按钮，编写如下程序： Private Sub Sub1(p，m，n) p=p+1：m=m+1：n=n+1 Print "sub1："；p；m；n End Sub Private Sub Command1_Click（ ） a1=1：b=2：c1=3 Call Sub1(a，b1+3，c1) Print"Main："；a1；b1；c1 End Sub 程序运行后，输出结果为
A. Sub： 2 6 4 Main： 2 6 4
B. Sub： 2 6 4 Main： 2 6 4
C. Sub： 2 6 4 Main： 1 2 3
D. Sub： 2 6 4 Main： 2 2 3
[单项选择]在窗体画一个命令按钮，然后编写如下事件过程： Private Sub Commandl Click（ ） Dim a(5)As String For i=1 To 5 a(i)=Chr(Asc("A")+(i-1)) Next i For Each b In a Print b; Next End Sub 程序运行后，单击命令按钮，输出结果是______。
A. ABCDE
B. 1 2 3 4 5
C. abcde
D. 出错信息
[单项选择]在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序： Private Sub Command1_Click（ ） Dim a As Integer, b As String, c As Integer a=1234: b=Str(a) c=Len(b) Print c End Sub 程序运行后，单击命令按钮，则在窗体上显示的内容是______。
A. 0
B. 5
C. 6
D. 7
[单项选择]在窗体中添加一个命令按钮(名称为Command1) ，然后编写如下代码： Private Sub Command1_Click( ) A=95 If A＞60 Then I=1 If A＞70 Then I=2 If A＞80 Then I=3 If A＞90 Then I=4 MsgBox I End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果是______。
A. 1
B. 2
C. 3
D. 4
[单项选择]在窗体中添加一个命令按钮Commandl和一个文本框Text1，编写命令按钮Com-mand1 的 Click事件代码； Private Sub Command1_Click（ ） Dim S As String*20 S=Text1. Text End Sub 该程序的功能是当单击按钮Command1时，把变量S中内容写入一个顺序文件 datl. dar中，正确的程序段是 ( )
A. Open "dat dat", For lnput As#1 Write井1,S
B. Open"dat dat" For Output As#1 Write#1, S
C. Open"dat", For Binary As #1 Write #1, S Close #1
D. Open dat dat"For Random As #1 Write #1, S Close #1
[单项选择]在窗体中添加一个命令按钮(名为Command1)，然后编写如下代码：
Private Sub Command1 Click( )
a＝0：b＝5：C＝6
MSgBOx a＝b+c
End Sub
窗体打开运行后，如果单击命令按钮，则消息框的输出结果是______。
A. 11
B. a＝11
C. 0
D. False
[单项选择]在窗体中添加一个命令按钮（名称为Command1），然后编写如下代码：
Private Sub Command1_Click（）
a＝0：b＝0：c＝6
MsgBox a＝b＋c
End Sub
窗体打开运行后，如果单击命令按钮，则消息框的输出结果为________。
A. 11
B. a＝11
C. 0
D. False
