【正确答案】[解析]在Visual Basic中，菜单项通过菜单编辑器来建立；选择菜单则是触发其Click事件。
MsgBox函数在对话框中显示消息，等待用户单击按钮，并返回1个Integer告诉用户单击哪一个按钮。
语法：MsgBox(prompt[，buttons][，title][，helpfile，context])
MsgBox函数的语法具有以下几个命名参数：
Prompt必需的。字符串表达式，作为显示在对话框中的消息。
Buttons可选的。数值表达式是值的总和，指定显示按钮的数目及形式。
Title可选的。在对话框标题栏中显示的字符串表达式。如果省略title，则将应用程序名放在标题栏中。
Helpfile可选的。字符串表达式，识别用来向对话框提供上下文相关帮助的帮助文件。
Context可选的。数值表达式，由帮助文件的作者指定给适当的帮助主题的帮助上下文编号。解题步骤：
第一步：建立菜单项。程序中用到的菜单项及其属性见表3-2。
[*]
第二步：编写程序代码。
参考代码：
Private Sub vbNew_Click()
MsgBox“新建”，vbOKOnly
End Sub
Private Sub vbOpen_Click()
MsgBox“打开”，vbOKOnly
End Sub
Private Sub vbSave_Click()
MsgBox“存盘”，vbOKOnly
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
(2)[解析]在窗体上建立好控件后，先设置控件的属性值，再编写事件过程。
文本框中显示的内容由Text属性设置，命令按钮的标题由Caption属性设置，单击命令按钮触发Click事件。解题步骤：第一步：建立菜单项。程序中用到的控件及其属性见表3-3。
[*]
第二步：编写程序代码。
参考代码：
Private Sub Cmd1_Click()
Dim i As Integer
Dim temp As Long
temp = 0
For i = 100 To 200
If isprime(i) Then
temp = temp + i
End If
Next
Text1.Text = temp
putdata "out.txt"，temp
End Sub
标准模块代码：
Option Explicit
Sub putdata(t_FileName As String，T_Str As Variant)
Dim sFile As String
sFile = "/" & t_FileName
Open App.Path & sFile For Output As # 1
Print #1，T_Str
Close #1
End Sub
Function isprime(t_I As Integer) As Boolean
Dim J As Integer
isprime = False
For J=2 To t_I / 2
If t_I Mod J = 0 Then Exit For
Next J
If J＞t_I/2 Then isprime = True
End Function
第三步：调试并运行程序。
第四步：按题目要求存盘。