1、国家二级 VB机试（上机操作）模拟试卷 87及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上画出如图 3-48所示的三角形。下表给出了直线 Linel、 Line2的坐标值，请按此表画 Line1、 Line2，并画出直线 Line3，从而组成如图 3-48所示的三角形。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1 vbp，窗体文件名为 sjt1 frm。 (2)在名称为 Forml的窗体上画一个名称为 IAstl的列 表框，并任意输入若干列表项；再画一个名称为 Text1
2、的文本框，无初始内容。请编写 List1和 Text1的 Click事件过程。程序运行后，如果单击列表框中的某一项，则在文本框中显示该项相应的顺序号，若单击第一项，则在文本框中显示 1；若单击第二项，则在文本框中显示2，以此类推 (如图 3-49所示 )；如果单击文本框，则把该列表项的内容显示在文本框中。 注意：要求程序中不得使用变量，事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为sjt2 frm。 二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sit3 vbp，相应的窗体文件为 sit3 frm，包含了所有控件和部分程序，如图
3、390所示。要求如下： 利用属性窗口向列表框添加四个项目： Visual Basic、 Turbo C、 C+、 Java。 请编写适当的程序完成以下功能：当选择列表框中的一项和单选按钮 Optionl，然后单击 “确定 ”按钮，则文本框中显示 “笔试 ”；当选择列表框中的一项和单选按钮 Option2，然后单击 “确定 ”按钮，则文本框中显示 “上机 ”。其中 “”是在列表框中所选择的项目。注意：考生不得修改窗体文件中已经存在的程序，退出程序时必须通过单击窗体右上角的关闭按钮。在结束程序运行之前，必须至少要进行一次选择操作 (包括列表框和单选按钮 )，否则不得分。最后把修改后的文件按原文件名
4、存盘。(2)在考生文件夹下有一个工程文件 sjt4 vbp，相应的窗体文件为 sil： 4 frm。在窗体上有一个命令按钮，其名称为 Commandl，标题为 “计算并输出 ”。程序运行后，如果单击命令按钮，程序将计算 500以内两个数之间 (包括开头和结尾的数 )所有连续数的和为 1250的正整数，并在窗体上显示出来。这样的数有 多组，程序输出每组开头和结尾的正整数，并用 “ ”连接起来，如图 3-91所示。该程序不完整，请把它补充完整。 要求：去掉程序中的注释符，把程序中的 ?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。最后用原来的文件名保存工程文件和窗体文件。 三、综合应
5、用题 3 在窗体上画一个文本框，名称为 Text1(可显示多行 )，然后再画三个命令按钮，名称分别为 Command1、 Command2和 Cornmand3，标题分别为 “读数 ”、 “统计 ”和 “存盘 ”，如图 3 67所示。程序的其功能是：单击 “读数 ”按钮，则把 考生目录下的in5 txt文件中的所有英文字符放入 Text1(可多行显示 )；单击 “统计 ”按钮，找出并统计英文字母 i、 i、 k、 1、 m、 n(不区分大小写 )各自出现的次数；单击 “存盘 ”按钮，将字母 i n出现次数的统计结果依次存到考生目录下的顺序文件 out5 txt中。 注意：存盘时必须存放在考生文
6、件夹下，工程文件名为sit5 vbp，窗体文件名为 sjt5 frm。 国家二级 VB机试（上机操作）模拟试卷 87答案与解析 一、基本操作题 1 【正确答案】 第 1小题【操作步骤】步骤 1：新建一个 “标准 EXE”工程，按 表4 29在窗体中画出控件并设置其相关属性。步骤 2：按要求将文件保存至考生文件夹中。第 2小题【操作步骤】步骤 1：新建一个 “标准 EXE”工程，按表 4 30在窗体中画出控件并设置其相关属性。 步骤2：打开代码编辑窗口，编写列表框和文本框的单击事件过程。 参考代码： Private Sub List1_Click() Text1 Text=Listl ListI
7、rldex+1End SubPrivate Sub Text； 1_Click() Text1 Text： =List1 List： (List1 List Index)End Sub步骤 3：按要求将文件保存至考生文件夹中； 二、简单应用题 2 【正确答案】 第 1小题 【操作步骤】 步骤 1：打开考生文件夹下的工程文件 sjt3 vbp，在窗体上选中列表框，为其 List属性输入四个项目： Visual Basic、 Turbo C、 C+、 Java，注意每输入一项后用+键换到下一项输入。 步骤 2：打开代码编辑窗口，编写 “确定 ”按钮的单击事件过程。 参考代码： If Optionl
8、 Value And LiStl Text“”Then Textl Text=Listl Text&Option2 Caption End If End If 步骤 3：按要求将文件保存至考生文件夹中。 步骤 4：按 键运行程序，在列表框中选择一项，并选中一个单选按钮，单击“确定 ”按钮，单击窗体右上角的关闭按钮结束程序。 第 2小题 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sit4 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： iSum=0 iSum=iSum+j If iSum=1250 Then 步骤 2：按要求将文件保存至
9、考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步骤】步骤 1：新建一个 “标准 EXE”工程，如表 4 39所示，在窗体中画出控件并设置其相关属性。步骤 2：打开代码编辑 窗口，编写相应事件过程。参考代码： Optlon BaSe 1Dim sum(6)As IntegerPrivate Sub Commandl C1iCk() Open App Path “ in5 txt”For Input As#1 Text 1 Text=Input(LOF(1)， #1) Close#1End SubPrivate Sub Command2 Click() For i=1 To 6 sum(
10、i)=0 Next i If Len(Textl Text)=0 Then MsgBox“请先使用 “读数 ”功能 !” Else For i=1 To Len(Textl Text) C=LCase(Mid(Textl Text， i， 1) Select Case c Case“i” sum(1)=sum(1)+1 Case“j” sum(2)=sum(2)+1 Case“k” sum(3)=sum(3)+1 Case“1” sum(4)=sum(4)+1 Case“m” sum(5)=sum(5)+1 Case“n” sum(6)=sum(6)+1 End Select Next i End If End Sub Private Sub Command3 Click() Open App Path “out5 txt”For OutputAS#1 For i=1 To 6 Print#1， sum(i) Next i Close#1 End Sub步骤3：按要求将文件保存至考生文件夹中。
