单项选择题

设窗体上有一个通用对话框控件CD1，希望在执行下面程序时，打开如图所示的文件对话框
　　Private Sub Comand1_Click()
　　CD1.DialogTitle="打开文件"
　　CD1.InitDir="C:\"
　　CD1.Filter="所有文件|*.*|Word文档|*.doc|文本文件|*.Txt"
　　CD1.FileName=""
　　CD1.Action=1
　　If CD1.FileName=""Then
　　Print"未打开文件"
　　Else
　　Print"要打开文件"& CD1.FileName
　　End If
　　End Sub

　　但实际显示的对话框中列出了C:\下的所有文件和文件夹，“文件类型”一栏中显示的是“所有文件”。下面的修改方案中正确的是（）

A．把CD1.Action=1改为CD1.Action=2
B．把“CD1.Filter=”后面字符串中的“所有文件”改为“文本文件”
C．在语句CD1.Action=1的前面添加：CD1.FilterIndex=3
D．把CD1.FileName=""改为CD1.FileName="文本文件"

<上一题 目录 下一题>
热门 试题

单项选择题
计算二的近似值的一个公式是 某人编写下面的程序用此公式计算并输出π的近似值： Private Sub Comand1_Click() PI=1 Sign=1 n=20000 For k=3 To n Sign=-Sign k PI=PI+Sign k Next k Print PI*4 End Sub 运行后发现结果为3.22751，显然，程序需要修改。下面修改方案中正确的是（）

A．把For k=3 To n 改为 For k=1 To n
B．把n=20000改为n=20000000
C．把For k=3 To n改为For k=3 To n Step 2
D．把PI=1改为PI=0
单项选择题
窗体上有一个Text1文本框，一个Command1命令按钮，并有以下程序 Private Sub Commandl_Click() Dim n If Text1.Text<> 23456 Then n=n+1 Print 口令输入错误 & n & 次 End If End Sub 希望程序运行时得到左图所示的效果，即：输入口令，单击&ldquo;确认口令”命令按钮，若输入的口令不是“123456”，则在窗体上显示输入错误口令的次数。但上面的程序实际显示的是右图所示的效果，程序需要修改。下面修改方案中正确的是（）

A．在Dim n语句的下面添加一句：n=O
B．把Print "口令输入错误" & n & "次"改为Print "口令输入错误" +n+"次"
C．把Print "口令输入错误" & n & "次"改为Print "口令输入错误"&Str(n)&"次"
D．把Dim n改为Static n
相关试题