1、国家二级 VB 机试（上机操作）-试卷 98 及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。 (1)在名称为 Form1、标题为“框架练习”的窗体上画一个名称为 Frame1、标题为“字体”的框架摔件；在框架中画两个单选按钮，名称分别为 Option1、Option2，标题分别为“宋体”、“黑体”，标题在单选按钮的左边。运行后的窗体如图 2158 所示。 注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为 sjtlfrm，上程文件名为 sjtlvbp。 (2
2、)在名称为 Forml 窗体上，画一个名称为 Imagcl 的图像框，在其中显示考生文件夹下的图片“pic2jpg”，并设置适当属性使得图像框尺寸变化时图片尺寸可随之变化。再画一个水平滚动条和一个垂直滚动条，名称分别为 HScroll1、VScroll1，它们的刻度范围部是 13。如图2159(a)所示。要求如下：定义两个窗体级变量：length、high，并编写窗体的 Form Load 事件过程，使 length、high 分别等于图像框的宽、高； 编写适当的事件过程，使得移动两个滚动条上的滚动块时，以刻度值作为图像框初始尺寸的倍数改变图像框相应方向的尺寸。例如：HScroll1 的滚动块
3、在刻度值为2 的位置时，图像框的宽为初始宽度的 2 倍。如图 2159(b)所示。对于垂直滚动条也相同。 注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为 s；t2frm，工程文件名为 sjt2vbp。要求程序中的两个变量必须是 length、high，此外不能再使用其他变量，除 Form Load 事件过程外，其他每个事件过程中只能写一条语句。 （分数：2.00）_二、简单应用题(总题数：1，分数：2.00)2.(1)在名称为 Forml 的窗体上画一个名称为 lblPwd 的标签，标题为“密令”；画两个文本框，名称分别为 txtPwd、txtObj，都没有初始内容；再画三个命令按钮，
4、名称分别为 cmdShow、cmdHide、cmdCopy，标题分别为“显示”、“隐藏”、“复制”，在开始运行时，向 txtPwd 中输入的所有字符都显示“*”，单击“显示”按钮后，在 txtPwd 中显示所有字符，再单击“隐藏”后，txtPwd 中的字符不变，但显示的都是“?”，单击“复制”后，把 txtPwd 中的实际内容复制到 txtObi 中，如图 240 所示。 要求：在属性窗口中，把窗体的标题改为“密令窗口”。建立适当的事件过程，完成上述功能。每个过程中只允许写一条语句，且不能使用变量。存盘时，工程文件名为 vbsi3vbp，窗体文件名为 vnsj3.frm” (2)在考生文件夹下
5、有一个工程文件 vbsj4vbp，运行情况如图 241 所示。程序的功能是计算如下表达式的值：Z=(X+2)2+(X+3)3+(x+4)4+(X+N)AN。其中，N 和 X 值通过键盘分别输入到文本框 txtN、txtX中。之后如果单击名称为 cmdCa1、标题为“计算”的命令按钮，则计算表达式的值 Z，并将计算结果显示在名称为 1blResult 的标签中。在给出的窗体文件中已经添加了全部控件和程序，但程序不完整。要求去掉程序中的注释符，把程序中的“?”改为正确的内容。 （分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.在考生目录下有一个工程文件 sjt5vbp，其窗体上有
6、一个文本框，名称为 Text1；还有两个命令按钮，名称分别为 C1、C2，标题分别为“计算”、“存盘”，如图 220 所示。并有一个函数过程 isprime(a)可以在程序中直接调用，其功能是判断参数 a 是否为素数，如果是素数，则返回 True，否则返回 False。请编写适当的事件过程，使得在运行时，单击“计算”按钮，则找出大于 15000 的第一个素数，并显示在Text1 中；单击“存盘”按钮，则把 Text1 中的计算结果存入考生文件夹下的 out5txt 文件中。 注意：考生不得修改 isprime 函数过程和控件的属性，必须把计算结果通过单击“存盘”按钮存入 out5txt 文件中
7、，否则无成绩。 （分数：2.00）_国家二级 VB 机试（上机操作）-试卷 98 答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。 (1)在名称为 Form1、标题为“框架练习”的窗体上画一个名称为 Frame1、标题为“字体”的框架摔件；在框架中画两个单选按钮，名称分别为 Option1、Option2，标题分别为“宋体”、“黑体”，标题在单选按钮的左边。运行后的窗体如图 2158 所示。 注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为 sjtlfrm，上
8、程文件名为 sjtlvbp。 (2)在名称为 Forml 窗体上，画一个名称为 Imagcl 的图像框，在其中显示考生文件夹下的图片“pic2jpg”，并设置适当属性使得图像框尺寸变化时图片尺寸可随之变化。再画一个水平滚动条和一个垂直滚动条，名称分别为 HScroll1、VScroll1，它们的刻度范围部是 13。如图2159(a)所示。要求如下：定义两个窗体级变量：length、high，并编写窗体的 Form Load 事件过程，使 length、high 分别等于图像框的宽、高； 编写适当的事件过程，使得移动两个滚动条上的滚动块时，以刻度值作为图像框初始尺寸的倍数改变图像框相应方向的尺寸
9、。例如：HScroll1 的滚动块在刻度值为2 的位置时，图像框的宽为初始宽度的 2 倍。如图 2159(b)所示。对于垂直滚动条也相同。 注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为 s；t2frm，工程文件名为 sjt2vbp。要求程序中的两个变量必须是 length、high，此外不能再使用其他变量，除 Form Load 事件过程外，其他每个事件过程中只能写一条语句。 （分数：2.00）_正确答案：(正确答案：第 1 小题 【操作步骤】 步骤 1：新建一个“标准 EXE”工程，如表 384 在窗体中画出控件并设置其相关属性。 步骤 2：按要求将文件保存至考生文件夹中。 第 2
10、 小题 【操作步骤】 步骤 1：新建一个“标准 EXE”上程，在窗体 Form1 中画一个图像框、一个水平滚动条和一个水平滚动条，在属性设置窗口中设置其相关属性，其属性及值如表 385 所示。 )解析：二、简单应用题(总题数：1，分数：2.00)2.(1)在名称为 Forml 的窗体上画一个名称为 lblPwd 的标签，标题为“密令”；画两个文本框，名称分别为 txtPwd、txtObj，都没有初始内容；再画三个命令按钮，名称分别为 cmdShow、cmdHide、cmdCopy，标题分别为“显示”、“隐藏”、“复制”，在开始运行时，向 txtPwd 中输入的所有字符都显示“*”，单击“显示”
11、按钮后，在 txtPwd 中显示所有字符，再单击“隐藏”后，txtPwd 中的字符不变，但显示的都是“?”，单击“复制”后，把 txtPwd 中的实际内容复制到 txtObi 中，如图 240 所示。 要求：在属性窗口中，把窗体的标题改为“密令窗口”。建立适当的事件过程，完成上述功能。每个过程中只允许写一条语句，且不能使用变量。存盘时，工程文件名为 vbsi3vbp，窗体文件名为 vnsj3.frm” (2)在考生文件夹下有一个工程文件 vbsj4vbp，运行情况如图 241 所示。程序的功能是计算如下表达式的值：Z=(X+2)2+(X+3)3+(x+4)4+(X+N)AN。其中，N 和 X
12、值通过键盘分别输入到文本框 txtN、txtX中。之后如果单击名称为 cmdCa1、标题为“计算”的命令按钮，则计算表达式的值 Z，并将计算结果显示在名称为 1blResult 的标签中。在给出的窗体文件中已经添加了全部控件和程序，但程序不完整。要求去掉程序中的注释符，把程序中的“?”改为正确的内容。 （分数：2.00）_正确答案：(正确答案：第 1 小题 【操作步骤】 步骤 1：新建一个“标准 EXE”工程，按表 3-25 在窗体中画出控件并设置其相关属性。 )解析：三、综合应用题(总题数：1，分数：2.00)3.在考生目录下有一个工程文件 sjt5vbp，其窗体上有一个文本框，名称为 Te
13、xt1；还有两个命令按钮，名称分别为 C1、C2，标题分别为“计算”、“存盘”，如图 220 所示。并有一个函数过程 isprime(a)可以在程序中直接调用，其功能是判断参数 a 是否为素数，如果是素数，则返回 True，否则返回 False。请编写适当的事件过程，使得在运行时，单击“计算”按钮，则找出大于 15000 的第一个素数，并显示在Text1 中；单击“存盘”按钮，则把 Text1 中的计算结果存入考生文件夹下的 out5txt 文件中。 注意：考生不得修改 isprime 函数过程和控件的属性，必须把计算结果通过单击“存盘”按钮存入 out5txt 文件中，否则无成绩。 （分数：
14、2.00）_正确答案：(正确答案：【操作步骤】 步骤 1：打开本题对应工程文件 sjt5vbp。 步骤 2：双击窗体Forml 上的“计算”按钮，打开代码编辑窗口，在其 Click 事件过程中输入如下代码： 参考代码： Private Sub C1 一 C1ick() a=15000 Do a=a+1 Loop Until isprime(a) Text1Text=a End Sub 步骤 3：双击窗体 Form1 上的“存盘”按钮，在代码编辑窗口其 Click 事件过程中输入如下代码： 参考代码： Private Sub C2 一 C1 ick() Open AppPath”out5txt”For Output As：#1 Print：#1，TextlText Close：#1 End Sub 步骤 4：按要求将文件保存至考生文件夹中。)解析：
