2022年计算机等级考试二级VB上机试题及答案

1、全国计算机等级考试二级VB上机试题及答案(四)基本操作（2小题，每题15分，共30分）*请根据以下各小题的要求设计VB应用程序（包括界面和代码）。请根据以下各个小题的要求设计Visual Basic应用程序（包括界面和代码）。（1）在名为Form1的窗体上画一个框架，名称为Frm1，标题为框架，高度为2000，宽度为3000；再在框架中画一个文本框，名称为Text1，高度为300，宽度为1000，文本框的初始内容设置为文本框。程序运行时的界面如图所示。（2）在名称为Form1的窗体上，画一个框架，两个单选按钮，一个命令按钮。框架的名称为Frm1，标题为地点。两个单选按钮在Frm1框架中，名称为

2、Opt1，Opt2，标题分别为图书馆，教室。命令按钮的名称为Cmd1，标题为屏蔽。编写适当的事件过程，当程序运行时，如果单击Cmd1按钮，框架就会被屏蔽。程序运行时的界面如图所示。*参考答案与分析（1）【解析】在窗体中画一个框架，则只需要从工具箱中拖出框架控件放在窗体上即可，而要在框架上画文本框，则是从工具箱中将文本框拖放到框架中。所以，考生必须注意的是，应该先在窗体上画框架，然后在框架中画文本框。【答案】第一步：启动VB，新建一个工程文件。第二步：单击工具箱中框架控件，在窗体上画一个框架，将其Name属性设为Frm1；Caption属性设为框架，Height为2000，Width为3000；

3、再在框架中画一个文本框，Name属性为Text1，Height为300，Width为1000，文本框的Text属性设置为文本框。第三步：调试并运行程序。程序设计完成经调试无误后进行存盘。执行文件菜单中的保存工程命令，打开文件另存为对话框，窗体文件名为Stj1.form，单击保存按钮。然后在紧接着出现的工程另存为对话框中选择工程文件名为Stj1.vbp，单击保存按钮。（2）【解析】要将框架屏蔽，只要将其Enabled属性设置为False即可。Enabled为True时保证框架及其内的对象使活动的，为False时其标题会变黑，框架中的所有对象均被屏蔽（禁用）。【答案】第一步：启动VB，新建一个工程

4、文件。第二步：单击工具箱中的框架控件，在窗体上画一个框架，将其Name属性设为Frm1，Caption属性设为地点，再在窗体上两个单选按钮，将其Name属性设为Opt1、Opt2，Caption属性分别为图书馆、教室，再画一个命令按钮Name属性设为Cmd1，Caption属性设为屏蔽。第三步：编写程序代码：1 Private Sub Cmd1_Click()2 Frm1.Enabled = False3 End Sub第四步：调试并运行程序。程序设计完成经调试无误后进行存盘。以Stj2.vbp和sjt2.frm进行保存。 简单操作（2小题，每题20分，共40分）*请根据以下各小题的要求设计V

5、B应用程序（包括界面和代码）。（1）在考生目录下有一个工程文件stj3.vbp，窗体上有一个圆和一条直线（直线名称为Line1）构成一个钟表的图案；有两个命令按钮，名称分别为Command1和Command2，标题分别为开始和停止；还有一个名为Timer1的计时器。程序运行时，钟表指针不动，单击开始按钮，则钟表上的指针（即Line1）开始顺时针旋转（每秒转6?，一分钟一圈）；单击停止按钮，则指针停止旋转。运行时的窗体如图所示。请设置计时器的适当属性，使得每秒激活计时器的Timer事件一次；并编写两个命令按钮的Click事件过程。文件中已经给出了所有控件和部分程序，不得修改已有的程序和其他控件的

6、属性；编写的事件过程中不得使用变量，且只能写一条语句。最后把修改后的文件按原文件名保存。试题源程序：1 Dim lenth As Integer, q As Integer2 Const PI = 3.141593 Private Sub Form_Load()4 lenth = Line1.Y2 - Line1.Y15 q = 906 End Sub7 Private Sub Timer1_Timer()8 q = q - 69 Line1.Y1 = Line1.Y2 - lenth * Sin(q * PI / 180)10 Line1.X1 = Line1.X2 + lenth * Co

7、s(q * PI / 180)11 End Sub（2）在考生文件夹下有一个工程文件stj4.vbp，窗体上已经画出所有的控件。程序的作用是构成一个简单的闹钟。刚运行时，不计时，选择一个单选按钮后，再单击计时按钮，则开始计时，并根据所选的单选按钮决定是每秒显示一次，还是每10秒显示一次。Text2用于显示秒，如图所示。窗体文件中已经给出了程序，但不完整，请去掉程序中的注释符，把程序中的？改为正确的内容。注意：不得修改已经给出的程序。最后把修改后的文件按原文件名保存。试题源程序：1 Dim num2 Private Sub Command1_Click()3 Timer1.Enabled = T

8、rue4 End Sub5 Private Sub Timer1_Timer()6 num = ?7 If num 60 Then8 If Option1.Value = True Theni. Text2.Text = num9 Elsei. If (num / 10 = CInt(Int(num / 10) Then10 Text2.Text = Text2.Text + ?i. End If11 End If12 Else13 Text2.Text = 014 num = 015 Text1.Text = Text1.Text + ?16 End If17 End Sub*参考答案与分析

9、（1）【解析】（1）本题要求用开始和结束按钮来控制定时器的开始和结束，所以编写Command1_Click()和Command2_Click()函数，用Enabled属性来控制定时器的工作和结束。（2）Timer 控件响应时间的流逝。每个 Timer 控件都有 Interval 属性，指定定时器事件之间的毫秒数。除非禁止此属性，否则定时器在大致相等的时间间隔不断接受事件（称作定时器事件会更贴切）。（3）Line 控件的X1、Y1、X2、Y2 属性，返回或设置 Line 控件的起始点 (X1, Y1) 和终止点 (X2, Y2) 的坐标。水平坐标是 X1 和 X2；垂直坐标是 Y1 和 Y2。【

10、答案】（1）启动VB程序，打开考生文件夹下的工程文件stj3.vbp。（2）双击窗体中的任何位置，进入代码编辑窗口，完善程序如下：1 Dim lenth As Integer, q As Integer2 Const PI = 3.141593 Private Sub Command1_Click()4 Timer1.Enabled = True5 End Sub6 Private Sub Command2_Click()7 Timer1.Enabled = False8 End Sub9 Private Sub Form_Load()10 lenth = Line1.Y2 - Line1.Y

11、111 q = 9012 End Sub13 Private Sub Timer1_Timer()14 q = q - 615 Line1.Y1 = Line1.Y2 - lenth * Sin(q * PI / 180)16 Line1.X1 = Line1.X2 + lenth * Cos(q * PI / 180)17 End Sub（3）单击启动键运行成功。（4）按考试要求将文件保存在考生文件夹下。（2）【解析】本题要求在文本框中显示时间，用单选按钮来决定是每秒显示还是每10秒显示一次。在Timer1_Timer()函数中，当选中每秒显示时，如果num60 时有 Text2.Text

12、= num 所以num = num + 1 。如果选中每10秒显示一次，则Text2.Text = Text2.Text + 10。int（number）函数：返回数字的整数部分。CInt（number）函数用于把其他数据类型转换到 Integer 子类型。If (num / 10 = CInt(Int(num / 10) Then表示每10秒更新一次。【答案】1）启动VB程序，打开考生文件夹下的工程文件stj4.vbp。（2）双击窗体中的任何位置，进入代码编辑窗口，完善程序如下：1 Dim num2 Private Sub Command1_Click()3 Timer1.Enabled =

13、 True4 End Sub5 Private Sub Timer1_Timer()6 num = num + 17 If num 60 Then8 If Option1.Value = True Then9 Text2.Text = num10 Else11 If (num / 10 = CInt(Int(num / 10) Then12 Text2.Text = Text2.Text + 1013 End If14 End If15 Else16 Text2.Text = 017 num = 018 Text1.Text = Text1.Text + 119 End If20 End Su

14、b（3）单击启动键运行成功。（4）按考试要求将文件保存在考生文件夹下。 综合应用（1小题，共30分）*请根据以下各小题的要求设计VB应用程序（包括界面和代码）。在考生文件夹下有工程文件djks049.vbp及窗体文件djks049.frm，该程序是不完整的，请在有？的地方填入正确内容，然后删除？及所有注释符（），但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描述如下：在名称为Form1，标题为调用系统对话框的窗体上有一个文本框、六个命令按钮及一个通用对话框，通过CommonDialog实现对部分系统对话框的调用。请将打开按钮的功能补充完整，并限制打开的类型为*.txt和*.exe的文件

15、，默认打开文件类型为txt文件。考生执行以下操作，单击打开按钮，选择考生文件夹下的in049.txt，将该文件夹里的文本读到文本框中，并单击字体按钮，将文本框中的文字设置为粗斜体。程序运行时的窗体界面如图所示。*参考答案与分析【解析】通用对话框CommonDialog主要有Open、Save、Color、Font、Printer、Help等几类，分别表示打开、保存、颜色、字体、打印、帮助对话框。它的FileName属性用来设置或返回要保存的文件的路径及文件名；Filter用来指定文件对话框中显示文件的类型；FilterIndex用来指定默认的过滤器；DialogTitle用来设置对话框的标题。Action表示通用对话框的类型，其中1表示打开通用对话框。故本题第一个？与第二个？处填*.txt和*.com，表示打开对话框打开的文件类型；在第三个？处填1，表示默认的过滤器为*.txt，如果是2，则默认的过滤器为*.com。本处也可以填0，此时默认过滤器仍为*.txt。第四个？处填1表明该对话框为打开文件对话框。注意，本题涉及通用对话框的很多属