单项选择题

在窗体上画一个通用对话框，其名称为CommonDialog1，然后画一个命令按钮，并编写如下事件过程：

Private Sub Command1_Click()

CommonDialog1.Flags=vbOFNHideReadOnly

CommonDialog1.Filter="All Files(.)|.|Text Files(.txt)|.txt

CommonDialog1.FiherIndex=1

CommonDialog1.ShowOpen

MsgBox CommonDialog1.FileName

End Sub

程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是

A．All Files(*.*)
B．Text Files(*.*)
C．*.txt
D．All Files(*.*)|Text Files(*.*)

<上一题目录下一题>

热门试题

单项选择题

下列程序的执行结果为 Private Sub Command1_Click() Dim FirStr As String FirSt= abcdef Print Pat(FirStr) End Sub Private Function Pat(xStr As String) As String Dim tempStr As String，strLen As Integer tempStr= strLen=Len(xStr) i=1 Do While i＜=Len(xStr)-3 tempStr=tempStr+Mid(xStr,i,1)+Mid(xStr，strLen-i+1,1) i=i+1 Loop Pat=tempStr End Function

A．abcdef
B．afbecd
C．fedcba
D．defabc

单项选择题

执行下列程序后，鼠标单击窗体，输出结果为 Private Sub Form_Click() Print Click ； End Sub Private Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single) Print Donw End Sub Private Sub Form_MouseUp(ButtonAs Integer，Shift As Integer，X As Single，Y As Single) Print Up End Sub

A．DownUpClick
B．ClickDownUp
C．DownClickUp
D．UpDownCliek

相关试题