2. 简单应用（2小题，每题20分，计40分）

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

　　（1）在名称为Form1的窗体上画一个名称为Text1的文本框；画二个标题分别为“对齐方式”、“字体”，名称分别为Frame1、Frame2的框架；在Frame1框架中画三个单选按钮，标题分别为“左对齐”、“居中”、“右对齐”

　　，名称分别为Option1、Option2、Option3；在Frame2框架中画二个单选按钮，标题分别为“宋体”、“黑体”，名称分别为Option4、Option5。

　　要求：

　　编写五个单选按钮的 Click事件过程，使程序运行时，单击这些单选按钮，可以对文本框中的文字实现相应的操作（如图所示）。

　　注意：

　　要求程序中不得使用变量，每个事件过程中只能写一条语句。

　　存盘时必须存放在考生文件夹下，工程文件名为sjt3.vbp，窗体文件名为sjt3.frm。

　　解题思路：

　　启动Visual Basic系统，创建一个Form1窗体。

　　在该窗体上画一个文本框控件，通过其属性窗口将名称设为Text1。画二个框架控件，通过其属性窗口将名称分别设为Frame1、Frame2，标题（Caption属性）分别设为“对齐方式”、“字体”。在Frame1框架中画三个单选按钮控件，通过其属性窗口将名称分别设为Option1、Option2、Option3，标题（Caption属性）分别设为“左对齐”、“居中”、“右对齐”。在Frame2框架中画二个单选按钮控件，通过其属性窗口将名称分别设为Option4、Option5，标题（Caption属性）分别设为“宋体”、“黑体”。

　　单击“左对齐”单选按钮（即运行Click事件过程），在该Click事件过程中加入语句：

　　Private Sub Option1_Click()

　　Text1.Alignment = 0

　　End Sub

　　单击“居中”单选按钮（即运行Click事件过程），在该Click事件过程中加入语句：

　　Private Sub Option2_Click()

　　Text1.Alignment = 2

　　End Sub

　　单击“右对齐”单选按钮（即运行Click事件过程），在该Click事件过程中加入语句：

　　Private Sub Option3_Click()

　　Text1.Alignment = 1

　　End Sub

　　单击“宋体”单选按钮（即运行Click事件过程），在该Click事件过程中加入语句：

　　Private Sub Option4_Click()

　　Text1.Font = "宋体"

　　End Sub

　　单击“黑体”单选按钮（即运行Click事件过程），在该Click事件过程中加入语句：

　　Private Sub Option5_Click()

　　Text1.Font = "黑体"

　　End Sub

　　参考文件：c:/wexam/26990001/hlpsys/参考答案/sjt3.vbp、sjt3.frm、sjt3.vbw

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

　　（2）在考生文件夹下有一个工程文件sjt4.vbp。 其窗体上有一个圆，相当于一个时钟，当程序运行时通过窗体的Activate 事件过程在圆上产生12个刻度点，并完成其他初始化工作；另有长、短2条（红色、蓝色）直线，名称分别为Line1和Line2， 表示两个指针。程序运行时，单击“开始”按钮，则每隔0.5秒Line1（长指针）顺时针转动一个刻度，Line2（短指针）顺时针转动1/12个刻度（即长指针转动一圈，短指针转动一个刻度），单击“停止”按钮，两个指针停止转动，如图所示。

　　在窗体文件中已经给出了全部控件，但程序不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容。

　　提示：

　　程序中的符号常量x0、y0是圆心到窗体左上角的距离，radius是圆的半径。

　　注意：

　　不能修改程序中的其他部分和控件的属性。最后把修改后的文件按原文件名存盘。

　　解题思路：

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

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

　　1) 将语句

　　'?

　　改为

　　Timer1.Enabled = False

　　在窗体的Private Sub Form_Activate()事件过程中，有二处地方需要修改。

　　1) 将语句

　　'For k = 0 To 359 Step ?

　　改为

　　For k = 0 To 359 Step 360 / 12

　　2) 将语句

　　'x = radius * Cos(k * 3.14159 / 180) + ?

　　改为

　　x = radius * Cos(k * 3.14159 / 180) + x0

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

　　1) 将语句

　　'Line1.? = y0 - len1 * Sin(a * 3.14159 / 180)

　　改为

　　Line1.Y2 = y0 - len1 * Sin(a * 3.14159 / 180)

　　2) 将语句

　　'b = ? - 30 / 12

　　改为

　　b = b - 30 / 12

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

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