题目内容
（请给出正确答案）
在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Labell，然后编写如下代码：
Sub S(x As Integer，Y As Integer)
Static z As Integer
y=x*x+z
z=y
End Sub
Private Sub Command1_Click()
Dim i As Integer，z As Integer
m=0
z=0
For i=1 To 3
S i，z
m=m+z
Next i
Label1．Caption=Str(m)
End Sub
程序运行后，单击命令按钮，在标签中显示的内容是
A．50
B．20
C．14
D．7
如果结果不匹配，请 联系老师 获取答案
更多“在窗体上画一个命令按钮和一个标签，其名称分别为Command…”相关的问题
在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Labell，然后编写如下事件过程： Private Sub Command1_Click() Counter＝0 For i=1 To 4 For j＝6 To 1 Step -2 Counter=Counter+1 Next j Next i Labell.Captidn=Str(Counter) End Sub 程序运行后，单击命令按钮，标签中显示的内容是______。
A．11
B．12
C．16
D．20
在窗体上画两个标签和一个命令按钮，其名称分别为Label1、Label2和Command1，然后编写如下程序： Private Sub func(L As Label,ByVal a As Integer) L.Caption="1234" a=a*a End Sub Private Sub Form_Load() Label1.Caption="ABCD" Label2.Caption=10 End Sub Private Sub Command1_Click() a=Val(Label2.Caption) Call func(Label1,a)Label2.Caption=a End Sub 程序运行后，单击命令按钮，在两个标签Label1和Label2中显示的内容分别是______。
A．ABCD和10
B．1234和100
C．ABCD和100
D．1234和10
A．空
B．abcdef
C．abcd
D．efgh
Private Sub Command1_Click（）
strText = InputBox（"请输入"）
Text1.Text = strText
End Sub
Private Sub Text1_Change（）
Label1.Caption = Right（Trim（Text1.Text）, 3）
End Sub
程序运行后，单击命令按钮，如果在输入对话框中输入abcdef，则在标签中显示的内容是（）。
A．空
B．abcdef
C．abc
D．def
A．空
B．abcdef
C．abc
D．def
Prirate Sub Form_L．aad()
Labell．Caption=“欢迎”
Timer1．Enabled=False
Timer1．Interval=【 】
Commandl．Caption=“开始闪烁”
End sut)
Private Sub Timer1_rrimer()
Label1．visible=【 】
Emi sub
PTivate Sub Commandl_Click()
【 】
End sub
.jpg)
A．5和3
B．25和3
C．25和6
D．5和6
A．10 10 10
B．30 30 30
C．30 30 10
D．10 30 30
在启动窗体Form1上画一个名为Command1的命令按钮和两个文本框(其名称分别为Text1和Text2)，新建一个窗体Form2。然后编写如下程序： Private Sub Command1_ Click() msg$ = "Retry" Title$ = "Error!" If TextText = "a" And TextText = "1" Then Unload Me Form. Show Else MsgBox msg$, vbOKOnly + vbCritical, Title$ End If End Sub运行该程序，要实现单击Command1命令按钮后卸载当前窗体，再弹出名为Form. 2的窗体，则在两个文本框中应分别输入______。
A．a 1
B．a a
C．1 a
D．1 1
