更多"在窗体上画一个命令按钮和一个标签,其名称分别为 Command1 和 "的相关试题:
[单项选择]在窗体上画一个命令按钮和一个通用对话框,其名称分别为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. 保存文件
[填空题]在窗体上画一个命令按钮和一个标签,其名称分别为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和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和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,单击命令按钮,则文本框中显示的内容是______。
[单项选择]在窗体上画一个命令按钮和一个标签,其名称分别为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和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和Text1,然后编写如下事件过程:
Private Sub Command1_Click( )
Dim inData As String
Text1.Text=" "
Open "d:/Myfile.txt" For (14) As#1
Do While (15)
Input#1,inData
Text1.Text=Text1.Text+inData
Loop
Close#1
End Sub
程序的功能是,打开D盘跟目录下的文本文件Myfile.txt,读取它的全部内容并显示在文本框中,请填空。