题目内容
（请给出正确答案）
Private Sub Command1_Click()
CD1.Filter =" 文本文件 1*.txt(Word 文档 )*.doc"
CD1.Filterinder = 1
CD1.ShowOpen
If CD1.FileName＜＞""Then
Open [9] For Input As #1
Line Input #1,ch$
Close #1
Text1.Text = [10]
End If
End Sub
如果结果不匹配，请 联系老师 获取答案
更多“（8 ） 设窗体上有一个名称为 CD1 的通用对话框 ， 一…”相关的问题
.jpg)
命令按钮的事件过程如下： Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 CD1.Action=1 Case 1 CD1.ShowSave Case 2 CD1.Action=5 Case 3 End End Select End Sub 对上述程序，下列叙述中错误的是()。
A．单击“打开”按钮，显示打开文件的对话框
B．单击“保存”按钮，显示保存文件的对话框
C．单击“打印”按钮，能够设置打印选项，并执行打印操作
D．单击“退出”按钮，结束程序的运行
A.Text1．Maxength=0
B.Text1．Enabled=False
C.Text1．Visible=False
D.Text1．Width=0
在窗体上画一个名称为CD1的通用对话框，并有如下程序：
Private Sub Form_Load()
CD1．DefaultExt=”doc”
CD1．FileName=”c：＼fiel1．txt”
CD1．Filter=”应用程序(*．exe)|*．exe”
End Sub
程序运行时，如果显示了“打开”对话框，在“文件类型”下拉列表中的默认文件类型是
A．应用程序(*．exe)
B．*．doc
C．*．txt
D．不确定
.jpg)
设有如下的类型和变量声明：
Private Type Person
name As String*8
mjot As String+20
End Type
Dim P As Person
设文本框中的数据已正确地赋值给Person类型的变量P，当单击“保存”按钮时，能够正确地把变量中的数据写入随机文件Test2．dat中的程序段是
A．Open“c：＼Test2．dat”ForOutputAs#1 Put#1，1，P Close#1
B．Open”c：＼Test2．dat”For Random As#l Get#1，1，P Close#1
C．Open“c：＼Test2．dat”For Random As#1 Len=Len(P) Put#1，1，P C10se#1
D．Open“c：＼Test2．dat”ForRandomAs#l Len=Len(p) Get#1，1，P C10Se#1
.jpg)
设有如下的类型声明 TyPe Person name AS String*8 major AS String*20 End TyPe 当单击“保存”按钮时，将两个文本框中的内容写入一个随机文件Test29 .dat中。设文本框中的数据已正确地赋值给Person类型的变量P.则能够正确地把数据写入文件的程序段是
A．Open"c：\Test29.dat"For Random As#1 Put#1，1，p C10se #1
B．OpeH"c：\Test29.dat"For Random As #1 Get#1，1，p C108C#1
C．Open"c：\Test29.dat"For Random As#1 Len=Len(p) Put#1，1，p C108C#1
D．OPell"c：\Test29.dat"For，Random As#1 Len=Len(p) Get#1，1，p C106e#1
窗体上有一个名称为Command1的命令按钮，其单击事件过程代码如下：
Private Sub Command1 Click（）
Static x As Variant
n=0
x=Array(1，2，3，4，5，6，7，8，9，10)
While n＜=4
x(n)=x(n+5)
Print x(n)：
n=n+1
Wend
End Sub
运行程序，单击命令按钮Command1，窗体上显示的是（）。
A.1 2 3 4 5
B.6 7 8 9 10
C.2 3 4 5 6
D.6 2 3 4 5
（7 ）设窗体上有一个名称为 Combol 的组合框，并有以下程序：
Private Sub Combol_KeyPress(KeyAscii As Integer)
If 【 9 】 =13 Then ‘ 回车符的 ASCII 码是 13
For k=0 To Combol.ListCount-1
If Combol.Text= Combol.List(k) Then
Combol.Text= ” ”
Exit For
End If
Next k
If Combol.Text ＜＞ “” Then
Combol.AddItem 【 10 】
End If
End If
End Sub
程序的功能是 ： 在组合框的编辑区中输入文本后按回车键 ， 则检查列表中有无与此文本相同的项目 ， 若有 ，则把编辑区中的文本删除，否则把编辑区中文本添加到列表的尾部。请填空。
A.应用程序(*．exe)
B.*．doc
C.*．txt
D.不确定
（29 ） 设窗体上有一个通用对话框控件 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= " 文本文件 "
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Forml的窗体上画出包含三个命令按钮的控件数组，名称为cmdl，下标分别为0、1、2，Caption分别为“开始”、“停止”和“退出”，如图3(a)所示。通过属性窗口设置各命令按钮的属性，使得程序开始运行时，“停止”按钮不可见，“退出”按钮不可用，如图3(b) 所示。 注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为sjt1．frm，工程文件名为sjt1．vbp。
(2)在名称为Form1的窗体上画两个名称分别为Command1和Command2、标题分别为“打开”和“保存”的俞令按钮，和一个名称为CD1的通用对话框，如图4所示。请在属性窗口中设置CD1的属性，使得打开通用对话框时，其初始路径是“C:\”。再编写适当的事件过程，使得运行程序，分别单击“打开”或“保存”按钮时，相应地出现“打开”或“保存”对话框。要求程序中不得使用变量，每个事件过程中只能写一条语句。 注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为sjt2．frm，工程文件名为sjt2．vbp。
