更多"在窗体上画一个列表框和一个命令按钮，其名称分别为Listl和Comma"的相关试题:
[填空题]在窗体上画一个驱动器列表框、一个目录列表框和一个文件列表框，其名称分别为Dhvel、 Dirl和File1。为了使它们同步操作，必须触发Drive1_Change（ ）事件和Dir1_Change（ ）事件，在这两个事件中执行的语句分别是 【8】 和 【9】 。
[单项选择]在窗体上画一个驱动器列表框、一个目录列表框和一个文件列表框，其名称分别为 Drive1、Dir1和File1。当改变目录列表框的内容时，要求文件列表框中显示当前选中的文件夹中的内容，则在Dir1_ Change事件过程中应使用的语句是______ 。
A. Dirve1.Drive=Dir1.Path
B. Dir1.Path=Drive1.Drive
C. Dir1.Path=File1.Path
D. File1.Path=Dir1.Path
[单项选择]在窗体上画一个列表框和一个命令按钮，其名称分别为List1和Command1，然后编写如下事件过程。
Private Sub Form_load（ ）
List1.Addltem"Item 1"
List1.Addltem"Item 2"
List1.Addltem"Item 3"
End Sub
Private Sub Command1_Click（ ）
List1.List(List1.Listcount)="AAAA"
End Sub
程序运行后，单击命令按钮，其结果为______。
A. 把字符串"AAAA"添加到列表框中，但位置不能确定
B. 把字符串"AAAA"添加到列表框的最后(即"Item 3"的后面)
C. 把列表框中原有的最后一项改为"AAAA"
D. 把字符串"AAAA"插入列表框的最前面(即"Item 1"的前面)
[单项选择]在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Textl、Labell和 Commandl，然后编写如下两个事件过程： Prirate SUb Command1 Click（ ） strText = InputBox(“请输入”) Textl.Text = strText End Sub Private Sub Text1 Change（ ） Labell.Caption = Right(Trim(Text1.Text)， 3) End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入abcdef，则在标签中显示的内容是
A. 空
B. abcdef
C. abc
D. def
[单项选择]在窗体上画一个命令按钮和一个通用对话框，其名称分别为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. 保存文件
[单项选择]在窗体上画一个文本框，一个命令按钮和一个标签，其名称分别为Text1、Command1和Labell，文本框的Text1属性设置为空白，然后编写如下事件过程：
Private Sub Command1 Click（ ）
x=Int(Val(Text1.Text)+0.5)
Labell.Caption=Str(x)
End Sub
程序运行后，在文本框中输入28.653，单击命令按钮，标签中显示的内容是：_______。
A. 27
B. 28
C. 29
D. 30
