2013年计算机二级VB上机模拟试题及答案（3）

　　2. 简单应用(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文件并运行。