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

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

　　请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。

　　(1)在名称为Form1 的窗体上画一个名称check1的复选框数组(Index属性从0开始)，含三个复选框，其标题分别为“语文”、“数学”、“体育”，利用属性窗口设置适当的属性，使“语文”未选，“数学”被选中，“体育”为灰色，再把窗体的标题设置为“选课”，如图所示。

　　注意：

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

　　解题思路：

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

　　在该窗体上画一个复选框控件，通过对复选框控件的复制产生复选框控件数组，共有三个复选框，标题(Caption属性)分别设为“语文”、“数学”、“体育”，“数学”的Value属性设为1,“体育”的Value属性设为2。激活Form1窗体，通过其属性窗口将标题(Caption属性)设为“选课”。

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

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

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

　　(2)在名称为Form1的窗体上画两个文本框，名称分别为Text1、Text2，再画两个命令按钮，名称分别为Command1、Command2，标题分别为“复制”、“删除”。程序运行时，在Text1中输入一串字符，并用鼠标拖拽的方法选择几个字符，然后单击“复制”按钮，则被选中的字符被复制到Text2中(如图所示)。若单击“删除”按钮，则被选择的字符从Text1中被删除。请编写两个命令按钮的Click过程完成上述功能。

　　注意：

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

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

　　解题思路：

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

　　在该窗体上画二个文本框控件，通过其属性窗口将名称分别设为Text1、Text2。画二个命令按钮控件，通过其属性窗口将名称分别设为Command1、Command2，标题(Caption属性)分别设为“复制”、“删除”。

　　单击“复制”按钮(即运行Click事件过程)，在该Click事件过程中加入语句：

　　Private Sub Command1_Click()

　　Text2 = Text1.SelText

　　End Sub

　　单击“删除”按钮(即运行Click事件过程)，在该Click事件过程中加入语句：

　　Private Sub Command2_Click()

　　Text1.SelText = ""

　　End Sub

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

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

　　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文件并运行。

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

　　3. 综合应用(1小题，计30分)

　　注意：下面出现的“考生文件夹”均为%USER%在考生文件夹下有一个工程文件sjt5.vbp，窗体上有两个图片框，名称为P1、P2，分别用来表示信号灯和汽车，其中在P1中轮流装入“黄灯.ico”、“红灯.ico”、“绿灯.ico”文件来实现信号灯的切换;还有两个计时器Timer1和Timer2，Timer1用于变换信号灯，黄灯1秒，红灯2秒，绿灯3秒;Timer2用于控制汽车向左移动。运行时，信号灯不断变换，单击“开车”按钮后。汽车开始移动，如果移动到信号灯前或信号灯下，遇到红灯或黄灯，则停止移动，当变为绿灯后再继续移动。

　　在窗体中已经给出了全部控件和程序，但程序不完整，要求阅读程序并去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的文件以原文件名存盘。

　　解题思路：

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

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

　　1) 将语句

　　'Timer2.Enabled = ?

　　改为

　　Timer2.Enabled = True

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

　　1) 将语句

　　'P1.Picture = LoadPicture("?")

　　改为

　　P1.Picture = LoadPicture("绿灯.ico")

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

　　1) 将语句

　　'Timer2.Enabled = ?

　　改为

　　Timer2.Enabled = False

　　2) 将语句

　　'P2.Move ? - 10, P2.Top, P2.Width, P2.Height

　　改为

　　P2.Move P2.Left - 10, P2.Top, P2.Width, P2.Height