1、国家二级 VB机试（上机操作）模拟试卷 334及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.(1)在名称为 Form1的窗体上添加两个名称分别为 Text1和 Text2的文本框，它们的高、宽分别为300、2400 和 1200、2400。窗体的标题为“窗口”。请通过属性窗口设置适当的属性，满足如下要求： Text2 可以显示多行文本，并且有垂直和水平两个滚动条； 程序运行时在 Text1中显示输入的字符为“*”. 程序运行后的窗体如图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt1vbp，窗体文件名保存为 sjt1fr
2、m。 (2)在名称为 Form1的窗体上添加一个名称为 Imagel的图像框，其高、宽分别为 1900、1700，通过属性窗口把考生文件夹下的图像文件 piclbmp 载入图像框；再画两个命令按钮控件，名称分别为 C1、C2，标题分别为“放大”、“缩小”，如图所示。 要求： 请编写适当的事件过程，程序运行后，如果单击“放大”按钮，则将图像框的高度、宽度均增加 100；单击“缩小”按钮，则将图像框的高度、宽度均减少 100，要求程序中不得使用任何变量。 通过属性窗口设置图像框的适当属性，使得在放大、缩小图像框时，其中的图像也自动放大、缩小。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为
3、sjt2vbp，窗体文件名保存为 sjt2frm。 （分数：2.00）_二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sjt3vbp。程序运行后，单击“读人数据”按钮，可将考生文件夹下 in3txt 文件中的所有英文单词读入，并在 Textl文本框中显示；单击“插入列表框”按钮，则按顺序将每个单词作为一项添加到 List1列表框中(如图所示)。 在 in3txt 文件中，每个单词之间用一个空格字符隔开，最后一个单词的后面没有空格。已经给出了所有控件和程序，但程序不完整。 要求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其能正确运行，但不能修改程序
4、中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。 (2)在考生文件夹下有一个工程文件sjt4vbp，窗体上已经添加所有控件，如图所示。在程序运行时，如果单击“开始”按钮，则每隔 01秒窗体上的汽车图标向右移动一次(初始状态下不移动)；如果单击“停止”按钮，则停止移动。 请完成以下工作： （分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sjt5vbp。其窗体中有 2个标题分别为“读数据”和“查找水仙花数”的命令按钮。请画 1个名称为 Text1、初始值为空的文本框，该文本框允许显示多行内容，且有垂直滚动条，如图所示。 程序功能如
5、下： (1)考生文件夹下 in5dat 文件中存放着 100个三位正整数。单击“读数据”按钮，则将 in5dat 文件中的数据读入数组 a中； (2)单击“查找水仙花数”按钮，则查找in5dat 中的所有水仙花数，并将这些水仙花数顺次显示在 Text1文本框内。(水仙花数是指一个 3位数，它各位数字的立方和等于它本身，例如 153就是水仙花数，因为 153=1 3 +5 3 +3 3 ) “读数据”按钮的Click事件过程已经给出，请编写函数 narc，以完成“查找水仙花数”按钮的 Click事件过程，实现上述功能。 （分数：2.00）_国家二级 VB机试（上机操作）模拟试卷 334答案解析(
6、总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.(1)在名称为 Form1的窗体上添加两个名称分别为 Text1和 Text2的文本框，它们的高、宽分别为300、2400 和 1200、2400。窗体的标题为“窗口”。请通过属性窗口设置适当的属性，满足如下要求： Text2 可以显示多行文本，并且有垂直和水平两个滚动条； 程序运行时在 Text1中显示输入的字符为“*”. 程序运行后的窗体如图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt1vbp，窗体文件名保存为 sjt1frm。 (2)在名称为 Form1的窗体上添加一个名称为 I
7、magel的图像框，其高、宽分别为 1900、1700，通过属性窗口把考生文件夹下的图像文件 piclbmp 载入图像框；再画两个命令按钮控件，名称分别为 C1、C2，标题分别为“放大”、“缩小”，如图所示。 要求： 请编写适当的事件过程，程序运行后，如果单击“放大”按钮，则将图像框的高度、宽度均增加 100；单击“缩小”按钮，则将图像框的高度、宽度均减少 100，要求程序中不得使用任何变量。 通过属性窗口设置图像框的适当属性，使得在放大、缩小图像框时，其中的图像也自动放大、缩小。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt2vbp，窗体文件名保存为 sjt2frm。 （分数
8、：2.00）_正确答案：(正确答案：(1) 【操作步骤】 步骤 1：新建一个窗体，按照题目要求建立文本框控件并设置其属性，程序中涉及的控件及属性见表 38 和表 39。 步骤 2：调试并运行程序，关闭程序后按题目要求存盘。 (2) 【操作步骤】 步骤 1：新建一个窗体，按照题目要求建立控件并设置图像框相应属性，如图 317 所示。 步骤 2：按照步骤 1设置其他控件相关属性，程序中涉及的控件及属性见表310。 )解析：二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sjt3vbp。程序运行后，单击“读人数据”按钮，可将考生文件夹下 in3txt 文件中的所有
9、英文单词读入，并在 Textl文本框中显示；单击“插入列表框”按钮，则按顺序将每个单词作为一项添加到 List1列表框中(如图所示)。 在 in3txt 文件中，每个单词之间用一个空格字符隔开，最后一个单词的后面没有空格。已经给出了所有控件和程序，但程序不完整。 要求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。 (2)在考生文件夹下有一个工程文件sjt4vbp，窗体上已经添加所有控件，如图所示。在程序运行时，如果单击“开始”按钮，则每隔 01秒窗体上的汽车图标向右移动一次(初始状态下不移动)
10、；如果单击“停止”按钮，则停止移动。 请完成以下工作： （分数：2.00）_正确答案：(正确答案：(1) 【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符“”，将问号改为正确的内容。 Private Sub Commandl_Click() Dim St$ch$ Open AppPath&”in3txt”For In put As #1打开文件 Do While Not EOF(1)文件指针是否到达文件末尾 Input #1，ch达到文件末尾返回 true否则返回 false st=atch将读出的数据加到原有数据末尾 Loop Close #1关闭文
11、件 Text1=st将内容显示在文本框中 End Sub Private Sub Command2_Click() Dim st$，word$，C$ St=Text1 n=Len(St) For k=1 To n c=Mid(st，k，1)从 st中依次取出 1个字符进行比较 If C”Then word=WOrdC Else List1AddItem word word=“”将 word清空，为下一次作准备 End If Next List1AddItem Word End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 (2) 【操作步骤】 步骤 1：打开本题工程文件，设置计
12、时器 Interval的属性为 100，将 Enabled属性设置为 False。 步骤 2：打开代码编辑窗口，在指定位置编写如下代码。 Private Sub Timerl_Timer() P1Left=P1Left+20 End Sub 需要考生编写的内容 Private Sub C1_Click() Timer1Enabled=True End Sub Private Sub C2_Click() Timer1Enabled=False End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。)解析：三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件
13、 sjt5vbp。其窗体中有 2个标题分别为“读数据”和“查找水仙花数”的命令按钮。请画 1个名称为 Text1、初始值为空的文本框，该文本框允许显示多行内容，且有垂直滚动条，如图所示。 程序功能如下： (1)考生文件夹下 in5dat 文件中存放着 100个三位正整数。单击“读数据”按钮，则将 in5dat 文件中的数据读入数组 a中； (2)单击“查找水仙花数”按钮，则查找in5dat 中的所有水仙花数，并将这些水仙花数顺次显示在 Text1文本框内。(水仙花数是指一个 3位数，它各位数字的立方和等于它本身，例如 153就是水仙花数，因为 153=1 3 +5 3 +3 3 ) “读数据”
14、按钮的Click事件过程已经给出，请编写函数 narc，以完成“查找水仙花数”按钮的 Click事件过程，实现上述功能。 （分数：2.00）_正确答案：(正确答案：【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：向窗体中添加一个 Text文本框控件，并根据题目要求设置 Text的相关属性，设置方法如表 47 所示，设置结果如图 46 所示。步骤 3：打开代码编辑窗口，填人相应的代码以实现题目的功能。 Function narc(p As Integer)As Boolean Dim flag As Boolean flag=False If(p Mod 10)3+(p/10 Mod 10)3+(p/100)3=p Then flag=True End If narc=flag End Function 步骤 4：调试并运行程序，结果如图 47 所示。关闭程序后按题目要求存盘。 )解析：
