（ 10 ） 在窗体上画 1 个命令按钮和 1 个通用对话框 ， 其名称分别为 Command1 和 CommonDialog1 ， 然后编写

下列事件过程：

Private Sub Command1_Click( )

C．ommonDialog1. ( 12 ) =" 打开文件 "

C．ommonDialog1.Filter="All Files(*.*)|*.*"

C．ommonDialog1.InitDir="C :/ "

C．ommonDialog1.ShowOpen

E．nd Sub

该程序的功能是 ： 程序运行后 ， 单击命令按钮 ， 将显示 “ 打开 ” 文件对话框 ， 其标题是 “ 打开文件 ” ，在 “ 文件类型 ” 栏内显示 “ AIl Files(*.*) ” ，并显示 C 盘根目录下的所有文件，请填空。

[试题]在窗体上画1个命令按钮和1个通用对话框，其名称分别为Command1和CommonDialog1，然后编写如下事件过程：Private Sub Command1_Click（）C．ommonDialog1.______="打开文件"C．ommonDialog1.Filter="All Files（*.*）|*.*"C．ommonDialog1.InitDir="c:/"C．ommonDialog1.ShowOpenE．nd Sub该程序的功能是，程序运行后，单击命令按钮，将显示“打开”

[单选题]在窗体上画一个命令按钮和一个通用对话框，其名称分别为Command1和CommonDialogl，然后编写如下代码； Private SubCommand1_Click() CommonDialogl.Filter=" All Files |*.*|(*.exe)|*.exe|(*.doC)[*.doc|(*.bmp)|*.bmp" CommonDialogl.FileName=" " CommonDialogl.Flags=vbOFNFileMustExist CommonDialog

[单选题]在窗体上画一个通用对话框,其名称为CommonDialog1,然后画一个命令按钮,并编写如下事件过程。Private Sub Command1_Click()C．ommonDialog1.Flags=vbOFNHideReadOnlyC．ommonDialog1.Filter= "All Files(*.*) |*.*|Text Files(*.txt)|*.txtC．ommonDialog1.FilterIndex=1C．ommonDialog1.ShowOpenMsgBox CommonD

[单选题]在窗体上画一个通用对话框，其名称为CommonDialog1，然后画一个命令按钮，并编写如下事件过程：Private Sub Command1_Click()C．ommonDialog1.Flags=vbOFNHideReadOnlyC．ommonDialog1.Filter="All Files(*.*)|*.*|Text Files(*.txt)|*.txtC．ommonDialog1.FiherIndex=1C．ommonDialog1.ShowOpenMsgBox CommonDial

[单选题]在窗体上画一个通用对话框，其名称为CommonDialog1，然后画一个命令按钮，并编写如下事件过程：Private Sub Command1_Click（）C．ommonDialog1.Flags=vbOFNHideReadOnlyC．ommonDialog1.Filter= "All Files（*.*） |*.*|Text Files（*.*） |*.txt|" _& Batch Files（*.bat） |*.bat"C．ommonDialog1.FilterIndex=1

[试题]（ 9 ） 在窗体上画 1 个命令按钮和 1 个文本框 ， 其名称分别为 Command1 和 Text1 ， 然后编写下列事件过程 ：D．im SaveAll As StringPrivate Sub Command1_Click( )Text1.Text=Left(UCase(SaveAll),4)E．nd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)SaveAll=SaveAll+Chr(KeyAscii)E．nd Sub程序运行后，在

[单选题]（ 32 ）在窗体上画 1 个命令按钮和 1 个文本框，其名称分别为 Command1 和 Text1 ，再编写如下程序 ：D．im ss As StringPrivate Sub Text1_KeyPress(KeyAscii As integer)If chr(KeyAscii)<> ”” Then ss=ss+chr(KeyAscii)E．nd SubPrivate Sub Command1_Click()D．im m As String,i As IntegerF．or i=

[单选题]在窗体上画一个通用对话框，其名称为CommonDialogl，然后画一个命令按钮，并编写如下事件过程： Private Sub Commandl_click() CommonDialogl.Friter="AllFiles(*.*)|*.*|Text Files"&_ "(*.txt)|*.txt|Executable Files(*.exe)|*.exe" CommonDialog1.FilterIndex=3 CommonDA．AllFries(*.*)B．TextFiles

[单选题]在窗体上画一个通用对话框，其名称为CommonDialogl，然后画一个命令按钮，并编写如下事件过程。 Private Sub Command1_Click() CommonDialog1.Flags=vbOFNHideReadOnly CommonDialog1.Filter="All Files(*.*)|*.*|Text Files(*.txt)|*.txt CommonDialog1.FilterIndex=1 CommonDialog1.ShowOpen MsgBox CommonD

[单选题]在窗体上画一个通用对话框，其名称为CommonDialogl，然后画一个命令按钮，并编写如 Private Sub Command1_Click() CommonDialogl. Flags = vbOFNHideReadOnly CommonDialogl. Filter =" All Files(*.*)|*. * |Text Files(*.txt)|*. txt CommonDialogl. FilterIndex = 1 CommonDialogl. ShowOpen MsgBox