【正确答案】[解析]窗体的控件及属性已经建好，只需编写事件过程空缺的代码即可。
单选按钮和“切换”按钮的是通过它们的Caption属性来设置的，当点击“切换”时触发它的Click事件来使文本框的内容改变的。文本框的字体设置是通过它的Font属性来实现的。
解题步骤：
第一步：编写程序代码。
程序提供的代码：
Option Explicit
Private Sub C1_Click()
If Op1 The n
' Text1.Font = Op1.?
End If
If Op2 Then
' Text1．?：“楷体_GB2312”
End If
End Sub
参考代码：
Option Explicit
Private Sub C1_Click()
If Op1 Then
' Text1.Font = Op1.Caption
End If
If Op2 Then
Text1.FontName =“楷体_GB2312”
End If
End Sub
第二步：调试并运行程序。
第三步：按题目要求存盘。
(2)[解析]在窗体上建立好控件后，先设置控件属性，再编写事件过程。
当运行程序后所弹出的对话框是由Visual Basic系统本身提供的，通过调用函数InputBox来实现，本题的主要思想是考查循环语句的应用。计算一个数值的阶乘时使用了for循环，最后调用了所给模块中的过程将结果进行保存。解题步骤：
第一步：建立界面并设置控件属性。本题用到了1个文本框和1个命令按钮，将命令按钮的Caption属性设置为“计算”， Name属性设置成Cmd1，文本框属性为默认设置。
第二步：编写程序代码。
在编写程序代码时要注意变量范围的设定，题目要求将计算结果存入Long变量中，所以把最后放入文本框内的变量设置为长整型，然后保存结果。
参考代码：
Private Sub Cmd1_Click()
Dim a As Integer
Dim temp As Long
Dim i As Integer
a = Val(InputBox(“请输入”，，"12"))
temp = 1
For i =1 To Val(a)
temp = temp * i
Next
Text1.Text = temp
putdata"out.txt"，Text1.Text
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
第三步：调试并运行程序。
第四步：按题目要求存盘。