更多"在窗体上画一个命令按钮和一个标签,其名称分别为Commandl和Lab"的相关试题:
[填空题]在窗体上画一个命令按钮和一个标签,其名称分别为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和CommonDialogl,然后编写如下代码; Private SubCommand1_Click( ) CommonDialogl.Filter=" All Files |*.*|(*.exe)|*.exe|(*.doc) [*.doc|(*.bmp)|*.bmp" CommonDialogl.FileName=" " CommonDialogl.Flags=vbOFNFileMustExist CommonDialogl.FilterIndex=3 CommonDialogl.DialogTitle="OpenFile(*.doc) " CommonDialogl.Action=1 If CommonDialogl.FileName=" "Then MsgBox "No file selected",37,"Checking" Else End If End Sub 程序运行后,单击命令按钮,将显示一个对话框,该对话框的标题是 ______。
A. 空字符
B. OpenFile(*.do
C. 打开文件
D. 保存文件
[单项选择]在窗体上画一个命令按钮和一个标签,其名称分别为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
[单项选择]在窗体上画一个命令按钮,其名称分别为 Command1,然后编写如下事件过程:
Private Sub Command1_Click( )
a = 0
For m = 1 To 10
a = a + 1
b = 0
For j = 1 To 10
a = a + 1
b = b + 2
Next j
Next m
Print a, b
End Sub
程序运行时,单击命令按钮Command1后,窗体上显示的结果为________。
A. 10 20
B. 20 110
C. 110 20
D. 200 110
[填空题]在窗体上画一个命令按钮和一个标签,其名称分别为Command1和Label1,编写事件过程如下:
Private Sub Command1_Click( )
Counter=0
For i=1 To 4
For j=6 To 1 Step-2
Counter=Counter+1
Next j
Label1.Caption=Str(Counter)
End Sub
程序运行后,单击命令按钮,标签中显示的内容是______。
[单项选择]
在窗体上画一个命令按钮和一个标签,其名称分别为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
[单项选择]在窗体上画一个命令按钮和一个标签,其名称分别为Command1和Label1,然后编写如下代码:
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
Labell. Caption=Str(m)
End Sub
程序运行后,单击命令按钮,在标签中显示的内容是( )。
A. 50
B. 20
C. 14
D. 7
[单项选择]在窗体上画一个命令按钮和一个标签,其名称分别为Command1和Labe11,然后编写如下事件过程:
Private Sub Command1_Click( )
Counter=0
For i=1 To 4
For j=8 To 1 Step-2
Counter=Counter+1
Next j
Next i
Labe11.Caption=Str(Counter)
End Sub
程序运行后,单击命令按钮,标签中显示的内容是______。
A. 11
B. 12
C. 16
D. 20
[单项选择]在窗体上画一个命令按钮和一个文本框,其名称分别为Commandl和Text1,把文本框的 Text属性设置为空白,然后编写如下事件过程:
Private Sub Commandl_click( )
a=InputBox("Enter an integer")
b=InputBox("Enter an integer")
Text1.Text=b+a
End Sub
程序运行后,单击命令按钮,如果在输入对话框中分别输入8和10,则文本框中显示内容是( )。
A. 108
B. 18
C. 810
D. 出错
[单项选择]在窗体上画一个命令按钮和一个标签,其名称分别为 Command1 和 La-bel1,然后编写如下事件过程:
Private Sub Command1_Click( )
Counter = 0
For i = 1 To 4
For j = 8 To 1 Step -2
Counter = Counter + 1
Next j
Next i
Label1.Caption = Str(Counter)
End Sub
程序运行后,单击命令按钮,标签中显示的内容是________。
A. 11
B. 12
C. 16
D. 20
[单项选择]在窗体上画一个命令按钮和一个标签,其名称分别为Command1和Label1,然后编写如下事件过程:
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
Label1.Caption=Str(Counter)
End Sub
程序运行后,单击命令按钮,标签中显示的内容是
A. 11
B. 12
C. 16
D. 20
[填空题]在窗体上画一个命令按钮和一个文本框,其名称分别为Command1和Text1,然后编写如下代码:
Dim SaveAll As String
Private Sub Command1_Click( )
Text1.Text=Left(UCase(SaveAll),4)
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
SaveAll=SaveAll+Chr(KeyAscii)
End Sub
程序运行后,在文本框中输入abcdefg,单击命令按钮,则文本框中显示的内容是______。