1、二级 VISUAL+BASIC 机试-95 及答案解析(总分：100.00，做题时间：90 分钟)一、1 基本操作题(总题数：2，分数：30.00)1.在名为 Form1 的窗体上绘制一个名为 Chk1 的复选框数组，含 3 个复选框，它们的标题依次为First、Second 和 Third，其下标分别为 0，1，2。初始状态下，Second 和 Third 为选中状态。运行后的窗体如下图左图所示。注意：文件必须存放在考生文件夹中，工程文件名为 sj1.vbp，窗体文件名为 sj1.frm。（分数：15.00）_2.请在名为 Form1 的窗体上建立一个二级下拉菜单，第一级共有两个菜单项，标题
2、分别为“文件”和“编辑”，名称分别为 vbFile 和 vbEdit；在“编辑”菜单下有第二级菜单，含有 3 个菜单项，标题分别为“剪切”、“复制”和“粘贴”，名称分别为 vbCut、vbCopy 和 vbPaste，其中“剪切”菜单项设置为无效(如下图右图所示)。注意：文件必须存放在考生文件夹中，工程文件名为 sj2.vbp，窗体文件名为 sj2.frm。（分数：15.00）_二、2 简单应用题(总题数：2，分数：40.00)3.在名为 Form1 的窗体上建立两个主菜单，其标题分别为“文件”和“帮助”，名称分别为 vbFile 和vbHelp,在“文件”菜单下有 3 个菜单项，分别为“新建
3、”、“打开”和“保存”(其名称分别为vbNew、vbOpen 和 vbSare)。要求程序运行后，如果选中“文件”下的某个菜单项，则将该菜单项的标题通过 MsgBox 对话框显示出来，如下图所示。注意：文件必须存放在考生文件夹中，窗体文件名为 sj3.frm，工程文件名为 sj3.vbp。（分数：20.00）_4.在名为 Form1 的窗体上建立一个文本框，名为 Text1；再建立一个命令按钮，名为 cmd1，标题为“计算”，如下图所示。要求程序运行后，单击命令按钮，则计算出 100200 之间所有素数之和，并在文本框中显示结果，同时把结果存人文件 out418.txt 中(在考生文件夹中有标
4、准模块 mode.bas，其中的 putdata 过程可以把结果存入文件；而 isprime 函数可以判断整数 x 是否为素数，如果是素数，则函数返回 True，否则返回False。考生可以把该模块文件添加到自己的工程中)。注意：文件必须存放在考生文件夹中，窗体文件名为 sj4.frm，工程文件名为 sj4.vbp。（分数：20.00）_三、3 综合应用题(总题数：1，分数：30.00)5.在名为 Form1 的窗体上建立一个文本框，名为 Texl1；再建立一个命令按钮，名为 Cmd1，标题为“计算”，如下图所示。要求程序运行后，单击命令按钮，则计算出 100200 之间所有素数之和，并在文本
5、框中显示结果，同时把结果存入文件 out48.txt 中(在考生文件夹中有标准模块 mode.bas，其中的 putdata 过程可以把结果存入文件；而 isprime 函数可以判断整数 x 是否为素数，如果是素数，则函数返回 True，否则返回 False。考生可以把该模块文件添加到自己的工程中)。注意：文件必须存放在考生文件夹中，窗体文件名为 sj5.frm，工程文件名为 sj5.vbp。（分数：30.00）_二级 VISUAL+BASIC 机试-95 答案解析(总分：100.00，做题时间：90 分钟)一、1 基本操作题(总题数：2，分数：30.00)1.在名为 Form1 的窗体上绘制
6、一个名为 Chk1 的复选框数组，含 3 个复选框，它们的标题依次为First、Second 和 Third，其下标分别为 0，1，2。初始状态下，Second 和 Third 为选中状态。运行后的窗体如下图左图所示。注意：文件必须存放在考生文件夹中，工程文件名为 sj1.vbp，窗体文件名为 sj1.frm。（分数：15.00）_正确答案：(新建一个名为 Form1 的窗体；单击工具箱中的 CheckBox 控件图标，在窗体上拖拉出三个复选框，在属性窗口设置三个复选框名称分别为 chk1、Chk2 和 Chk3，标题分别为“First”、“Second”和“Third”，设置 Chk2 和
7、Chk3 的 Value属性值为 Checked；按要求保存文件即完成本题。)解析：2.请在名为 Form1 的窗体上建立一个二级下拉菜单，第一级共有两个菜单项，标题分别为“文件”和“编辑”，名称分别为 vbFile 和 vbEdit；在“编辑”菜单下有第二级菜单，含有 3 个菜单项，标题分别为“剪切”、“复制”和“粘贴”，名称分别为 vbCut、vbCopy 和 vbPaste，其中“剪切”菜单项设置为无效(如下图右图所示)。注意：文件必须存放在考生文件夹中，工程文件名为 sj2.vbp，窗体文件名为 sj2.frm。（分数：15.00）_正确答案：(新建一个名为 Form1 的窗体；执行“
8、工具”菜单中的“菜单编辑器”命令，打开菜单编辑器。在“标题”栏中输入“文件”，在“名称”栏中输入 VbFile；单击“下一个”按钮，在“标题”栏中输入“编辑”，在“名称”栏中输入vbEdit；单击“下一个”按钮，再单击编辑区的右箭头按钮，在“标题”栏中输入“剪切”，在“名称”栏中输入 vbCut，不要选择“有效”选项；单击“下一个”按钮，在“标题”栏中输入“复制”，在“名称”栏中输入 vbCopy；单击“下一个”按钮，在“标题”栏中输入“粘贴”，在“名称”栏中输入 vbPaste。)解析：二、2 简单应用题(总题数：2，分数：40.00)3.在名为 Form1 的窗体上建立两个主菜单，其标题分
9、别为“文件”和“帮助”，名称分别为 vbFile 和vbHelp,在“文件”菜单下有 3 个菜单项，分别为“新建”、“打开”和“保存”(其名称分别为vbNew、vbOpen 和 vbSare)。要求程序运行后，如果选中“文件”下的某个菜单项，则将该菜单项的标题通过 MsgBox 对话框显示出来，如下图所示。注意：文件必须存放在考生文件夹中，窗体文件名为 sj3.frm，工程文件名为 sj3.vbp。（分数：20.00）_正确答案：(新建一个名为 Form1 的窗体；执行“工具”菜单中的“菜单编辑器”命令，打开菜单编辑器；在“标题”栏中输入“文件”，在“名称”栏中输入“vbFile”；单击“下一
10、个”按钮，再单击编辑区的右箭头按钮，在“标题”栏中输入“新建”，在“名称”栏中输入“vbNew”；单击“下一个”按钮，在“标题”栏中输入“打开”，在“名称”栏中输入“vbOpen”；单击“下一个”按钮，在“标题”栏中输入“保存”，在“名称”栏中输入“vbSave”；单击“下”，在标题栏中输入“帮助”，在“名称”栏中输入“vbHelp”；打开代码窗口输入如下代码：Private Sub vbNew_Click()MsgBox“新建“,vbOKOnlyEnd SubPrivate Sub vbOpen_Click()MsgBox“打开“,vbOKOnlyEnd SubPrivate Sub vbS
11、ave_Click()MsgBox“保存“,vbOKOnlyEnd Sub按要求保存文件即完成本题。)解析：4.在名为 Form1 的窗体上建立一个文本框，名为 Text1；再建立一个命令按钮，名为 cmd1，标题为“计算”，如下图所示。要求程序运行后，单击命令按钮，则计算出 100200 之间所有素数之和，并在文本框中显示结果，同时把结果存人文件 out418.txt 中(在考生文件夹中有标准模块 mode.bas，其中的 putdata 过程可以把结果存入文件；而 isprime 函数可以判断整数 x 是否为素数，如果是素数，则函数返回 True，否则返回False。考生可以把该模块文件添
12、加到自己的工程中)。注意：文件必须存放在考生文件夹中，窗体文件名为 sj4.frm，工程文件名为 sj4.vbp。（分数：20.00）_正确答案：(新建一个名为 Form1 的窗体；单击工具箱中的 TextBox 控件图标，在窗体上拖拉出一个文本框，在属性窗口设置该文本框名称为Text1；单击工具箱中的 Command Button 控件图标，在窗体上拖拉出一个命令按钮，在属性窗口设置该命令按钮名称为 Cmd1，Caption 属性为“计算”；打开代码窗口输入如下代码：Private Sub Cmd1_Click()Dim temp As Longtemp=0For i=100 To 200I
13、f is prime(i)Then temp=temp+iEnd IfNextText1.Text=tempput data“out48.txt“tempEnd Sub按要求保存文件即完成本题。)解析：三、3 综合应用题(总题数：1，分数：30.00)5.在名为 Form1 的窗体上建立一个文本框，名为 Texl1；再建立一个命令按钮，名为 Cmd1，标题为“计算”，如下图所示。要求程序运行后，单击命令按钮，则计算出 100200 之间所有素数之和，并在文本框中显示结果，同时把结果存入文件 out48.txt 中(在考生文件夹中有标准模块 mode.bas，其中的 putdata 过程可以把结果存入文件；而 isprime 函数可以判断整数 x 是否为素数，如果是素数，则函数返回 True，否则返回 False。考生可以把该模块文件添加到自己的工程中)。注意：文件必须存放在考生文件夹中，窗体文件名为 sj5.frm，工程文件名为 sj5.vbp。（分数：30.00）_正确答案：(打开题目所给工程文件；2将注释语句改为：Dim Mat(5,5)Open App.Path& “/“ & “in24.txt“ ForInputAs#1Input#1,Mat(i,j)Sum=0Sum=Sum+Mat(3,j)3按要求保存文件即完成本题。)解析：
