设计一个窗体,要求输入一个正整数N,计算并输出N的阶乘.VB的

Private Sub Command1_Click()
Sum = 1
For i = 1 To Text1.Text
Sum = Sum * i
Next i
Print Sum
End Sub
再问： 那在窗体上输出九九乘法表？？你会吗 ？？真的谢谢你啊
再答： Private Sub Command1_Click() For i = 1 To 9 For j = 1 To i Sum = j * i Print j; "*"; i; "="; Sum; Next j Print Next i End Sub