1. 基本操作（2小题，每小题15分，共计30分）

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

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

　　（1）在名称为Form1标题为“选课”的窗体上画一个复选框数组，名称为CH1，共有四个复选框，按顺序其标题分别是“数学”、“语文”、“外语”、“计算机”，其中“语文”、“计算机” 复选框处在选中状态下，运行时的窗体如图所示。 请画控件并设置相应属性。

　　*注意：

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

　　解题思路：

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

　　在该窗体上画一个复选框控件，通过对复选框控件的复制产生复选框控件数组，共有四个复选框，通过其属性窗口将名称设为CH1，按顺序将其标题（Caption属性）分别设为“数学”、“语文”、“外语”、“计算机”，由于题目要求“语文”、“计算机”复选框处在选中状态，因此将其Value属性设为1。另外通过Form1窗体的属性窗口将其标题（Caption属性）设为“选课”。

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

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

　　（2）在名称为 Form1的窗体上画一个名称为HS1的水平滚动条，其刻度值范围为 1～100；画一个命令按钮，名称为C1，标题为“移动滚动框”。请编写适当的事件过程，使得在运行时，每单击命令按钮一次（ 假定单击次数少于10次 ），滚动框向右移动10个刻度。运行时的窗体如图所示。要求程序中不得使用变量，事件过程中只能写一条语句。

　　*注意：

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

　　解题思路：

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

　　在该窗体上画一个水平滚动条控件，通过其属性窗口将名称设为HS1，Min属性设为1，Max属性设为100。画一个命令按钮控件，通过其属性窗口将名称设为C1，标题（Caption属性）设为“移动滚动框”。单击命令按钮（即运行Click事件过程），在该Click事件过程中加入语句：

　　Private Sub C1_Click()

　　HS1.Value = HS1.Value + 10

　　End Sub

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

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

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

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

　　（1）在名称为Form1的窗体上画一个名称为Text1的文本框，再建立一个名称为Format的弹出式菜单，含三个菜单项，标题分别为“加粗”、“斜体”、“下划线”，名称分别为M1、M2、M3。请编写适当的事件过程，在运行时当用鼠标右键单击文本框时，弹出此菜单，选中一个菜单项后，则按所选菜单标题设置文本框中文本的格式，如图所示。

　　*注意：

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

　　解题思路：

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

　　在该窗体上画一个文本框控件，通过其属性窗口将名称设为Text1。通过菜单编辑器建立一个主菜单，在菜单编辑器的标题处输入“格式”（题目没有要求），名称处输入Format，将“可见”单选按钮设为不选状态。

　　在该菜单下有三个子菜单，在菜单编辑器的标题处分别输入“加粗”、“斜体”、“下划线”，名称处分别输入M1、M2、M3。

　　右键单击文本框，在弹出的菜单中选择“加粗”命令（即运行Click事件过程），在该Click事件过程中加入语句：

　　Private Sub m1_Click()

　　Text1.Font.Bold = True

　　End Sub

　　右键单击文本框，在弹出的菜单中选择“斜体”命令（即运行Click事件过程），在该Click事件过程中加入语句：

　　Private Sub m2_Click()

　　Text1.Font.Italic = True

　　End Sub

　　右键单击文本框，在弹出的菜单中选择“下划线”命令（即运行Click事件过程），在该Click事件过程中加入语句：

　　Private Sub m3_Click()

　　Text1.Font.Underline = True

　　End Sub

　　在文本框中右键按下鼠标（即运行MouseDown事件过程），在该MouseDown事件过程中加入语句：

　　Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

　　If Button = 2 Then '2表示右键的值

　　PopupMenu format

　　End If

　　End Sub

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

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

　　（2）在考生文件夹下有一个工程文件sjt4.vbp，含有Form1和Form2两个窗体，Form1为启动窗体，窗体上的控件如图1所示。程序运行后，在Form1窗体的文本框中输入有关信息（“密码”框中显示“*”字符），然后单击“提交”按钮则弹出“确认”对话框（即Form2窗体），并在Form2中显示输入的信息，如图2所示。单击“确认”按钮则程序结束，单击“重输”按钮，则Form2消失，回到Form1窗体。在给出的窗体文件中已经给出了程序，但不完整。

　　要求：

　　1）把Form1的标题改为“注册”，把Form2的标题改为“确认”；

　　2）设置适当的属性，使Form2标题栏上的所有按钮消失（如图2所示）；

　　3）去掉程序中的注释符，把程序中的 ？改为正确的内容。

　　注意：不能修改程序中的其他部分，标题等属性的修改只能在属性窗口中进行。最后把修改后的文件按原文件名存盘。

　　解题思路：

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

　　由于所提供的窗体控件不完整，通过其属性窗口将Form1的标题（Caption属性）设为“注册”，Form2的标题（Caption属性）设为“确认”，将Form2的所有按钮（ControlBox属性）设为False。

　　由于所提供的窗体程序不完整，在“确认”按钮的Private Sub C1_Click()中，有三处地方需要修改。

　　1) 将语句

　　'Form2. ?

　　改为

　　Form2.Show

　　2) 将语句

　　'Form2.Print Form1.Frame1. ?

　　改为

　　Form2.Print Form1.Frame1.Caption

　　3) 将语句

　　'If Form1.Op1( ? ).Value Then

　　改为

　　If Form1.Op1(k).Value Then

　　在窗体的Private Sub Form_Load()中，有一处地方需要修改。

　　1) 将语句

　　'Text2. ? = "*"

　　改为

　　Text2.PasswordChar = "*"

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

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

3. 综合应用（1小题，计30分）

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

　　在考生目录下有一个工程文件sjt5.vbp，其窗体上有两个标签L1和L2，标题分别为“口令”和“允许次数”；一个命令按钮C1，标题为“确定”；两个文本框名称分别为Text1和 Text2。 其中 Text1用来输入口令（输入时，显示“*”），无初始内容； Text2的初始内容为3。并给出了C1的事件过程，但不完整，要求去掉程序中的注释符，把程序中的？改为正确的内容，使得在运行时，在 Text1中输入口令后，单击“确定”，如果输入的是“123456”则在 Text1中显示“口令正确”；如果输入其他内容，单击“确定”后，弹出如图所示的错误提示对话框，并且Text2中的数字减1。

　　最多可输入3次口令，若3次都输入错误，则禁止再次输入。

　　注意：

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

　　解题思路：

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

　　由于窗体中的Text1文本框属性不完整，按照题意需将PasswordChar属性设为*。另外所提供的窗体程序不完整，在窗体的Private Sub C1_Click()事件过程中，有四处地方需要修改。

　　1) 将语句

　　'If ? = "123456" Then

　　改为

　　If Text1.Text = "123456" Then

　　2) 将语句

　　'Text1.? = ""

　　改为

　　Text1.PasswordChar = ""

　　3) 将语句

　　'If Text2.Text > ? Then

　　改为

　　If Text2.Text > 0 Then

　　4) 将语句

　　'Text1.Enabled = ?

　　改为

　　Text1.Enabled = False

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

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