1、国家二级 VB机试（上机操作）模拟试卷 89及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上建立一个名称为 Commandl的命令按钮数组，含三个命令按钮，它们的 Index属性分别为 0、 1、 2，标题依次为 “是 ”、 “否 ”、 “取消 ”，每个按钮的高、宽均为 300、 800。窗体的标题为 “按钮窗口 ”。运行后的窗体如 3-63所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjtl vbp，窗体文件名为 sitl frm。 (2)在名称为 Forml的窗体上画一个
2、名称为Shal的形状控件，然后建立一个菜单，标题为 “形状 ”，名称为 shape0，该菜单有两个子菜单，其标题分别为 “正方形 ”和 “圆形 ”，其名称分别为 shape1和 shape2，如图 3 64所示，然后编写适当的程序。程序运行后，如果选择 “正方形 ”菜单项，则形状控件显示为正方形；如果选择 “圆形 ”菜单项，则窗体上的形状控件显示为圆形。注意：程序中不能使用变量，每个事件过程中只能写一条语句。保存时必须存放在考生文件夹下，工程文件名为 Sit2 vbp，窗体文件名为 sit2 frm。二、简单应用题 2 (1)在考生目录下有一个工程文件 sjt3 vbp，窗体文件中已给出所有控
3、件和部分程序，如图 3 85所示。要求： 利用属性窗口设置适当的属性，使 Text1、 Text2中数据右对齐； 请编写适当的程序完成以下功能：在Textl中输入 40(度数 )，选择一个单选按钮，单击 “计算 ”按钮，则根据所选择的单选按钮，计算出相应的正弦、余弦值 (保留 3位小数，第 4位截去，尢取 3 141 59)，并显示在 Text2中。注意：考生不得修改窗体文件巾已经存在的程序，在结束程序运行之前，必须进行一种计算， 在 Text1中输入的必须是 40，必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后程序按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sit4 vbp，
4、窗体上已经给出所有控件。程序运行时，单击 “开始 ”按钮，则汽车图标向右运动：单击 “停止 ”按钮则汽车停止运动；移动滚动条上的滚动框，可以改变汽车的运动速度 (滚动框向右移动，速度减慢 )。如图 3-86所示。要求如下： 去掉程序中的注释符，把程序中的 ?改为正确的内容。提示：窗体上有一个计时器，计时器的事件过程每执行一次，汽车向右移动 10，程序通过改变计时器控件的 Interval属性来改变汽车的运动速度。注意：不得修改控件的属性。最后按原文件名存盘。 三、综合应用题 3 在考生文件夹下有一个工程文件 sit5 vbp，含三个窗体，标题分别为 “启动 ”、“注册 ”、 “登录 ”，运行时
5、显示 “启动 “窗体，单击其上按钮时弹出对应窗体进行注册或登录。注册信息放在全局数组 users中，注册用户数 (最多 10个 )放在全局变量 n中 (均已在标准模块中定义 )。 注册时用户名不能重复，且 “口令 ”与 “验证口令 ”须相同，注册成功则在 “启动 ”窗体的标签中显示 “注册成功 ”，否则显示相应错误信息。登录时 ，检验用户名和口令，若正确，则在 “启动 ”窗体的标签上显示 “登录成功 ”，否则显示相应错误信息。标准模块中函数 finduser的功能是：在 users数组中搜索用户名 (即参数 ch)，找到则返回该用户名在 users中的位置，否则返回 0。已经给出了所有控件和程
6、序，但程序不完整，请去掉程序中的注释符，把 Form2、 Form3窗体文件中的 ?改为正确的内容。 注意：不得修改已经存在的程序和控件的属性，最后程序按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 89答案与解析 一、基本操作题 1 【正确答案】 第 1小题【操作步骤】步骤 1：新建一个 “标准 EXE”工程，如表4 36在窗体中用 “复制 ”和 “粘贴 ”画出控件数组并设置属性。步骤 2：按要求将文件保存至考生文件夹中。第 2小题【操作步骤】步骤 1：新建一个 “标准 EXE”工程，在窗体 Forml中画一个名为 Shal的形状控件。步骤 2：选择【工具】 【菜单编辑器】命令，打
7、开菜单设计器，如表 4 37所示，设置建立菜单项。步骤 3：打开代码编辑窗口，编写菜单命令的单击事件过程。参考代码： Private Sub Shapel Click() Me Shal Shape=1End SubPrivate Sub Shape2 C1ick() Forml Shal=3End Sub步骤 4：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题【操作步骤】步骤 1：打开考生文件夹中的本题工程文件sjt3 vbp，程序界面如图 4-4所示。 步骤 2：依次选中窗体中的两个文本框，将其 Alignmem属性值设置为 1-Right Justify。
8、步骤 3：双击窗体中的 “计算 ”命令按钮，在打开的代码编辑窗口中编写其单击事件过程。 参考代码： Private Sub Commandl_Click() If Optionl Item(0)=True Then Text2 Text=Format(Sin(val(Textl Text)*3 14159 180)， “0 000”) End If If Optionl Item(1)=True Then Text2 Text=Format(Cos(Val( Textl Text)*3 14 15 9 1 8 0)， “0 000”) End If End Sub 步骤 4：按键运行程序，在左
9、侧文本框中输入“40”，选择不同 选项，单击 “计算 ”按钮，结果图 4 5所示。步骤 5：单击窗体右上角的关闭按钮以结束程序。步骤 6：按要求将文件保存至考生文件夹中。第 2小题 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjt5 vbp，在代码编辑窗口，去掉程序中的注释符 “一 ”，将问号 “?”改为正确的内容。 参考代码：Timerl Enabled=TrueTimerl Interval=HScrolll ValuePicturel Left=Picturel Left+10步骤 2：按要求将文件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sit5 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： 一注册窗体 Form2一 n=n+1 Else If finduser(TrimS(Text1) 0 Then Forml Labell Caption=“注册成功 !” 一一登录窗体 Form3一 If k=0 Then Else If Trim$(Text2) users(k， 2)Then 步骤 2：按要求将文件保存至考生文件 夹中。
