利用VB条件循环(do while...loop)编程，求1*2*3*4...n的值

需要添加一个text1和一个command1按钮 在text1中输入n的值然后点按钮计算 Private Sub Command1_Click() n = Val(Text1.Text) i = 1 Do While (n > 0) i = i * n n = n - 1 Loop Print i End Sub