在窗体上画一个命令按钮和一个标签,其名称分别为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
第1题:
在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为Textl、Labell和Command1,然后编写如下两个事件过程:
Private Sub Commandl_Click()
S$=InputBox(”请输入一个字符串”)
Textl.Text=S$
End Sub
Private Sub Textl Change()
Label1.Caption=UCase(Mid(Text1.Text,7))
End Sub
程序运行后,单击命令按钮,将显示一个输入对话框,如果在该对话框中输入字符串“VisualBasic”,则在标签中显示的内容是【 】。
第2题:
在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为Text1、Labell和 Command1,然后编写如下两个事件过程: Private Sub Command1_Click() strText=InputBox("请输入") Text1.Text=strText End Sub Private Sub Text1_Change() Labell.Caption=Right(Trim(Text1.Text),3) End Sub 程序运行后,单击命令按钮,如果在输入对话框中输入Visual,则在标签中显示的内容是
A.空
B.Visual
C.Vis
D.ual
第3题:
在窗体上画一个名称为Command1的命令按钮和一个名称为Label1的标签,然后编写如下程序代码: Option Base 0 Private Sub Command1_Click() Dim a(5) As Integer, n As Integer For i = 0 To 5 a(i) = i n = n + a(i) Next i Label1 = n End Sub 运行程序,单击命令按钮,在标签中显示的内容是________。
A.5
B.10
C.15
D.20
第4题:
在窗体上画一个名称为CommRnd1的命令按钮,一个名称为Labell的标签,然后编写如下事件过程:
Private Sub Command1 Click()
s=0
For i=1 TO 15
x=2*i-1
if x Mod 3;0 Then s=s+l
Next i
Labe11.Caption=s
End Sub
程序运行后,单击命令按钮,则标签中显示的内容是上【 】。
第5题:
在窗体上画两个名称分别为Label1和Label2的标签,再画一个名称为Command1的命令按钮,然后编写如下事件过程:
运行上面的程序,单击命令按钮.其输出结果是
A.8 9
B.8 18
C.64 9
D.64 18