基础题（1）【考点分析】本题考点有：菜单编辑器的使用（标题、名称和内缩符号）。

【解题思路】通过菜单编辑设置菜单的标题、名称和内缩符号。

【操作步骤】
步骤1：建立界面，添加控件并设置控件的属性。

程序中用到的控件及属性见表3.193。

步骤2：调试并运行程序，关闭程序后按题目要求存盘。

基础题（2）【考点分析】本题考点有：文本框的Name、PasswordChar属性和Change 事件。

【解题思路】首先通过属性窗口设置文本框的名称，并将Text1的PasswordChar属性设为*。

在文本框的Change事件中，将文本框1显示的内容赋给文本框2。

【操作步骤】
步骤1：建立界面，添加控件并设置控件的属性。

程序中用到的控件及属性见表3.194。

步骤2：编写程序代码。

参考答案
Private Sub Text1_Change()
Text2.Text = Text1.Text
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。

简答题（1）【考点分析】本题考点有：图片框的Name、Height、Width、Picture属性和命令按钮的Name、Caption属性。

【解题思路】通过图片框的Name、Height、Width、Picture属性分别设置其名称、高、宽和添加图片。

在命令按钮的Click事件中，图片的交换用LoadPicture()方法来实现。

【操作步骤】
步骤1：建立界面，添加控件并设置控件的属性。

程序中用到的控件及属性见表3.195和表3.196。

表3.195
程序提供代码
Private Sub C1_Click()
P1.Picture = LoadPicture("pic2.jpg")
P2.Picture = LoadPicture("pic1.bmp")
End Sub
程序结束
步骤3：调试并运行程序，关闭程序后按题目要求存盘。

简答题（2）【考点分析】本题考点有：复选框的Name、Caption、Value属性，文本框的Name、Text属性，命令按钮的Name、Caption属性，"+"连接符以及If判断语句。

【解题思路】首先在窗体上建立相应控件，并通过属性窗口设置其属性。

通过If语句判断复选框的Value属性值是否为True，来判断文本框中应该显示的内容。

【操作步骤】
步骤1：建立界面，添加控件并设置控件的属性。

程序中用到的控件及属性见表3.197。

步骤2：分析并编写程序代码。

程序提供代码
Private Sub C1_Click()
'需要考生编写的内容
End Sub
Private Sub Form_Unload(Cancel As Integer)
Open App.Path & "\out4.txt" For Output As #1
Print #1, Ch1.Value, Ch2.Value, Text1.Text
Close #1
End Sub
程序结束
参考答案
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
步骤3：调试并运行程序，关闭程序后按题目要求存盘。

综合题
【考点分析】本题考点有：文件操作，文本框的Text属性，Function ( )函数，If判断语句和Do……Loop循环语句。

【解题思路】通过文件操作从文件in5.txt中读入数据，调用Function 过程通过isprime( )函数找出满足要求的素数，最后通过文件操作将结果存在out5.txt文件中。

【操作步骤】
步骤1：打开本题工程文件。

步骤2：分析并编写程序代码。

程序提供代码
Private Sub C1_Click()
'要求考生编写的内容
End Sub
Private Sub C2_Click()
'要求考生编写的内容
End Sub
Private Sub C3_Click()
'要求考生编写的内容
End Sub
Private Function isprime(a As Integer) As Boolean
Dim flag As Boolean
flag = True
b% = 2
Do While b% <= Int(a / 2) And flag
If Int(a / b%) = a / b% Then
flag = False
Else
b% = b% + 1
End If
Loop
isprime = flag
End Function
程序结束
参考答案
Private Sub C1_Click()
Open "in5.txt" For Input As #1
Input #1, a%
Close #1
Text1.Text = a%
End Sub
Private Sub C2_Click()
a% = Text1.Text
Do
a% = a% + 1
Loop Until isprime(a%)
Text2.Text = a%
End Sub
Private Sub C3_Click()
Open "out5.txt" For Output As #1
Print #1, Text2.Text
Close #1
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。