更多"在窗体中添加一个命令按钮，编写如下程序： Private Sub S"的相关试题:
[单项选择]在窗体中添加一个命令按钮和一个文本框，并编写如下程序代码：
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(
[填空题]在窗体上添加一个命令按钮，名称为Command1，然后编写如下程序：
Private Sub Command1_Click（ ）
sum=0
For i=1 To 100 step 2
sum=sum+i
Next i
MsgBox sum
End Sub
打开窗体运行后，单击命令按钮，则消息框的输出结果为_______。
[填空题]
在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序：
Private Sub Command1_click（ ）
Dim s,i
For i=1 To 10
s=s+i
Next i
MsgBox s
End Sub
窗体打开运行后，单击命令按钮，则消息框的输出结果为（）。
[填空题]在窗体上添加一个命令按钮，名称为Command1，然后编写如下程序：
Private Sub Command1 Click（ ）
sum＝0
For i1 To 100 step 2
sum＝sum+i
Next i
MsgBox sum
End Sub
打开窗体运行后，单击命令按钮，则消息框的输出结果为______。
[单项选择]在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序：
Private Sub Command1_Click（ ）
Dim a As Integer, b As String, c As Integer
a=1234: b=Str(
[单项选择]在窗体上添加一个命令按钮(名为Command1)，然后编写如下事件过程：
Private Sub Command1_Click（ ）
For i=1 To 4
x=4
For j=1 To 3
x=3
For k=1 To 2
x=x+6
Next k
Next j
Next i
MsgBox x
End Sub
打开窗体后，单击命令按钮，消息框的输出结果是( )。
A. 7
B. 15
C. 157
D. 528
[单项选择]在窗体中添加一个命令按钮(名称为Command1)，然后编写如下代码：
Private Sub Command1_Click（ ）
a=3:b=4:c=5
MsgBox a=b+c
End Sub
窗体打开运行后，如果单击命令按钮，则消息框的输出结果为( )。
A. 0
B. 9
C. a=9
D. False
[单项选择]在窗体中添加一个命令按钮，编写如下程序：
Private Sub Test(p，m，n)
p=p+1：m=m+1：n=n+1
Print "Sub: ";p；m；n
End Sub
Private Sub Command1.Click（ ）
a1=1：b=2：c1=3
Call Test((a，b1+3，(c1))
Print "Main："；a1；b1；c1
End Sub
程序运行后，输出结果为
[单项选择]在窗体中添加一个命令按钮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 "datl. dat", For lnput As#1
B. Open"datl. dat" For Output As#1
C. Open"dat", For Binary As #1
D. Open datl. dat"For Random As
[单项选择]窗体上有一个命令按钮，命令按钮的单击事件过程如下。
Private Sub Command1_Click（ ）
Dim a
a:Array(1,2,3,4,5)
For k=1 To 4
s=s+a(k)
Next
Print s
End Sub
运行程序后，单击命令按钮，输出结果是( )。
A. 10
B. 14
C. 15
D. 120
[单项选择]在窗体中添加一个列表框(ListBox1)和一个命令按钮，并编写如下代码：
Private Sub Commandl_Click（ ）
Dim a, i, msg
msg="Choose OK to add 100 items to your listbox."
MsgBox msg
For i＝l To 100
a="a：" &i
List1. Addltem a
Next i
End Sub
程序完成的功能是 ( )
A. 本程序使用Addltem方法增加100项给一个列表框
B. 本程序使用Addltem方法向一个列表框中添加100项，其内容是数字1～100
C. 本程序使用Addltem方法向一个列表框中添加的内容是1～100的和
D. 本程序使用Addhem方法增加100个列表框
