1、国家二级 VB机试（上机操作）模拟试卷 219及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上画出如图 2-48所示的三角形。下表给出了直线 Linel、 Line2的坐标值，请按此表画 Line1、 Line2，并画出直线 Line3，从而组成如图 2 48所示的三角形。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sitl vbp，窗体文件名为 sitl frm。(2)在名称为 Forml的窗体上画一个名称为 List1的 列表框，并任意输入若干列表项：再画一个名称为 Textl
2、的文本框，无初始内容。淆编写 List1和 Text1的 Click事件过程。程序运行后，如果单击列表框中的某一项，则在文本框中显示该项相应的顺序号，若单击第一项，则在文本框中显示 1；若单击第二项，则在文本框中显示 2，以此类推 (如图 2 49所示 )；如果单击文奉框，则把该列表项的内容显示在文本框中。 注意：要求程序中不得使用变量，事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sit2 frm。 二、简单应用 题 2 (1)在名称为 Forml的窗体上面一个名称为 Text1的文本框：画两个标题分别为“对齐方式 ”、 “字体 ”，名
3、称分别为 Frame1、 Frame2的框架；在 Frame1框架中画三个单选按钮，标题分别为 “左对齐 ”、 “居中 ”、 “右对齐 ”，名称分别为 Option1、Option2、 Option3：在 Frame2框架中画两个单选按钮，标题分别为 “宋体 ”、 “黑体 ”，名称分别为 Option4、 Option5。 要求：编写五个单选按钮的 Click事什过程，使程序运行时，单击这些惟选按钮，可以对文本框中的文字实现相应的 操作(如图 2 219所示 )。 注意：要求程序中不得使用变量，每个事什过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文仲名为 sjt3 vbp，窗体文件
4、名为 sjl3 frm。 (2)在考生文件夹下有一个工程文件sjt4 vbo。其窗体上有一个圆，相当于一个时钟，当程序运行时通过窗体的Activate事件过程在圆上产生 1两个刻度点，并完成其他初始化工作：另有长、短2条 (红色、蓝色 )直线，名称分别为 Line1和 Line2，表示两个指针。程序运行时，单击 “开始 ”按钮，则每隔 0 5秒 Linel(长指针 )顺时 针转动一个刻度， Line2(短指针 )顺时引转动 1 1两个刻度 (即长指针转动一圈，短指针转动一个刻度 )，单击 “停止 ”按钮，两个指针停止转动，如图 2-220所示。 在窗体文件中已经给出了全部控件，但程序不完整，要
5、求去掉程序中的注释符，把程序中的 ?改为正确的内容。 提示：程序中的符号常量 x0、 y0是圆心到窗体左上角的距离， radius是圆的半径。 注意：不能修改程序中的其他部分和控件的属性。最后把修改后的文件按原文件名存盘。 三、综合应用题 3 在考生文件夹下有一个工程文件 sit5 vbp，含三个窗体，标 题分别为 “启动 ”、“注册 ”、 “登录 ”，运行时显示 “肩动 ”窗体，单击其上按钮时弹出对应窗体进行注册或登录。注册信息放在全局数组 users中，注册用户数 (最多 10个 )放在全局变量 n中 (均已存标准模块中定义 )。 注册时用户名不能重复，且 “口令 ”与 “验证口令 ”须相
6、同，注册成功则在 “启动 ”窗体的标签中显示 “注册成功 ”，否则显示相应错误信息。登录时，检验用，、名和口令，若正确，则在 “启动 ”窗体的标签上显示 “登录成功 ”，否则显示相应错误信息。标准模块中函数 finduser的功能是：在 users数组中搜索用户名 (即参数 ch)，找剑则返回该用户名在 users中的位置，否则返回 0。已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把 Form2、 Form3窗体文件中的 ?改为正确的内容。 注意：不得修改已 经存在的程序和控件的属性，最后程序按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 219答案与解析 一、基本
7、操作题 1 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，按表3 29在窗体中画出控件并设置其相关属性。步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，按表 3 30在窗体中画出控件并设置其相关属性。步骤 2：打开代码编辑窗口，编写列表框和文本框的单击事件过程。 参考代码： Private Sub ListlClick() Textl Text=Listl ListIndex+1 End Sub Private Sub TextlClick() Textl Text=Listl List(Lis
8、tl ListIndex) End Sub 步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，如表3-116在窗体中画出控件并设置其相关属件。 步骤 2：在代码编辑窗口，分别编写5个按钮的单击事件过程。 参考代码： Private Sub Optionl _Click() Textl Alignment=0 End Sub Private Sub Option2 Click() Textl Alignment=2 End SubPrivate Sub Option3 Click() Textl A1
9、ignment=1End SubPrivate Sub Option4 Click() Textl Font=“宋体 “End SubPrivate Sub Option5一 Click() Textl Font=”黑体 ”End Sub步骤 3：按要求将文件保存至考生文件夹中。第 2小题 【操作步骤】 步骤1：打开考生文件中的本题工程文件 sit4 vbp，在代码编辑窗口，去掉程序中的注释符 “ ”，将问号 “?”改为正确的内容。 参考代码： Timerl Enabled=False For k=0 To 359 Step 30 X=radius*Cos(k*3 1 4159 180)+x0
10、 Linel.Y2=y0一 lenl*Sin(a* 3 14159 180) b=b-30 12 步骤 2：按要求将文件保存至考生文件夹中。 三、综合应用 题 3 【正确答案】 【操作步骤】 步骤 1：打开考生文件中的本题工程文件 sjt5 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： 一注册窗体 Form2一 n=n+1 ElseIf finduser(Trim$(Textl) 0 Then Forml Labe11 Caption=“注册成功 !” 一登录窗体 Form3一 If k=0 Then ElseIf Trim$(Text2) users(k， 2) Then 步骤 2：按要求将文件保存至考生文件夹中。
