问答题
问答题
(1)在窗体上绘制一个名称为Text1的文本框和一个名称为Cmd1、标题为“计算”的命令按钮，如图4-3所，示。程序运行后，单击“计算”命令按钮，通过在对话框输入整数12，放人整型变量a中，然后汁算a!．(提示：运算结果应放人Lon9型变量中)，在文本框中显示结果，如图4—4所示，并把结果存入文件out．txt中。考生文件夹中有一个标准模块mode．bas，该模块中提供了保存文件的过程putdata，考生可以直接调用。
注意：保存时必须存放在考生文件夹下，窗体文件名为sj3．frm，工程文件名为sj3．vbp。
【正确答案】在窗体上建好控件后，先设置控件属性，再编写事件过程和调试程序，并使其符合题目要求。当运行程序后，所弹出的对话框是通过调用函数InputBox来实现(通过Visual Basic系统本身提供的)。本题主要是考查循环语句的应用。计算一个数值的阶乘时使用了for循环，最后调用了所给模块中的过程将结果进行保存。
①建立界面并设置控件属性。程序中用到的控件及其属性见下表：
【答案解析】
问答题
【正确答案】 ①打开题目听给工程文件。
②打开代码窗口输入以下代码：
Private Sub Cmd1 Click()
If Opt1．Value=True Then
Text1．Font="宋体"
Else
Text1．Font="隶书"
End If
If Chk1．Value=1 Then
Text1．FontUnderline=Ture
Else
Text1．FontUnderline=False
End If
If Chk2．Value=1 Then
Text1．FontItalic=True
Else
Text1．Fon tItalic=False
End If
End Sub
③按要求保存文件即完成本题。
【答案解析】