Question

vb编写一个关于阶乘的程序，

窗体外观如图，程序运行时，在文本框中输入一个整数。如果输入的数据小于、等于0，提示重新输入，如果大于0，计算该整数的阶乘，并显示计算结果。要求用函数计算阶乘。（vb编程方法越多越好！很急）

Answer 1

来不及写，教你怎么做吧
先把文本框的读取转存成整数
对这个整数用if判断
不满足条件用msgbox提示
满足条件的话，调用函数，参数就是那个整数，返回值就是结果。

追问

谢啦

Answer 2

刚给你写的 希望对你有帮助 给个满意回答吧
Private Sub Command1_Click()
Dim dat1 As Variant
Dim sum As Variant
Dim i As Integer
dat1 = Val(Text1.Text)
sum = 1
If dat1 <= 0 Then
MsgBox "请重新输入", vbExclamation + vbOKOnly, "提示"
Else
For i = 1 To dat1
sum = sum * i
Next i
Text2.Text = CStr(sum)
End If
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
Label1.Caption = "输入数据"
Label2.Caption = "阶乘"
Command1.Caption = "计算"
Command2.Caption = "退出"
Text1.Text = ""
Text2.Text = ""
End Sub

追问

高手啊，可是可以，有没有简单的哦，比如说用for循环语句

追答

就是用的for循环啊