vb计算阶乘问题。下面是我写的程序帮忙改正。PrivateSubCommand1Click()DimiAsDouble,sumAsDouble,bAsDoubleIfi=1Thensum=1Elsesum=1Fori=2Tobsum=sum*iNextiEndIfPrint"b的阶乘为:";sumEndSubP

Question

vb计算阶乘问题。下面是我写的程序帮忙改正。Private Sub Command1_Click() Dim i As Double, sum As Double, b As Double If i = 1 Then sum = 1 Else sum = 1 For i = 2 To b sum = sum * i Next i End If Print "b的阶乘为:"; sum End Sub Private Sub Text1_Change() Dim b As Double b = Val(Text1.Text) End Sub 主要是结果是怎么弄都是1。如果把b改成Val(Text1.Text)就对了。所以请问我赋值那里哪错了啊。谢谢了。没有财富了，抱歉啊。

Answer 1

Private Sub Command1_Click()中的b为赋值，Private Sub Text1_Change() 中的b与Private Sub Command1_Click()中的b是两个过程中不同的变量 Dim b As Double Private Sub Command1_Click() Dim i As Double, sum As Double,If i = 1 Then sum = 1 Else sum = 1 For i = 2 To b sum = sum * i Next i End If Print "b的阶乘为:"; sum End Sub Private Sub Text1_Change() b = Val(Text1.Text) End Sub