全国计算机等级考试二级VB上机试题及答案五.pdf
全国计算机等级考试二级全国计算机等级考试二级 VBVB 上机试题及答案上机试题及答案(四）四）基本操作（2 小题,每题 15 分，共 30 分)*请根据以下各小题的要求设计VB 应用程序（包括界面和代码）.请根据以下各个小题的要求设计Visual Basic 应用程序（包括界面和代码）。（1）在名为 Form1 的窗体上画一个框架,名称为 Frm1，标题为框架，高度为 2000，宽度为 3000；再在框架中画一个文本框，名称为Text1，高度为300，宽度为1000，文本框的初始内容设置为文本框”。程序运行时的界面如图所示.（2）在名称为 Form1 的窗体上，画一个框架，两个单选按钮，一个命令按钮。框架的名称为 Frm1,标题为”地点。两个单选按钮在 Frm1 框架中，名称为 Opt1,Opt2，标题分别为图书馆，”教室。命令按钮的名称为 Cmd1,标题为屏蔽。编写适当的事件过程,当程序运行时，如果单击Cmd1 按钮,框架就会被屏蔽。程序运行时的界面如图所示。*参考答案与分析（1）【解析】在窗体中画一个框架，则只需要从工具箱中拖出框架控件放在窗体上即可，而要在框架上画文本框，则是从工具箱中将文本框拖放到框架中。所以，考生必须注意的是,应该先在窗体上画框架,然后在框架中画文本框.【答案】第一步：启动 VB，新建一个工程文件。第二步：单击工具箱中框架控件,在窗体上画一个框架,将其 Name属性设为 Frm1；Caption 属性设为”框架”,Height 为 2000，Width 为 3000；再在框架中画一个文本框，Name 属性为 Text1，Height 为 300，Width 为 1000,文本框的 Text 属性设置为文本框.第三步：调试并运行程序.程序设计完成经调试无误后进行存盘.执行”文件菜单中的保存工程”命令，打开文件另存为对话框，窗体文件名为Stj1。form”,单击保存按钮。然后在紧接着出现的”工程另存为对话框中选择工程文件名为Stj1。vbp”，单击保存按钮。（2)【解析】要将框架屏蔽，只要将其 Enabled 属性设置为 False 即可.Enabled 为 True 时保证框架及其内的对象使活动的，为 False 时其标题会变黑，框架中的所有对象均被屏蔽（禁用）。【答案】第一步：启动 VB，新建一个工程文件。第二步:单击工具箱中的框架控件，在窗体上画一个框架，将其 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 应用程序（包括界面和代码)。（1）在考生目录下有一个工程文件stj3.vbp，窗体上有一个圆和一条直线（直线名称为 Line1)构成一个钟表的图案；有两个命令按钮，名称分别为Command1 和 Command2，标题分别为开始”和”停止”；还有一个名为Timer1 的计时器。程序运行时，钟表指针不动，单击开始”按钮，则钟表上的指针（即Line1)开始顺时针旋转（每秒转 6?,一分钟一圈)；单击”停止”按钮，则指针停止旋转。运行时的窗体如图所示。请设置计时器的适当属性，使得每秒激活计时器的Timer 事件一次;并编写两个命令按钮的 Click 事件过程。文件中已经给出了所有控件和部分程序，不得修改已有的程序和其他控件的属性；编写的事件过程中不得使用变量，且只能写一条语句。最后把修改后的文件按原文件名保存。试题源程序: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 End Sub（2）在考生文件夹下有一个工程文件stj4.vbp，窗体上已经画出所有的控件。程序的作用是构成一个简单的闹钟。刚运行时，不计时，选择一个单选按钮后，再单击”计时”按钮,则开始计时，并根据所选的单选按钮决定是每秒显示一次，还是每 10 秒显示一次.Text2 用于显示秒，如图所示。窗体文件中已经给出了程序，但不完整，请去掉程序中的注释符，把程序中的？改为正确的内容。注意:不得修改已经给出的程序。最后把修改后的文件按原文件名保存。试题源程序：1 Dim num2 Private Sub Command1_Click()3 Timer1。Enabled=True4 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*参考答案与分析（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。【答案】（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。Y111 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=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=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 Sub(3）单击启动键运行成功。（4）按考试要求将文件保存在考生文件夹下。综合应用（1 小题，共 30 分）*请根据以下各小题的要求设计VB 应用程序（包括界面和代码）。在考生文件夹下有工程文件djks049.vbp及窗体文件djks049.frm，该程序是不完整的,请在有？的地方填入正确内容,然后删除？及所有注释符（),但不能修改其他部分.存盘时不得改变文件名和文件夹.本题描述如下：在名称为 Form1,标题为”调用系统对话框”的窗体上有一个文本框、六个命令按钮及一个通用对话框，通过CommonDialog 实现对部分系统对话框的调用。请将打开按钮的功能补充完整，并限制打开的类型为。txt 和。exe 的文件，默认打开文件类型为 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表明该对话框为打开文件对话框。注意,本题涉及通用对话框的很多属性,比如Copies 属性返回打印文件对话框的打印份数。很多属性考生只需了解即可。但考生要重点掌握打开文件对话框。第五个?处填 CommonDialog1。FileName,表示打开文件的文件名。【答案】1打开考生文件夹里的工程文件，双击窗体的任何部分，进入代码编写窗口，补充如下：第一个？处填*。txt第二个？处填.com第三个？处填 0 或 1第四个？处填 1第五个？处填 CommonDialog1.FileName2 填写完毕，删除符号,调试程序,确定无误后,按照原来的文件名保存在原来的文件夹中。
