在Form1上建立一个二级下拉菜单,第一级共两个菜单项,标题分别为“文件”“编辑”
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
基础题（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：调试并运行程序，关闭程序后按题目要求存盘。