1、国家二级 VB机试（上机操作）模拟试卷 445及答案与解析 一、基本操作题 1 (1)在标题为 “列表框 ”、名称为 Form1的窗体上添加一个名称为 List1的列表框，通过属性窗口输入 4个列表项： “数学 ”、 “语文 ”、 “历史 ”、 “地理 ”，列表项形式采用复选框形式，如图所示。列表框的宽为 1100，高不限。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt1 vbp，窗体文件名保存为 sjt1 frm。(2)在名称为 Form1的窗体上建立一个名称为“menu1”、标题为 “文件 ”的弹出式菜单，其含有三个菜单 项，它们的标题分别为：“打开 ”、 “关闭 ”、 “
2、保存 ”，名称分圳为 “m1”、 “m2”、 “m3”。再添加一个命令按钮，名称为 “Command1”、标题为 “弹出菜单 ”。要求：编写命令按钮的 Click事件过程，使程序运行时，单击 “弹出菜单 ”按钮可弹出 “文件 ”菜单 (如图所示 )。 注意：程序中不得使用变量，事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名保存为 sjt2 vbp，窗体文件名保存为 sjt2 frm。二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sjl3 vbp。其窗体文件上有 一个标题为 “得分 ”的框架，在框架中有一个名称为 Text1的文本框数组，含 6个文本框控件；文本框T
3、ext2用来输入难度系数。程序运行时，在左边的 6个文本框中输入 6个得分，输入难度系数后，单击 “计算分数 ”按钮，则可计算出最后得分并显示在文本框 Text3中 (如图所示 )。 计算方法： 去掉 1个最高得分和 1个最低得分，求利下得分的半均分，再乘以 3，再乘以难度系数。最后结果保留到第 2位小数，不四舍五入。 注意：文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的 ?改为正确的内容，考生不能修改程 序中的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjl4 vbp。窗体上的控件如图所示。程序运行时，若选
4、中 “累加 ”单选按钮，则 “10”、 “12”菜单项不可用，若选中 “阶乘 ”单选按钮，则“1000”、 “2000”菜单项不可用 (如图所示 )，选中菜单中的一个菜单项后，单击 “计算 ”按钮，则相应的计算结果在文木框显示 (例如，选中 “累加 ”和 “2000”，则计算1+2+3+2000 ，选中 “阶乘 ”和 “10”，则计算 10 !)。单击 “存盘 ”按钮则把文木框中的结果保俘到 考生文件夹下的 out4 dat文件中。 要求：编写 “计算 ”按钮的 Click事件过程。 注意：不得修改已经存在的程序，在结束程序运行之前，必须用 “存盘 ”按钮存储计算结果，否则无成绩。最后，程序按
5、原文件名存盘。三、综合应用题 3 在考生文件夹下有一个工程文件 sjt5 vbp，含三个窗体，标题分别为 “启动 ”、“注册 ”、 “登陆 ”，程序运行时显示 “启动 ”窗体，单击窗体上按钮时弹出对应窗体进行注册或登录。 注册信息放在全局数组 users中，注册用户数 (小于或等干 10个 )放在全局变量 n中 (均已在标准模块 中定义 )。 注册时用户名不能重复，且 “口令 ”与 “验证口令 ”必须相同，注册成功则在 “启动 ”窗体的标签中提示 “注册成功 ”，否则提示相应错误信息。登录时，检验用户名和口令，若正确，则在 “启动 ”窗体的标签上提示 “登录成功 ”，否则提示相应错误信息。 标
6、准模块中函数 finduser的功能是：在 users数组中搜索用户名 (参数 ch)，找到则返回该用户名在 users中的位置，否则返回 0。 文件中已经给出了所有控件和程序，但程序小完整，请去掉程序中的注释符，把Form2、 Form3窗体文件中的 ?改为正 确的内容。 注意：不得修改已经仵在的程序和控件的属性；最后，程序按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 445答案与解析 一、基本操作题 1 【正确答案】 (1)步骤 1：新建一个窗体，按照题目要求建立列表框控件并设置窗体及列表框属性，如图 3。 29所示。程序中用到的控件及属性见表 3 41。 步骤 2：调试并运行
7、程序，关闭程序后按题目要求存盘。 (2)步骤 1：建立界面，添加一个命令按钮，设置其 Name属性为 Command1， Caption属性为 “弹出菜单 ”。然后建立一个菜单，菜单 的属性见表 3 42。步骤 2：打开代码编辑窗口，在指定位置编写如下代码。 参考答案 PriVate sub Command1_Click() PopupMerlu menul显示菜单 menul End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 【试题解析】 (1)列表框的 Style属性只能在设计时确定。用于控制控件的外观，其数值可以设置为 0(标准样式 )和 1(复选框样式 )。通过列表
8、框的 Name和 width属性来设置列表框的名称和宽，通过其 List属性设置列表项。 (2)要创 建弹出式菜单需要先用菜单编辑器来建立菜单，并将其主菜单项的可见(Visible)属性值设置为不可见，然后通过对象的 Command1_Click事件，执行对象的 PopupMenu方法来显示菜单。 二、简单应用题 2 【正确答案】 (1)步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容。 参考答案 Private Sub Command1_Click() Dim k As Integer， s As Single， a AsSingle，
9、 b As Single a=Val(Text1(0) Text)将第一个文本框的值作为最大值赋予 a s =a b=a将第一个数作为最小值赋予 b For k=1 To 5剩余文本框作为循环次数的条件 s=s+Val(Text1(k) Text) If a Val(Text1(k) Text)Then b=Val(Text1(k) Text) EndIf Next k s=(sab)溪 根据要求去掉一个最高分和一个最低分后求四科的平均分 s=s*3*Val(Text2 Text) 根据题意此处应填平均分 Text3=Int(s*100) 100 Int(N)是求小于或等于 N的最大整数，同时
10、将最后结果显示在 Text3上 End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 (2)步骤 1：打开本题工程文件； 步骤 2：打开代码编辑窗口，在指定位置编写如下代码。 参考答案 Private Sub Command1_Click() Dim i As Integer Dim j As Integer Dim m As Long Dim sum As Long m=1 If n=10 Or n=12 Then通过判断 n的值，可确定使用什么操作 For i=2 To n m=i * m Next i求 n的阶乘 Text1 Text=m End If Sum=0 If
11、n=2 0 00 Or n=10 00 Then For j=1 To n sum=sum+j Next j求 1到 n的和 Text1 Text=Sum End If End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 【试题解析】 (1)通过 Val()函数获取文本框 数组的值，并把它转换为数值型，通过循环语句和判断语句，找出最大值和最小值赋值给变量 a和 b，同时累加所有数值的和赋值给 S，那么最终的和为 s a b，根据算法求剩下得分的平均分，乘以3，再乘以 Text2中输入的难度系数，得出最终的得分。 (2)本题的语句比较多，先看一下程序实现的过程，通过单选按钮决定
12、是进行阶乘还是累加运算，并确定 4个菜单项的 Enabled属性，在菜单项的 Click事件过程中，设置 n的值，运用 If判断语句判断 n值，进行累加或阶乘运算，然后通过文件编辑实现存盘操作。 三、综合应用题 3 【正确答案】 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容。 参考答案 Form2窗体代码 Private Sub Command1_Click()清空重置 Text1=“ Text2=“ Text3=“ End Sub Sub writeusers()向数组 users中写入新用户信息 n=n+1用户数目自增 users
13、(n， 1)=Text1保存 用户的用户名、密码 Users(n， 2)=Text2 End Sub Private Sub Command2_Click() If Text1=“Then MsgBox(“必须输入用户名 !“) Text1 SetFocus Text1重新获得焦点 Elself finduser(Trim$(Text1)0 Then 如找到相同名，则返回位置一定大于 0 MsgBox(“此用户名已经存在 !“) ElseIf Text2usems(k， Z)Then 验证输入的密码是否正确 MsgBox(“口令错误 !“) Else Form1 Label1 Caption=“登录成功 !“ Form3 Hide End If End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 【试题解析】 因为本题的窗体比较多，含有一个模块，所以首先要理清思路，了解每一个窗体 的功能。窗体 1是启动界面，可以选择登录或者注册，窗体 2是注册窗口实现用户的注册，窗体 3是登录窗口实现用户的登录，模块中函数的功能是在数组中寻找用户名，并返回其所在的位置。理清了各个窗体和模块的关系，就可以开始分析并编写代码了。
