我前两天做过一道题，如下：
在窗体上建立一个名称为Text1的文本框和一个名称为Cmd1，标题为"计算"的命令按钮，程序运行后，单击"计算"命令按钮，通过在对话框输入整数12，放入整型变量a中，然后计算a!，（提示：运算结果应放入Long型变量中），在文本框中显示结果，并把结果存入文件out.txt中。
答案是这样写的：
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
先谢谢各位了
