有vb编写一个程序，窗体外观如图。程序运行时，在文本框中输入一个整数，如果输入的数据小于、等于0，提示

Question

重新输入。如果大于0，计算该整数的阶乘，并显示出结果。要求用函数计算阶乘！

Answer 1

这个很简单的，在上一个文本框的Exit事件添加过程，里面先判断值，再调用一个用递归法写的阶乘自定义函数。
'阶乘函数
Public Function FactorialCal(inputVal As Long)
If inputVal = 1 Then
FactorialCal = 1
Else
FactorialCal = inputVal * FactorialCal(inputVal - 1)
End If
End Function

Private Sub cmd计算_Click()
txt阶乘 = FactorialCal(txt输入.Value)
txt输入.SetFocus
End Sub

Private Sub txt输入_Exit(Cancel As Integer)
txt阶乘 = ""
If txt输入.Value > 0 Then
cmd计算.SetFocus
Else
txt输入 = ""
MsgBox "请输入一个正整数！", vbOKOnly + vbInformation, "提示"
Cancel = True
End If
End Sub

Answer 2

这些问题并不难，简直可以说是死
但真的很麻烦，第200章人回答

真的想要的答案不妨学学，我相信你是认真的阅读一小时
这些问题都可以做

Answer 3

见二楼回答

Answer 4

5分不够追问

分不是问题，问题是你知道做不哦！我很怀疑。。。