【计算机类职业资格】VB机试-试卷49及答案解析.doc

1、VB 机试-试卷 49 及答案解析(总分：12.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.00）_2.请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。 (1)在名称为 Forml 的窗体上放置两个列表框，名称分别为 Listl 和 Ljst2。在 Listl 中添加“Iteml”“Itern6”，并设置MultiSelect 属性为 2(要求在控件属性中设置实现)。再放置一个名称为 Commandl、标题为“导出”的命令按钮。程序运行后，如果单击“导出”按钮，将 Listl 中选中的内容(至少三项)复

2、制到 List2 中，并将对应的项从 Listl 中删除。如果选择的项数少于 3 项，用消息框提示“请选择至少 3 项”，如图 631 所示。 注意：保存时必须存放在考生文件夹下，窗体文件名为 sjlfrm，工程文件名为 sjlvbp。 (2)在名称为 Forml 的窗体上放置一个名称为 Textl 的文本框。程序运行后，用户在文本框中输入的英文字母一律用小写显示。如图 632 所示。 （分数：2.00）_二、简单应用题(总题数：2，分数：4.00)3.简单应用题（）（分数：2.00）_4.(1)请在窗体上面画两个文本框，其名称分别为 Textl 和 Text2，文本框内容设置为“模拟考试”和

3、“顺利通过”。然后画两个单选按钮，其名称分别为 Optionl 和 Option2，标题分别为“交换”和“连接显示”，编写适当的事件程序。程序运行后，如果选中“交换”单选按钮，则交换显示 Textl 和 Text2 中的内容；如果选中“连接显示”单选按钮，则连接后的内容显示在 Textl 中，初始状态不选中任何单选按钮。如图 123 所示。存盘时，工程文件名为 Sj3vbp，窗体文件名为 sj3frm。 注意：在结束程序运行时，必须先选中一个单选按钮，并单击窗体。退出程序时必须通过单击窗体右上角的关闭按钮，并将连接显示后的结果输出到考生文件夹下的 outtxt 文件中，否则可能无成绩。 (2)

4、在考生文件夹下有工程文件 sj4vbp 及窗体文件 sj4frm，在窗体上有两个命令按钮，名称分别为 Commandl 与 Command2、标题分别为“读取文本”、“保存”。另有一个文本框，文本框的名称为 Text1，Text 属性为空，可多行显示。要求在运行程序时，单击“读取文本”按钮，可以读入考生文件夹下的 in4.txt 并显示在文本框中；单击“保存”按钮，可以把文本框中的数据存到考生文件夹下的另一个文件 out4txt 中。程序运行时的窗体界面如图 124 所示。 （分数：2.00）_三、综合应用题(总题数：2，分数：4.00)5.综合应用题（）（分数：2.00）_6.在考生文件夹下

5、有一个工程文件 sj5vbp，包含了所有控件和部分程序。当程序运行时，单击“打开文件”按钮，则弹出“打开”对话框，默认目录为考生目录，默认文件类型为“文本文件”。选中in5txt 文件(如图 305 所示)，单击“打开”按钮，则把文件中的内容读入并显示在文本框(Textl)中；单击“修改内容”按钮，则将 Textl 中的大写字母“E”、“N”、“T改为小写，把小写字母“e”、“n”、“t”改为大写；单击“保存文件”按钮，则弹出“另存为”对话框，默认文件类型为“文本文件”，默认文件夹为考生文件夹，默认文件为“out5txt”(如图 306 所示)，单击“保存”按钮，则将Textl 中修改后的内容

6、存到 out5txt 文件中。 （分数：2.00）_VB 机试-试卷 49 答案解析(总分：12.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.00）_解析：2.请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。 (1)在名称为 Forml 的窗体上放置两个列表框，名称分别为 Listl 和 Ljst2。在 Listl 中添加“Iteml”“Itern6”，并设置MultiSelect 属性为 2(要求在控件属性中设置实现)。再放置一个名称为 Commandl、标题为“导出”的命令按钮。程序运行后，如果单击

7、“导出”按钮，将 Listl 中选中的内容(至少三项)复制到 List2 中，并将对应的项从 Listl 中删除。如果选择的项数少于 3 项，用消息框提示“请选择至少 3 项”，如图 631 所示。 注意：保存时必须存放在考生文件夹下，窗体文件名为 sjlfrm，工程文件名为 sjlvbp。 (2)在名称为 Forml 的窗体上放置一个名称为 Textl 的文本框。程序运行后，用户在文本框中输入的英文字母一律用小写显示。如图 632 所示。 （分数：2.00）_正确答案：(正确答案：(1)向列表框中添加项目可以用 AddItem 方法添加，也可以在属性窗口中进行。列表框的 Text 属性为最后

8、一次选中的 表项的文本。 根据题意，新建“标准 EXE”工程，将两个列表框控件和一个命令按钮添加到窗体中，列表框的名称分别为 Listl 和 List2，在 Listl 中 List 属性中添加“Iteml”、“Item2”、“Item3”、“Item4”、“Item5”和“Item6”，命令按钮的名称为Commandl、Caption 属性为“导出”，在 Listl 中选中的项，通过 for 循环进行复制并删除。补充后的具体代码如下： Private Sub Commandl_Click() Dim i As Integer i=1 If ListlSelCountInput As#1 打开

9、文件，进行读取 While EOF(1)=False 判断文件是否读取完 Input#1，str读取文本 Textl Text =Textl Text +str在 Textl 中显示文本 Wend Close#1 End Sub Private Sub Command2_Click() Open”AppPath&out4txt”For Output As#2 Print#2，Textl Text 将文本保存到 sjouttxt文件中 Close#2 End Sub 单击 )解析：三、综合应用题(总题数：2，分数：4.00)5.综合应用题（）（分数：2.00）_解析：6.在考生文件夹下有一个工程

10、文件 sj5vbp，包含了所有控件和部分程序。当程序运行时，单击“打开文件”按钮，则弹出“打开”对话框，默认目录为考生目录，默认文件类型为“文本文件”。选中in5txt 文件(如图 305 所示)，单击“打开”按钮，则把文件中的内容读入并显示在文本框(Textl)中；单击“修改内容”按钮，则将 Textl 中的大写字母“E”、“N”、“T改为小写，把小写字母“e”、“n”、“t”改为大写；单击“保存文件”按钮，则弹出“另存为”对话框，默认文件类型为“文本文件”，默认文件夹为考生文件夹，默认文件为“out5txt”(如图 306 所示)，单击“保存”按钮，则将Textl 中修改后的内容存到 ou

11、t5txt 文件中。 （分数：2.00）_正确答案：(正确答案： 本题主要考查文件操作，通用对话框的 InitDir、Filterlndex、Filter 和Action，通用对话框的 ShowOpen 方法，For 循环语句，If 判断选择语句，AppPath 相对路径，Mid()函数，Len()函数，Ucase()函数以及 Lease()函数。根据题意，编写如下代码： Option Explicit Private Sub Commandl_Click() Dim S As String CommonDialoglFilter=“所有文件|*|文本文件|*txt“ CommonDialog

12、lFilterIndex=2 On Error GoTo openerr CommonDialoglInitDir=AppPath CommonDialoglShowOpen Open CommonDialoglFileName For Input As#1 Input#1，S Close#1 TextlText=s openerr； End Sub Private Sub Command2 Click() 考生需要编写的程序 Dim ch As String Dim S As String Dim n As Long s=TextlText TextlText=“ For n=1 To Le

13、n(s) ch=Mid(s，n，1) If eh=“E“Or ch=“N“Or ch=“T“Then ch=LCase(ch) Elself ch=“e“Or ch=“n“Or ch=“t“Then ch=UCase(ch) End If TextlText=Textl&ch Next n End Sub Private Sub Command3 Click() CommonDialoglFilter=“文本文件|*txtl 所有文件|*“ CommonDialoglFilterIndex=1 On Error GoTo openerr CommonDialoglFileName=“out5txt“ CommonDialoglInitDir=AppPath CommonDialoglAction=2 Open CommonDialoglFileName For Output As#l Print#1，Textl Close#1 openerr： End Sub 单击 )解析：