1、国家二级 VB机试（上机操作）模拟试卷 145及答案与解析 一、基本操作题 1 (1)在名称为 Form1的窗体上添加两个名称分别为 Text1和 Text2的文本框，它们的高、宽分别为 300、 2400和 1200、 2400。窗休的标题为 “窗口 ”。请通过属性窗口设置适当的属性，满足如下嘤求： (1)Text2可以显示多行文本，并且有垂直和水平两个滚动条； 程序运行时在 Tex1中显示输入的字符为 “*”。 程序运行后的窗体如图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt1 vbp，窗体文件名保 存为 sjt1 frm。 (2)在名称为 Form1的窗休上添加一
2、个名称为 Image1的图像框，其高、宽分别为 1900、 1700，通过属性窗口把考生文件夹下的图像文件pic1 bmp载入图像框；再画两个命令按钮摔什，名称分别为 C1、 C2，标题分别为 “放大 ”、 “缩小 ”，如图所示。 要求： 请编写适当的事件过程，程序运行后，如果单击 “放入 ”按钮，则将图像框的高度、宽度均增加 100；单击 “缩小 ”按钮，则将图像框的高度、宽度均减少 100，要求程序中不得使用任何变量。 通过属性窗口设置图像框的适当属性，使得在放大、缩 小图像框时，其中的图像也自动放大、缩小。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt2 vbp，窗体文件
3、名保存为 sjt2 frm。二、简单应用题 2 (1)考生文件夹下有一个工程文件 sjt3 vbp，其功能是： 单击 “读数据 ”按钮，则将考生文件央下 in3 dat文件中的 100个 0 999的整数读入到数组 a中； 单击 “计算 ”按钮，则找出这 100个整数中的所有水仙花数，并将它们的最大值与最小值分别显示在文本框 Text1、 Texl2中 (注：当一个数的值等十该数中的各位数字的立方和时，此 数被称为水仙花化数。如： 153 13 53 33，所以 153就是一个水仙花数 )。 在窗体文件中已经给出了全部控件 (如图所示 )和 “读数据 ”命令按钮的事件过程以及判断一个数是否为水
4、仙花数的通用过程。要求编写 “计算 ”命令按钮的事件过程。 注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行前，必须进行 “计算 ”，并且必须通过单击窗体右上们的 “关闭 ”按钮结束程序，否则无成绩。最后，程序按原文件名存盘。 (2)在考生文件央下有一个工程文件 sjt4 vbp。请在窗体上添加一个组合框，名称为cb1，并输入三个 列表项： “3”、 “7”、 “11”(列表项的顺序不限，但必须是这二个数字 )；添加一个名为 Text1的文本框；再添加一个标题为 “计算 ”、名称为 C1的命令按钮，如图所示。请编写适当的事什过程，使得在程序运行时，在组合框中选定一个数字后，单击
5、 “计算 ”按钮，则计箅 5000以内能够被该数整除的所有数之和，并放入 Text1中。最后，按原文件名存盘。 提示：由丁计算结果较大，应使用长整型变量。 注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须至少进行一次计算。并且必须用窗体右上角的关闭按钮结束程序，否则 无成绩。 三、综合应用题 3 在考生文件夹下有一个工程文件 sjt5 vbp，其名称为 Form1的窗体上已有三个文本框 Text1、 Text2、 Text3，以及部分程序代码，请完成以下工作。 在属性窗扣中修改 Text3的适当属性，使其在运行时不显示，作为模拟的剪贴板使用，窗体如图所示。 建立下拉式菜单，
6、如下表所示。 窗体文件中给出了所有事什过程，但不完整，请去掉程序中的注释符，把程序中的 ?改为正确的内容，以便实现如下功能：当光标所在的文件框中无内容时， “剪切 ”、 “复制 ”不可用，否则可以把该文本框 中的内容剪切或复制到 Text3中；若 Text3中无内容，则 “粘贴 ”不能用，否则可以把 Text3中的内容粘贴在光标所在的文本框中的内容之后。 注意：不能修改程序中的其他部分，各菜单项的标题名称必须正确。最后将修改后的文件按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 145答案与解析 一、基本操作题 1 【正确答案】 (1)【操作步骤】 步骤 1：新建一个窗体，按照题目要
7、求建立文本框控件并设置其属性，程序中涉及的控件及属性见表 3 8和表 3 9。步骤 2：调试并运行程序，关闭程序后按题日要求存盘。 (2)【操作步骤】 步骤 1：新建一个窗体，按照题目要水建市控件并设置图像框相应属性，如图 3 17所示。步骤2：按照步骤 1设置其他控件相关属性，程序中涉及的控件及属性见表 3 10。步骤 3：打开代码编辑窗口，在指定位置编写如下代码。 参考答案 Private Sub C1_Click()当单击 “放大 “按钮时，依次将 Imagel的高与宽分别加 100 Image1 Height Image1 Height100 Image1 Width Imagel W
8、idth 100 End Sub Private Sub C2 Click()当单击 “缩小 “按钮。则依次将 Image1的高与宽分别减 100 Image1 Height Image1 Height 100 Image1 Width Image1 Width 100 End Sub 步骤 4：调试并运行程序，关闭程序后按题日要求存盘。 二、简单应用题 2 【正确答案】 (1)【操作步骤】 步骤 1：按照题日要求打开工程文件。 步骤 2：打开代码编辑窗口，在指定位置编写如下代码。 参考答案 Dim i As Integer Dim max As Integer， min As Integer
9、 max 1 min 1000 For i 1 To 100 If isnare(a(i)Then 调用 isnarc判断是否为水仙花教 If max a(i)Then max a(i) If min a(i)Then min a(i)求水仙花数中的最大值与最小值 End If Next i Text1max Text2 min 步骤 3：按照题口要求调试并运行程序，如图 3 18所示。步骤 4：关闭程序后，按题目要求存盘。 (2)【操作步骤】 步骤 1：打丌本题工程文件，按照题目要求建立控件并设置组合框控件属性，如图 3 19所示。程序中用到的控什及属性见表 3 11。步骤 2：打开代码编辑
10、窗口，在代码编辑窗口指定位置编写以下代码。 参考答案 Private Sub C1 Click() Dim sum As Long Dim n As Integer Dim i As Integer nVal(cb1 Text)读取选中的数字并通过函数 Val转换为数值 For i n To 5000从本身开始循环查找 If i Mod n 0 Then sum sum i铡断是否能被该数整除并求和 End If Next i Text1 Text sum东 Text1中显示 End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 三、综合应用题 3 【正确答案】 【操作步骤】
11、步骤 1：打开本题工程文件，将 Text3的 Visible属性设置为 False，然后按照题目 要求建立菜单并设置其属性，如图 3 20所示。菜单属性如表 3 12所示。 步骤2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容。 参考答案 Dim which As Integer Private Sub copy_Click()复制按钮 If which 1 Then当焦点在 Text1中，将 rext1中的内容复制给 Text3 Text3 Text Text1 TeXt ElseIf which 2 Then同理，焦点在 Text2中，将 Text2中的内容复制给 Te
12、xt3 Text3 Text Text2 Text End If End Sub Private Sub cut C1ick()剪切按钮 If which 1 Then当焦点在 Text1中，则将内容复制给 Text3，并清空 Text1内容 Text3 TextText1 Text Textl Text “ ElseIf which 2 Then同上 Text3 Text Text2 Text Text2 Text “ End If End SUb Private Sub edit_C1ick()编辑 If which 1 Then If Text1 Text “Then Cut Enabl
13、ed False Copy Enabled False Else Cut Enabled True Copy Enabled True End If ElseIf which 2 Then If Text2 Text “Then Cut Enabled False Copy Enabled False E1se Cut Enabled True Copy Enabled True End If End If If Text3 Text “Then Paste Enabled=False E1se Paste Enabled True End If End Sub Private Sub pas
14、te_Cick()粘贴按钮 If which 1 Then当焦点在 Text1中则将 Text3的内容追加到 Text1文件末尾 Text1 TextText1 Text Text3 Text ElseIf which 2 Then。 同上 Text2 Text Text2 Text Text3 Text End If End Sub Private Sub Text1 GotFocus()本过程的作用是当焦点在 Text1中时， which 1 which 1 End Sub Private Sub Text2 GotFocus()本过程的作用是当焦点在 Text2中时， which 2 which 2 End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。
