1、国家二级 VB机试（上机操作）模拟试卷 334及答案与解析 一、基本操作题 1 (1)在名称为 Form1的窗体上添加两个名称分别为 Text1和 Text2的文本框，它们的高、宽分别为 300、 2400和 1200、 2400。窗体的标题为 “窗口 ”。请通过属性窗口设置适当的属性，满足如下要求： Text2可以显示多行文本，并且有垂直和水平两个滚动条； 程序运行时在 Text1中显示输入的字符为 “*”. 程序运行后的窗体如图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt1 vbp，窗体文件名保存为 sjt1 frm。 (2)在名称为 Form1的窗体上添加一个名称
2、为 Imagel的图像框，其高、宽分别为 1900、 1700，通过属性窗口把考生文件夹下的图像文件 picl bmp载入图像框；再画两个命令按钮控件，名称分别为 C1、 C2，标题分别为 “放大 ”、 “缩小 ”，如图所示。 要求： 请编写适当的事件过程，程序运行后，如果单击 “放大 ”按钮，则将图像框的高度、宽度均增加 100；单击 “缩小 ”按钮，则将图像框的高度、宽度均减少 100，要求程序中不得使用任何变量。 通过属性窗口设置图像框的适当属性，使得在放大、缩小 图像框时，其中的图像也自动放大、缩小。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt2 vbp，窗体文件名保
3、存为 sjt2 frm。 二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp。程序运行后，单击 “读人数据 ”按钮，可将考生文件夹下 in3 txt文件中的所有英文单词读入，并在 Textl文本框中显示；单击 “插入列表框 ”按钮，则按顺序将每个单词作为一项添加到 List1列表框中 (如图所示 )。 在 in3 txt文件中，每个单词之间用一个空格字符隔开，最后一个单词的后面没有空 格。已经给出了所有控件和程序，但程序不完整。 要求：请去掉程序中的注释符，把程序中的 ?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和
4、窗体文件。(2)在考生文件夹下有一个工程文件sjt4 vbp，窗体上已经添加所有控件，如图所示。在程序运行时，如果单击 “开始 ”按钮，则每隔 0 1秒窗体上的汽车图标向右移动一次 (初始状态下不移动 )；如果单击 “停止 ”按钮，则停止移动。 请完成以下工作： 设置适当控件的适当属性，使得每 0 1秒汽车图标向右移动一次，而初始 状态下不移动。 请去掉程序中的注释符，把程序中的 ?改为正确的内容。 为两个命令按钮编写适当的事件过程，最后以原文件名存盘。 注意；不得修改已经给出的程序。编写事件的过程中不能使用变量，每个事件过程中只能有一条语句。 三、综合应用题 3 在考生文件夹下有一个工程文件
5、 sjt5 vbp。其窗体中有 2个标题分别为 “读数据 ”和 “查找水仙花数 ”的命令按钮。请画 1个名称为 Text1、初始值为空的文本框，该文本框允许显示多行内容，且有垂直滚动条，如图所示。 程序功能如下： (1)考生文件夹下 in5 dat文件中存放 着 100个三位正整数。单击 “读数据 ”按钮，则将in5 dat文件中的数据读入数组 a中； (2)单击 “查找水仙花数 ”按钮，则查找in5 dat中的所有水仙花数，并将这些水仙花数顺次显示在 Text1文本框内。 (水仙花数是指一个 3位数，它各位数字的立方和等于它本身，例如 153就是水仙花数，因为 153=13+53+33) “
6、读数据 ”按钮的 Click事件过程已经给出，请编写函数 narc，以完成 “查找水仙花数 ”按钮的 Click事件过程，实现上述功能。注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之 前，必须使用 “查找水仙花数 ”按钮完成查找水仙花数的过程，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 334答案与解析 一、基本操作题 1 【正确答案】 (1) 【操作步骤】 步骤 1：新建一个窗体，按照题目要求建立文本框控件并设置其属性，程序中涉及的控件及属性见表 3 8和表 3 9。步骤 2：调试并运行程序，关闭程
7、序后按题目要求存盘。 (2) 【操作步骤】 步骤 1：新建一个窗体，按照题目要求建立控件并设置图像框相应属性，如图 3 17所示。步骤 2：按照步骤 1设置其他控件相关属性，程序中涉及的控件及属性见表 3 10。步骤 3：打开代码编辑窗口，在指定位置编写如下代码。 Private Sub C1 C1ick()当单击 ”放大 ”按钮时，依次将 Image1的高与宽分别加 100 Image1 Height=Image1 Height+i00 Image1 Width=Image1 Width+100 End Sub Private Sub C2 Click()当单击 ”缩小 ”按钮，则依次将 I
8、mage1的高与宽分别减 100 Image1 Height=Image1 Height100 Image1 Width=Image1 Width一 100 End Sub 步骤 4：调试并运行程序，关闭程序后按题目要求存盘。 二、简单应用题 2 【正确答案】 (1) 【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内 容。 Private Sub Commandl_Click() Dim St$ ch$ Open App Path&” in3 txt”For In put As #1打开文件 Do While Not EOF(
9、1)文件指针是否到达文件末尾 Input #1， ch达到文件末尾返回 true否则返回 false st=at ch将读出的数据加到原有数据末尾 Loop Close #1关闭文件 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=WOrd C Else List1 AddItem word word=“”将 word清空，为下一
10、次作准备 End If Next List1 AddItem Word End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 (2) 【操作步骤】 步骤 1：打开本题工程文件，设置计时器 Interval的属性为 100，将 Enabled属性设置为 False。 步骤 2：打开代码编辑窗口，在指定位置编写如下代码。 Private Sub Timerl_Timer() P1 Left=P1 Left+20 End Sub 需要考生编写的内容 Private Sub C1_Click() Timer1 Enabled=True End Sub Private Sub C2_Cl
11、ick() Timer1 Enabled=False End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开本题工程文件。步骤 2：向窗体中添加一个 Text文本框控件，并根据题目要求设置 Text的相关属性，设置方法如表 4 7所示，设置结果如图 4 6所示。 步骤 3：打开代码编辑窗口，填人相应的代码以实现题目的功能。 Function narc(p As Integer)As Boolean Dim flag As Boolean flag=False If(p Mod 10)3+(p10 Mod 10)3+(p100)3=p Then flag=True End If narc=flag End Function 步骤 4：调试并运行程序，结果如图 4 7所示。关闭程序后按题目要求存盘 。
