在窗体上建立一个名称为Text1的文本框和一个名称为Cmd1，标题为“计算”的命令按钮，如图11-17所示。程序运行后，单击“计算”命令按钮，通过在对话框输入整数12，放入整型变量a中，然后计算a!(提示：运算结果应放入Long型变量中)，在文本框中显示结果，并把结果存入文件out.txt中。在考生文件夹中有一个标准模块mode.bas，该模块中提供了保存文件的过程putdata，考生可以直接调用。
注意：保存时必须存放在考生文件夹下，窗体文件名为sit4.frm，工程文件名为sit4.vbp。
参考答案：当运行程序后所弹出的对话框是由Visual Basic系统本身提供的，通过调用函数InputBox来实现，本题的主要思想是考查循环语句的应用。计算一个数值的阶乘时使用了for循环，最后调用了所给模块中的过程将结果进行保存。解题步骤如下。
(1)建立界面并设置控件属性。本题用到了1个文本框和1个命令按钮，将命令按钮的Caption属性设置为“计算”，Name属性设置成Cmd1，文本框属性为默认设置。
(2)编写程序代码。
在编写程序代码时要注意变量范围的设定，题目要求将计算结果存入Long变量中，所以把最后放入文本框内的变量设置为长整型，然后保存结果。
参考代码：
Private Sub Cmd1_Click()
Dim aAs 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
(3)调试并运行程序。
(4)按题目要求存盘。
解析： 在窗体上建立好控件后，先设置控件属性，再编写事件过程。