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()
Const PI = 3.14159
Select Case Combo1.Text
Case "sin": a = Sin(CInt(Text1.Text) * PI / 180)
Case "cos": a = Cos(CInt(Text1.Text) * PI / 180)
Case "tg": a = Tan(CInt(Text1.Text) * PI / 180)
Case "ctg": a = 1 / Tan(CInt(Text1.Text) * PI / 180)
End Select
Text2 = Int(a * 1000) / 1000
End Sub
另外特别注意需在Text1中输入的值必须是40，而且结束程序时必须用窗体右上角的关闭按钮来结束程序，否则该部分将没有成绩。
参考文件：c:\wexam\26990001\hlpsys\参考答案\sjt3.vbp、sjt3.frm、sjt3.frx、sjt3.vbw、out3.txt
请把这些文件复制到c:\wexam\26990001中，然后打开sjt3.vbp文件并运行。
**********************************************************************
（2）在考生文件夹下有一个工程文件sjt4.vbp，窗体上已经画出所有控件。程序的作用是构成一个简单的时钟。刚运行时，不计时，选择一个单选按钮后，再单击“计时”按钮，则开始计时，并根据所选的单选按钮决定是每秒显示一次秒数，还是每10秒显示一次秒数。Text2 用于显示秒，如图所示。窗体文件中已经给出了程序，但不完整，请去掉程序中的注释符，把程序中的 ？改为正确的内容。
注意：
不得修改已经给出的程序。最后把修改后的文件按原文件名存盘。
解题思路：
启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt4.vbp，相应的窗体文件名为sjt4.frm。
由于所提供的窗体程序不完整，在窗体的Private Sub Timer1_Timer事件过程中，有三处地方需要修改。
1) 将语句
'num = ?
改为
num = num + 1
2) 将语句
'Text2.Text = Text2.Text + ?
改为
Text2.Text = Text2.Text + 10
3) 将语句
'Text1.Text = Text1.Text + ?
改为
Text1.Text = Text1.Text + 1
参考文件：c:\wexam\26990001\hlpsys\参考答案\sjt4.vbp、sjt4.frm、sjt4.vbw
请把这些文件复制到c:\wexam\26990001中，然后打开sjt4.vbp文件并运行。
**********************************************************************
| 
