试题六(共 15 分)
阅读以下应用说明以及 Visual Basic 程序代码,将应填入 (n) 处的字句写在答题纸的对应栏内。
[应用说明]
某应用程序可选择打开用户指定的文本文件,将其内容显示在指定的文本框内供用户编辑,并将编辑后的结果保存在用户指定的文件中。运行时的窗口如图 6-1 所示,其中有六个标签、一个驱动器列表框、一个目录列表框、一个文件列表框、一个文件类型组合框、一个文件编辑文本框、一个文件名文本框以及两个命令按钮。
该程序的开发要求如下:
(1)通过驱动器列表框(Drive1) 、目录列表框(Dir1)和文件列表框(File1) ,选择文件。
(2)文件类型组合框(Cmb_type)设置为下拉式列表框,其中有三个供选项,分别为“所有文件(*.*)” 、 “文本文件(*.txt)”和 “可执行文件(*.exe)” 。在文件列表框中列出的文件类型会自动与文件类型组合框中选择的文件类型相匹配。
(3)在文件列表框中单击一个文件名时,该文件名会显示在文件名文本框(Txt_filename)中。
(4)在文件列表框中双击一个文件名时,若是文本文件,则在文件编辑文本框(Txt_file)中显示该文件的内容并可进行编辑;若不是文本文件,则弹出一个对话框,提示“请选择文本文件! ”
(5)对于编辑后的文本文件,可在文件名文本框(Txt_filename)中输入新的文件名,并单击命令按钮(Cmd_save)进行保存。
[Visual Basic 程序代码]
Private Sub Form_Load()
Cmb_type.AddItem "所有文件(*.*)"
Cmb_type.AddItem "文本文件(*.txt)"
Cmb_type.AddItem "可执行文件(*.exe)"
Cmb_type.ListIndex = 0
File1.Pattern = "*.*": Txt_filename.Text = ""
Txt_file.Text = ""
End Sub
Private Sub Dir1_Change()
File1.Path = (1)
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub Cmb_type_click()
Select Case Cmb_type. (2)
Case 0
File1.Pattern = "*.*"
Case 1
File1.Pattern = "*.txt"
Case 2
File1.Pattern = "*.exe"
End Select
End Sub
Private Sub Cmd_save_Click()
usrFile = GetFileName() ‘函数 GetFileName 获得要保存的文件名
Open usrFile For Output As #1 ‘定义usrFile 为1 号输出文件
Print #1, Txt_file.Text ‘输出到1 号文件
Close #1
End Sub
Private Sub File1_DblClick()
If right(File1.FileName, 3)<> (3) Then
MsgBox "请选择文本文件!"
Exit Sub
End If
usrFile = GetFileName() ‘函数 GetFileName 获得要打开的文件名
Open usrFile For Input As #1‘定义usrFile 为1 号输入文件
Txt_file.Text = ""
Do While (4) EOF(1)
Line Input #1, fContext ‘从1 号文件读入一行
Txt_file.Text = Txt_file.Text + (5) + vbCrLf
Loop
Close #1
End Sub
‘其他代码略
订单号:
遇到问题请联系在线客服
订单号:
遇到问题请联系在线客服