题目内容
（请给出正确答案）
在窗体上画一个命令按钮和一个标签，其名称分别为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
简答题官方参考答案
（由简答题聘请的专业题库老师提供的解答）
更多“在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Labell，然后编写如下代码：Sub S（x As”相关的问题
在窗体上画一个命令按钮和一个标签，其名称分别为Commandl和Labell，然后编写如下事件过程： Private Sub Commandl_Click() Counter=0 Fori=1T04 Forj=6 To 1 Step-2 Counter=Counter+1 Nextj Nexti Labell.Caption=Str(Counter) End Sub 程序运行后，单击命令按钮，标签中显示的内容是
A．11
B．12
C．16
D．20
（6）在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为 Text1、Label1 和 Command1，然
后编写如下两个事件过程：
Private Sub Command1_Click()
S$=InputBox("请输入一个字符串")
Text1.Text=S$
End Sub
Private Sub Text1_Change()
Label1.Caption=UCase(Mid(Text1.Text, 7))
End Sub
程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串“VisualBasic”，
则在标签中显示的内容是 【6】 。
在窗体上画一个命令按钮和一个标签，其名称分别为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
在窗体上画一个命令按钮和一个标签，其名称分别为Commandl和Label1，然后编写如下事件过程：
Private Sub Command1_Click()
Counter=0
For i=1 T0 4
For j=6 T0 1 Step -2
Counter=Counter+1
Next j
Next i
Label1.Caption=Str(Counter)
End Sub
程序运行后，单击命令按钮，标签中显示的内容是______。
在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Labell，然后编写如下事件过程： Private Sub Command1_Click() Counter=0 For i=1 To 4 For j=8 To 1 Step-2 Counter=Counter+1 Next i Next i Labell.Caption=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
在窗体上画两个标签和一个命令按钮，其名称分别为Labe11、Labe12和Command1，然后编写如下程序： Private SUb fune(L As Label，By Val a As Integer) L.Caption="1234" a=a*a End Sub Private Sub Form. Load() LabeCaptlon="ABCD" LabeCapfion=10 End Sub Private SUb Command1_Click() a=Val(Label2.Caption) Callfunc(Labell，A)LabeCaption=a End Sub 程序运行后，单击命令按钮，在两个标签Labe11和Labe12中显示的内容分别是______。
A．ABCD和10
B．1234和100
C．ABCD和100
D．1234和10
在窗体上画两个标签和一个命令按钮，其名称分别为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() Labell.Caption="ABCD" LabelCaption=10 End Sub Private Sub Command1_Click() a=Val(LabelCaption) Call func(Labell，A)LabelCaption=a End Sub 程序运行后，单击命令按钮，在两个标签Label1和Label2中显示的内容分别是：_______。
A．ABCD和10
B．1234和100
C．ABCD和100
D．1234和10
警告：系统检测到您的账号存在安全风险
为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
