就业数据资源平台
当前位置:首页 > Visual Basic
2013年计算机等级考试二级VB精选题及答案17

简单应用(2小题,每题20分,计40分)

  注意:下面出现的“考生文件夹”均为%USER%


  ***********************************************************************


  (1)在考生目录下有一个工程文件sjt3.vbp,窗体文件中已给出所有控件和部分程序,如图所示。


  要求:


  1)利用属性窗口设置适当的属性,使text1、text2中数据右对齐;


  2)请编写适当的程序完成以下功能:在Text1中输入40(度数),选择一个单选按钮,单击“计算”按钮,则根据所选择的单选按钮, 计算出相应的正弦、余弦值(保留3位小数,第4位截去,π取3.14159),并显示在Text2中。


  注意:


  考生不得修改窗体文件中已经存在的程序,在结束程序运行之前,必须进行一种计算,在Text1中输入的必须是40, 必须用窗体右上角的关闭按钮结束程序,否则无成绩。最后,程序按原文件名存盘。


  解题思路:


  启动Visual Basic系统,打开考生文件夹下需编辑的工程文件sjt3.vbp,相应的窗体文件名为sjt3.frm。


  由于所提供的窗体控件不完整,通过属性窗口将文本框的对齐格式(Alignment属性)均设为1。


  由于所提供的窗体程序不完整,需添加事件过程。


  单击“计算”按钮(即运行Click事件过程),在该Click事件过程中加入语句:


  Private Sub Command1_Click()


  If Option1.Item(0) = True Then


  Text2.Text = Format(Sin(Val(Text1.Text) * 3.14159 / 180), "0.000")


  End If


  If Option1.Item(1) = True Then


  Text2.Text = Format(Cos(Val(Text1.Text) * 3.14159 / 180), "0.000")


  End If


  End Sub


  参考文件:c:\wexam\26990001\hlpsys\参考答案\sjt3.vbp、sjt3.frm、sjt3.vbw、out3.txt


  请把这些文件复制到c:\wexam\26990001中,然后打开sjt3.vbp文件并运行。


  **********************************************************************


  (2)在考生文件夹下有一个工程文件sjt4.vbp,窗体上已经给出所有控件。程序运行时,单击“开始”按钮,则汽车图标向右运动;单击“停止”按钮则汽车停止运动;移动滚动条上的滚动框,可以改变汽车的运动速度(滚动框向右移动,速度减慢)。如图所示。


  要求:


  去掉程序中的注释符,把程序中的 ?改为正确的内容。


  提示:


  窗体上有一个计时器,计时器的事件过程每执行一次,汽车向右移动10,程序通过改变计时器控件的Interval属性来改变汽车的运动速度。


  注意:


  不得修改控件的属性。最后,按原文件名存盘。


  解题思路:


  启动Visual Basic系统,打开考生文件夹下需编辑的工程文件sjt4.vbp,相应的窗体文件名为sjt4.frm。


  由于所提供的窗体程序不完整,在“开始”按钮的Private Sub Command1_Click()事件过程中,有一处地方需要修改。


  1) 将语句


  'Timer1.Enabled = ?


  改为


  Timer1.Enabled = True


  在滚动框的Private Sub HScroll1_Change()事件过程中,有一处地方需要修改。


  1) 将语句


  '?.Interval = HScroll1.Value


  改为


  Timer1.Interval = HScroll1.Value


  在计时器的Private Sub Timer1_Timer()事件过程中,有一处地方需要修改。


  1) 将语句


  'Picture1.Left = ? + 10


  改为


  Picture1.Left = Picture1.Left + 10


  参考文件:c:\wexam\26990001\hlpsys\参考答案\sjt4.vbp、sjt4.frm、sjt4.frx、sjt4.vbw


  请把这些文件复制到c:\wexam\26990001中,然后打开sjt4.vbp文件并运行。

就业数据资源平台