单项选择题

设窗体上有一个通用对话框控件CD1，希望在执行下面程序时，打开如图5所示的文件对话框：


Private Sub Command1_Click()
CD1.DialogTitle="打开文件"
CD1.InitDir="C:\"
CD1.Filter="所有文件|*.*|Word文档|*.doc|文本文件|*.txt:"
CD1.FileName=""
CD1.Aetion=1
If CD1.FileName="" Then Print "未打开文件"
Else Print "要打开文件" & CD1.FileName
End If
End Sub
但实际显示的对话框中列出了C:\下的所有文件和文件夹，“文件类型”列表框中显示的是“所有文件”。所以，需要修改程序，下面的修改方案中正确的是

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

单项选择题
设工程中有两个窗体：Form1和Form2。Form1为启动窗体，Form2中有菜单(其结构如表1所示)。要求在程序运行时，在Form1的文本框Text1中输入121令并按回车键(回车键的ASCII码为13)后，隐藏Form1，显示Form2。若口令为“Teacher”，则所有菜单项都可见；否则看不到“成绩录入”菜单项。为此，某人在Form1窗体文件中编写了如下程序： 表1 菜单结构 标题 名称 级别 成绩管理 mark 1 成绩查询 query 2 成绩录入 input 2 Private Sub Text1_KeyPress (KeyAscii As Integer) If KeyAscii=13 Then If Text1.Text= Teacher Then Form2.input.Visible=True Else Form2.input.Visible=False End If End If Form1.Hide Form2.Show End Sub 程序运行时发现刚输入口令时就隐藏了Form1，显示了Form2，因此需要修改程序。下面的修改方案中正确的是
A．把Form1中Text1文本框及相关程序放到Form2窗体中
B．把Form1.Hide、Form2.Show两行移到两个End If之间
C．把If KeyAscii=13 Then改为If KeyAscii="Teacher" Then
D．把两个Form2.input.Visible中的"Form2."删去
单项选择题
计算π的近似值的一个公式是：，某人编写了下面的程序用此公式计算并输出π的近似值： Private Sub Command1_Click() PI=1:Sign=1:n=20000 For k=3 To n Sign=-Sign PI=PI+Sign k Next k Print PI*4 End Sub 运行后发现结果为3.22751，显然，程序需要修改。下面的修改方案中正确的是
相关试题