用VB编程算1*2*3*......*n

Question

怎么做啊？n用inputbox输入，要利用条件编程，求截屏

Answer 1

Private Sub Command1_Click()
  Dim s As Double, n As Integer, i As Integer
  s = 1
  n = InputBox("请输入数据")
  For i = 1 To n
     s = s * i
  Next i
  Print s
End Sub

追问

要用条件循环编程！

追答

你又问的什么，我怎么看不到，能不能先采纳我的答案！

Answer 2

新建一个工程，添加个命令按钮和一个文本框
代码如下：
Private Sub Command1_Click()

n = Val(Text1.Text)

s = 0 '存结果
For i = 1 To n
t = 1 '临时存积的变量
For j = 1 To i '计算阶乘
t = t * j
Next j
s = s + t
Next i
Print "结果为：" & s

End Sub
求采纳为满意回答。追问

要用条件循环编程，就是do while。 loop

本回答被网友采纳