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