小弟刚学VB帮小弟看一下这是一个求输入文本框内数字的阶级的程序对不对（有那些要改进的多多提意见）
Dim a As Double
Dim b As Double

Private Sub Command1_Click()
a = Val(Text1.Text)
b = 1
For n = 1 To a
b = b * n
Next n
Text2.Text = Str(b)
End Sub

Private Sub Command2_Click()
End
End Sub