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

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

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

　　（1）请在名称为Form1的窗体上建立一个二级下拉菜单，第一级共有二个菜单项，标题分别为“文件”、“编辑”，名称分别为file、edit；在“编辑”菜单下有第二级菜单，含有三个菜单项，标题分别为“剪切”、“复制”、“粘贴”，名称分别为cut、copy、paste。其中“粘贴”菜单项设置为无效（如图所示）。

　　*注意

：

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

　　解题思路：

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

　　在该窗体上通过菜单编辑器建立二个主菜单，在菜单编辑器的标题处分别输入“文件”、“编辑”，名称处分别输入file、edit，在“编辑”菜单下有三个子菜单，在菜单编辑器的标题处分别输入“剪切”、“复制”、“粘贴”，名称处分别输入cut、copy、paste，将“粘贴”菜单项中的“有效”单选按钮设为不选状态。

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

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

　　（2）在窗体上画二个文本框，名称分别为Text1、Text2。请设置适当的控件属性，并编写适当的事件过程，使得在运行时，如果在Text1中每输入一个字符，则显示一个“*”，同时在Text2中显示输入的内容（如图所示）。程序中不得使用任何变量。

　　*注意：

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

　　解题思路：

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

　　在该窗体上画二个文本框控件，通过其属性窗口将名称分别设为Text1、Text2，将文本框Text1的PasswordChar属性设为*。

　　文本框Text2中显示Text1内容（即运行Change事件过程），在该Change事件过程中加入语句：

　　Private Sub Text1_Change()

　　Text2.Text = Text1.Text

　　End Sub

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

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

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

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

　　（1）在名称为Form1的窗体上画二个图片框，名称分别为P1、P2，高度均为1900，宽度均为 1700，通过属性窗口把图片文件pic1.bmp放入P1中，把图片文件pic2.jpg放入 P2中；再画一个命令按钮，名称为C1，标题为“交换图片”（如图所示）。 编写适当的事件过程，使得在运行时，如果单击命令按钮，则在P1中显示Pic2.jpg，在P2中显示Pic1.bmp。程序中不得使用任何变量，也不能使用第三个图片框。

　　*注意：

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

　　解题思路：

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

　　在该窗体上画二个图片框控件，通过其属性窗口将名称分别设为P1、P2，高（Height属性）均设为1900，宽（Width属性）均设为1700，通过Picture属性将pic1.bmp装入P1图片框中、pic2.jpg装入P1图片框中。画一个命令按钮控件，通过其属性窗口将名称设为C1，标题（Caption属性）设为“交换图片”。

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

　　Private Sub C1_Click()

　　P1.Picture = LoadPicture("pic2.jpg")

　　P2.Picture = LoadPicture("pic1.bmp")

　　End Sub

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

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

　　（2）在考生文件夹下有一个工程文件 sjt4.vbp，请在窗体上画二个复选框，名称分别为 Ch1、Ch2，标题分别为“程序设计”、“数据库原理”；然后画一个文本框，名称为Text1；再画一个命令按钮，名称为C1，标题为“确定” （如图所示）。请编写适当的事件过程，使得在运行时，选中复选框并单击“确定”按钮， 就可以按照下表的要求把结果显示在文本框中。存盘时，工程文件名为sjt4.vbp，窗体文件名为sjt4.frm。

　　注意：

　　考生不得修改窗体文件中已经存在的程序，退出程序时必须通过单击窗体右上角的关闭按钮。在结束程序运行之前，必须进行产生下表一个结果的操作。

　　解题思路：

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

　　由于所提供的窗体控件不完整，需在该窗体上画二个复选框控件，通过其属性窗口将名称分别设为Ch1、Ch2，标题（Caption属性）分别设为“程序设计”、“数据库原理”。画一个文本框控件，通过其属性窗口将名称设为Text1。画一个命令按钮控件，通过其属性窗口将名称设为C1，标题（Caption属性）设为“确定”。

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

　　Private Sub C1_Click()

　　Text1.Text = "我选的课是"

　　If Ch1.Value Then

　　Text1.Text = Text1.Text + Ch1.Caption

　　End If

　　If Ch2.Value = 1 Then

　　Text1.Text = Text1.Text + Ch2.Caption

　　End If

　　End Sub

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

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

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

　　注意：下面出现的“考生文件夹”均为%USER%在考生文件夹下有一个工程文件sjt5.vbp，其窗体上有二个文本框，名称分别为Text1、Text2；还有三个命令按钮，名称分别为C1、C2、C3，标题分别为“输入”、“计算”、“存盘”（如图所示）。并有一个函数过程isprime(a)可以在程序中直接调用，其功能是判断参数a是否为素数，如果是素数，则返回True，否则返回False。请编写适当的事件过程，使得在运行时，单击“输入”按钮，就把文件in5.txt中的整数放入Text1中；单击“计算”按钮，则找出大于Text1中的整数的第1个素数，并显示在Text2中；单击“存盘”按钮，则把Text2中的计算结果存入out5.txt文件中。

　　注意：

　　考生不得修改isprime函数过程和控件的属性，必须把计算结果通过“存盘”按钮存入out5.txt文件中。

　　解题思路：

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

　　由于所提供的窗体程序不完整，需添加事件过程。

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

　　Private Sub C1_Click()

　　Open App.Path & "\in5.txt" For Input As #1

　　Input #1, a%

　　Close #1

　　Text1.Text = a%

　　End Sub

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

　　Private Sub C2_Click()

　　a% = Text1.Text

　　Do

　　a% = a% + 1

　　Loop Until isprime(a%)

　　Text2.Text = a%

　　End Sub

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

　　Private Sub C3_Click()

　　Open App.Path & "\out5.txt" For Output As #1

　　Print #1, Text2.Text

　　Close #1

　　End Sub

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

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