全国计算机等级考试二级VB上机试题及答案(五).docx

《全国计算机等级考试二级VB上机试题及答案(五).docx》由会员分享，可在线阅读，更多相关《全国计算机等级考试二级VB上机试题及答案(五).docx（7页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

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

2、t2，标题分别为图书馆，教室。吩咐按钮的名称为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分*请依据以下各小题的要求设计VB应用程序包括界面和

5、代码。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 * Cos(q * PI / 180)11 En

7、d Sub2在考生文件夹下有一个工程文件stj4.vbp，窗体上已经画出全部的控件。程序的作用是构成一个简洁的闹钟。刚运行时，不计时，选择一个单项选择按钮后，再单击计时按钮，那么开场计时，并依据所选的单项选择按钮确定是每秒显示一次，还是每10秒显示一次。Text2用于显示秒，如下图。窗体文件中已经给出了程序，但不完整，请去掉程序中的注释符，把程序中的？改为正确的内容。留意：不得修改已经给出的程序。最终把修改后的文件按原文件名保存。试题源程序：1 Dim num2 Private Sub Command1_Click()3 Timer1.Enabled = True4 End Sub5 Priv

8、ate 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*参考答案及分析1【解析】1此题要求用开场和完毕按钮来限制

9、定时器的开场和完毕，所以编写Command1_Click()和Command2_Click()函数，用Enabled属性来限制定时器的工作和完毕。2Timer 控件响应时间的消逝。每个 Timer 控件都有 Interval 属性，指定定时器事务之间的毫秒数。除非制止此属性，否那么定时器在大致相等的时间间隔不断承受事务称作定时器事务会更贴切。3Line 控件的X1, Y1, X2, Y2 属性，返回或设置 Line 控件的起始点 (X1, Y1) 和终止点 (X2, Y2) 的坐标。水平坐标是 X1 和 X2；垂直坐标是 Y1 和 Y2。【答案】1启动VB程序，翻开考生文件夹下的工程文件stj

10、3.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.Y111 q = 9012 End Sub13 Private

11、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 Sub3单击启动键运行胜利。4按考试要求将文件保存在考生文件夹下。2【解析】此题要求在文本框中显示时间，用单项选择按钮来确定是每秒显示还是每10秒显示一次。在Timer1_Timer()函数中，中选中每秒显示时，假如num60 时有 Text2.Text = num 所以num = num + 1 。假如选中每10秒显示一次

12、，那么Text2.Text = Text2.Text + 10。intnumber函数：返回数字的整数局部。CIntnumber函数用于把其他数据类型转换到 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 = True4 End Sub5 Private Sub Timer1_Timer(

13、)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 Sub3单击启动键运行胜利。4按考试要求将文件保存在考生文件夹下。 综合应用1小题，共

14、30分*请依据以下各小题的要求设计VB应用程序包括界面和代码。在考生文件夹下有工程文件djks049.vbp及窗体文件djks049.frm，该程序是不完整的，请在有？的地方填入正确内容，然后删除？及全部注释符，但不能修改其他局部。存盘时不得变更文件名和文件夹。此题描述如下：在名称为Form1，标题为调用系统对话框的窗体上有一个文本框, 六个吩咐按钮及一个通用对话框，通过CommonDialog实现对局部系统对话框的调用。请将翻开按钮的功能补充完整，并限制翻开的类型为*.txt和*.exe的文件，默认翻开文件类型为txt文件。考生执行以下操作，单击翻开按钮，选择考生文件夹下的in049.txt

15、，将该文件夹里的文本读到文本框中，并单击字体按钮，将文本框中的文字设置为粗斜体。程序运行时的窗体界面如下图。*参考答案及分析【解析】通用对话框CommonDialog主要有Open, Save, Color, Font, Printer, Help等几类，分别表示翻开, 保存, 颜色, 字体, 打印, 扶植对话框。它的属性用来设置或返回要保存的文件的路径及文件名；Filter用来指定文件对话框中显示文件的类型；FilterIndex用来指定默认的过滤器；DialogTitle用来设置对话框的标题。Action表示通用对话框的类型，其中1表示翻开通用对话框。故此题第一个？及第二个？处填*.txt

16、和* ，表示翻开对话框翻开的文件类型；在第三个？处填1，表示默认的过滤器为*.txt，假如是2，那么默认的过滤器为* 。本处也可以填0，此时默认过滤器仍为*.txt。第四个？处填1说明该对话框为翻开文件对话框。留意，此题涉及通用对话框的许多属性，比方Copies属性返回打印文件对话框的打印份数。许多属性考生只需了解即可。但考生要重点驾驭翻开文件对话框。第五个？处填CommonDialog1.，表示翻开文件的文件名。【答案】1翻开考生文件夹里的工程文件，双击窗体的任何局部，进入代码编写窗口，补充如下：第一个？处填*.txt第二个？处填* 第三个？处填0或1第四个？处填1第五个？处填CommonDialog1.2填写完毕，删除符号，调试程序，确定无误后，依据原来的文件名保存在原来的文件夹中。