[求助]输入数字的阶级计算

蓝血腥人

小弟刚学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

熾天使rose

你在文本框里输入一个数.如5
看看结果.
你又在纸上.用笔算一算.
结果一样.对就对.错就错.

小滋

千年等一回的好帖