1、国家二级 VB机试（上机操作）模拟试卷 79及答案与解析 一、基本操作题 0 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 1 在名称为 Form1的窗体上画一个图片框，名称为 P1，高为 1800，宽为 1700，通过属性窗口把图形文件 pic1 bmp放到图片框中 (如图 3-193所示 )。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1 vbp，窗体文件名为 sjt1 frm。 2 在名称为 Form1的窗体上画两个文本框，名称分别为 Text1、 Text2，都显示垂直滚动条和水平滚动条，都可以显示多行文本；再画一个命令按钮，名称为
2、C1，标题为 “复制 ”(如图 3-194所示 )。请编写适当的事件过程，使得在运行时，在 Text1中输入文本后，单击 “复制 ”按钮，就把 Text1中的文本全部复制到 Text2中。程序中不得使用任何变量。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 Frm。 二、简单应用题 3 在考生文件夹下有一个工程文件 sjt3 vbp，相应的窗体文件为 sjt3 frm。在窗体上有一个命令按钮，其名称为 Command1，标题为 “添加 ”；有一个文本框，名称为 Text1，初始内容为空白；有一个列表框，名称为 List1。程序运行后，在文本框中输
3、入一个英文句子 (由多个单词组成，各单词之间用一个空格分开 )，然后单击“添加 ”按钮，程序将把该英文句子分解为单词，并把每个单词作为一个项目添加到列表框中，如图 3-195所示。该程序不完整，请补充完整。 要求：去掉程序中的注释符，把程序中的 ?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 4 在考生文件夹下有一个工程文件 sjt4 vbp，其 中的窗体中有一个组合框和一个命令按钮 (如图 3-196所示 )。程序的功能是在运行时，如果在组合框中输入一个项目并单击 “添加 ”按钮，则搜索组合框中的项目，如果没有此项，则把此项添加到列表中；如果
4、有此项，则弹出提示 “已有此项 ”，然后清除输入的内容。 要求：去掉程序中的注释符，把程序中的 ?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的文件以原来的文件名存盘。 三、综合应用题 5 在考生文件夹下有文件 in5 txt，文件中有几行汉字。请在 Form1的窗体上画 一个文本框，名称为 Text1，能显示多行；再画一个命令按钮，名称为 C1，标题为“存盘 ”。编写适当的事件过程，使得在加载窗体时，把 in5 txt文件的内容显示在文本框中，然后在文本的最前面手工插入一行汉字 “计算机等级考试 ”(如图 3-197所示 )。最后单击 “存
5、盘 ”按钮，把文本框中修改过的内容存到文件 out5 txt中。 注意：只能在最前面插入文字，不能修改原有文字。文件必须存放在考生文件夹下，以 sjt5 vbp为文件名存储工程文件，以 sjt5 frm为文件名存储窗体文件。 国家二级 VB机试（上机操作）模拟 试卷 79答案与解析 一、基本操作题 1 【正确答案】 审题分析 本题只需在窗体上画出控件和设置相应属性即可。 操作步骤 步骤 1：新建一个 “标准 EXE”工程，按要求画出控件并设置属性。 步骤 2：按要求将文件保存至考生文件夹中。 考点链接 图形控件。 2 【正确答案】 审题分析 为让文本框能显示多行，应将其 MultiLine属性
6、值设置为 True，显示垂直滚动条和水平滚动条需要将 ScrollBars属性值设置为 3。在 “复制 ”按钮的单击事件过程中，将 Text1的 Text属性赋值给 Text2的 Text属性。 操作步骤 步骤 1：新建一个 “标准 EXE”工程。按要求画出控件并设置属性。 步骤 2：打开代码编辑窗口，编写命令按钮的单击事件过程。 参考代码： Private Sub C1_Click() Text2 Text=Text1 Text End Sub 步骤 3：按要求将文件保存至考生文件夹中。 考点链接 文本控件。 二、简单应用题 3 【正确答案】 审题分析 程序设 计思路：从文本框的 第一个字符
7、开始依次检查其后面的每一个字符，若发现空格则将其之前或两个空格之间的字符串作为一个单词添加到列表框中。在 Do循环 (指内循环 )，循环条件为：取出的字符为非空格字符且取字符的起始位置没有超出文本框的总字符数，表达式为： Mid(S1， I1， 1) “ “And Il =Len(S1)，其中S1=Text1 Text，将 Mid函数从文本框中取出的非空格字符，逐个连接成一个单词，语句为： S2=S2 Mid(S1， I1， 1)，每执行一次循环体取字符的起始位置加1，即 I1=l1+1。当遇到空格时结束循环，将得到的 单词 (即变量 S2的值 )用 AddItem方法添加到列表框中，并且清空
8、变量 S2，将取字符的起始位置加 1。 之后继续执行内循环以得到下一个单词，直到取字符的起始位置 (即变量 I1的值 )超过文本框的总字符数为止，外循环的条件为： 11 =Len(S1)。 操作步骤 步骤 1：打开考生文件夹下的工程文件 sjt3 vbp。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： S1=Text1 Text Do While Mid(S1， I1， 1)“ “And I1 =Len(S1) List1 AddItem S2 S2=“ “ 步骤 3：按要求将文件保存至考生文件夹中。 考点链接 多重循环、选择控件、常用内部函
9、数。 4 【正确答案】 审题分析 本题 “添加 ”按钮的单击事件过程源代码设计思路：利用 For循环语句 (初值为 0，终值为 Cb1 ListCount-1)，逐一判断组合框列表框中的各项是否与文本输入框中的内容一致 (条件表达式为 Cb1 List(i)= Cb1 Text)，若一致则设置布尔型变量flag的值为 True，并且退出循环，否则设置变量 flag的值为 False。 循环结束后，通过判断 flag的值是否为 True(条件表达式为 flag=True，可简写为flag)，如果条件为真，则利用 MsgBox语句显示 “项目已存在，请重新输入 !”，否则利用 AddItem方法将
10、当前文本输入框中的内容 (Cb1 Text)添加到组合框列表框中。 操作步骤 步骤 1：打开考生文件下的本题工程文件 sjt4 vbp。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： For i=O To Cb1 ListCount-1 If Cb1 List(i)=Cb1 Text Then Cb1 AddItem Cb1 Text 考点链接 选择控件、 For循环结构。 三、综合应用题 5 【正确答案】 审题分析 程序设计思路：在窗体的加载事件过程中，用 Open语句以 Input方式打开数据文件 in5 txt，并用 LineInput
11、语句读出所有字符后显示在文本框中；在 “存盘 ”按钮的单击事件过程中，用 Open语句以 Output方式打开数据文件 out5 txt，并用Print#方将文本框的内容存入该文件。 操作步骤 步骤 1：新建一个 “标准 EXE”工程，按要求画出控件并设置属性。 步骤 2：打开代码编辑窗口，编写相应事件过程。 参考代码： PriVate Sub C1_Click() Oper1“out5 txt“For Output As #1 Print #1， Text1 Text Close #1 End Sub PriVate Sub Form_Load() Open “in5 txt“ For Input Ks #1 Text1 Text=“ “ Do While Not EOF(1) LineInput #1， a$ Text1 Text=Text1 Text+a$+Chr(13)+Chr(10) Loop Close #1 End Sub 步骤 3：按 键运行程序，在文本的最前面手工插入一行汉字： “计算机等级考试 ”，然后单击 “存 盘 ”按钮保存结果。 步骤 4：按要求将文件保存至考生文件夹中。 考点链接 顺序文件、 Do循环和 While循环。
