1、国家二级 VB机试（上机操作）模拟试卷 449及答案与解析 一、基本操作题 1 (1)在名称为 Form1的窗体上画两个标签 (名称分别为 Label1和 Label2，标题分别为 “姓名 ”和 “年龄 ”)、两个文本框 (名称分别为 Text1和 Text2，初始内容均为空 )和一个命令按钮 (名称为 Command1，标题为 “显示 ”)。然后编写命令按钮的 Click事件过程。干旱序运行后，在两个文本框中分别输入姓名和年龄，然后单击 “显示 ”按钮，则在窗体上显示两个文本框中的内容，如图所示。要求程序中不得使用任何变量。注意：存盘时必须存 放在考生文件夹下，工程文件名保存为 sjt1 v
2、bp，窗体文件名保存为 sjt1 frm。 (2)在名称为 Form1的窗体上画一个图片框，其名称为 Picturel，一个水平滚动条，名称为HScrolll，一个命令按钮，名称为 Command1，标题为 “设置属性 ”，通过属性窗口在图片框中装入一个图形 (文件名为 picl jpg，位于考生目录下 )，图片框的高度与图形的高度相同。图片框的宽度任意 (如图 1所示 )。编写适当的事件过程，程序运行后，如果单击命令按钮，则设置水甲滚动条的属性如下： Mjn 100 Max 1500 LargeChange 100 SmallChange 10 之后就可以通过移动滚动条上的滚动块来放大或缩小
3、图片框。程序运行后的窗体如图 2所示。要求程序中不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vhp，窗体文件名为sjt2 frm。 二、简单应用题 2 (1)考生文件夹下有一个工程文件 sjt3 vbp，其功能是： 单击 “读数据 ”按钮，则将考生文件夹下 in3 dat文件中的 100个 0 999的整数读入剑数组 a中； 单击 “计算 ”按钮，则找出这 100个整数中的所有 水仙花数，并将它们的最大值与最小值分别显示在文本框 Texll、 Text2中 (注：当一个数的值等于该数中的各位数字的立方和时，此数被称为水仙花数。如： 153=13+53+33，所
4、以 153就是一个水仙花数 )， 在窗体文件中已经给出了全部控件 (如图所示 )和 “读数据 ”命令按钮的事件过程以及判断一个数是否为水仙花数的通用过程。要求编写 “计算 ”命令按钮的事件过程。 注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行前，必须进行 “计算 ”，并且必须通过单击窗体右上角的 “关闭 ”按钮结束程序，否则无成绩。最后，程 序按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4 vbp。请在窗体上添加一个组合框，名称为 ch1，并输入二个列表项： “3”、 “7”、 “11”(列表项的顺序不限，但必须是这三个数字 )；添加一个名为 Text1的文本
5、框；再添加一个标题为 “计算 ”、名称为 C1的命令按钮，如图所示。请编写适当的事件过程，使得住程序运行时，在组合框中选定一个数字后，单击 “计算 ”按钮，则计算 5000以内能够被该数整除的所有数之和，并放入Text1中。最后，按原文件名存盘。 提示：由于计算结果较大，应使用长整型变量。注意：考 生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须至少进行一次计算。并且必须用窗体右上角的关闭按钮结束程序，否则无成绩。三、综合应用题 3 在考生文件夹下有一个工程文件 sjt5 vbp，其窗体上有两个标签 L1和 L2，标题分别为 “口令 ”和 “允许次数 ”；一个命令按钮 C1，标题为
6、 “确定 ”；两个文本框名称分别为 Text1和 Text2。其中 Text1用来输入口令 (输入时，文本框内容显示 “*”)，初始内容为空； Text2的初始内容为 3。并给出了 C1的事件过程，但不完整，要求去掉程序中的注释符，把程序中 的 ?改为正确的内弈，使得程序运行时，在 Text1中输入口令后，单击 “确定 ”，如果输入的是 “123456”则在 Text1中显示 “口令正确 ”；如果输入其他内容，单击 “确定 ”后，弹出错误提示对话框 (如图所示 )，并且Text2中的数字减 1。最多可输入 3次口令，若 3次都输入错误，则禁止再次输入。注意：不能修改程序中的其他部分。最后将修改
7、后的文件按原文件名存盘。国家二级 VB机试（上机操作）模拟试卷 449答案与解析 一、基本操作题 1 【正确答案】 (1)步骤 1：新建一个窗体，按照题目要求建立控件并设置相应属性 ，程序中用到的控件及属性如表 3 16所示。步骤 2：打开代码编辑窗口，在指定位置编写如下代码。 参考答案 Private Sub Command1_Click() Form1 Print Text1 Text &“，现年 “& Text2 Text&“岁 “ End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 (2)步骤 1：新建一个窗体，添加控件并设置相应的属性。程序中用到的控件及其属性见表
8、3 17。步骤 2：打开代码编辑窗口，在指定位置编写如下代码。 参考答案 Private Sub Command1_Click() HScroll1 Max=1500设置滚动条的最大值、最小值、最大改变值、最小改变值 HSCroll1 Min=100 HSCroll1 LargeChange=100 HScroll1 SmallChange=10 End Sub Private Sub HSCroll1 Change() Picturel Width=HSCroll1 Valme将图片的width与滚动条的 Value保持一致 End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘
9、。 【试题解析】 (1)通过标签的 Name和 Caption属性设置标签的名称和标题，通过文本框 Name和 Text属性设置文本框的名称和文本，通过命令按钮的 Name和Caption属性设置命令按钮的名称和标题， “&”和 “+”运算符均可将两个表达式作为字符串连接。在窗体上输出文本内容可使用 Pnnt方法。 (2)在设计阶段通过 Picture属性为图片框指定显示的图片，通过 Width属性来设定或修改图片框的宽度。通过调整滚动条滑块的位置即可改变其 Value属性的值，滚动条的 Max和 Min属性限定了滚动条所能 表示的最大值和最小值，LargeChange属性用于设置当单击滑块与
10、两侧箭头间区域时 Value属性值的改变量， SmallChange属性用于设置当单击滚动条两侧箭头时 Value属性值的改变量。当改变滚动条滑块位置后将触发其 Change事件。 二、简单应用题 2 【正确答案】 (1)步骤 1：按照题目要求打开工程文件。 步骤 2：打开代码编辑窗口，在指定位置编写如下代码。 参考答案 Dim i As Integer Dim max As Integer，min As Integer max=一 1 min=1 00 0 For i=1 To 100 If isnarc(a(i)Then调用 isnarc判断是否为水仙花数 If max=a(i)Then
11、min=a(i)求水仙花数中的最大值与最小值 End If Next i Text1=max Text2=min 步骤 3：按照题目要求调试并运行程序，如图 3 18所示。 步骤 4：关闭程序后，按题目要求存盘。 (2)步骤1：打开本题工程文件，按照题目要求建立控件并设置组合框控件属性，如图3 19所示。程序中用到的控件及属性见表 3 11。步骤 2：打开代码编辑窗口，在代码编辑窗口指定位置编写以下代码。 参考答案 PriVate sub C1_Click() Dim sum As Long Dim n As Integer Dim i As Integer n=Val(cb1 Text)读取
12、选中的数字并通过函数 Val转换为数值 For i=n To 5000从本身开始循环查找 If i Hod n=0 Then sum=sum+i判断是否能被该数整除并求和 End If Next i Text1 Text=sum在Text1中显示 End Sub 步骤 3：调 试并运行程序，关闭程序后按题目要求存盘。 【试题解析】 (1)循环遍历数组 a，通过调用 Function过程判断是否为水仙花数，并通过 If语句对数值进行比较，如果 max0，则 a不能被 b整除。 组合框 (ComboBox)将文本框与列表框的特性组合在一起，既可以在组合框的文本框部分输入信息，也可在列表框部分选择项
13、目；组合框的列表项可在设计阶段通过其 List属性添加，每输入完一项后按 键换行再输入下一项；其Text属性用于设置或返回其文 本框部分当前的文本。 根据题意，用 For逐一循环 5000内的整数，通过 If语句的条件表达式： i Mod n=0，判断各个数是否能被 n整除，把能被整除的数累加到变量 sum。 i为循环变量， n的值为 Val(Cbl Text)。 三、综合应用题 3 【正确答案】 步骤 1：打开本题工程文件，将文本框 Text1的 PasswordChar属性设置为 “*”。 步骤 2：打开代码编辑窗口，去掉程序中的注释符，将问号改为正确的内容。 参考答案 Private S
14、ub C1_Click() If Text1 Text1=“123456“Then输入的口令与正确的口令相比较 Text1 Text=“口令正确 “ Text1 passwordChar=“ Else Text2 Text=Text2 Text一 1当密码错误时 Text2中的数减 1 If Text2 Text0 Then MsgBox“第 “&(3一 Text2 Text) &“次口令错误，请重新输入 “ Else MsgBox“3次输入错误，请退出 “ Text1 Enabled=False当 Text1的 Enabled属性为 false时则文本不能输入 EndIf EndIf End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 【试题解析】 本题通过判断文本框 Text1输入的密码是否为 “123456”执行不同的操作。每输入一次错误密码，将提示重新输入，直到文本框 Text2中的数值为 0时，则提示错误，并禁用文本框 Text1。
