关于阶乘的VB程序

来源：百度知道编辑：UC知道时间：2024/06/21 09:52:36

Public Class Form1
Dim numCal As Integer
Dim product As Double
Dim i As Integer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
numCal = Integer.Parse(TextBox1.Text)
If numCal = 1 Then
TextBox2.Text = 1
End If
For i = 2 To numCal
product = product * i
Next
TextBox2.Text = product.ToString
End Sub
End Class
求各位大侠看看错误在那。。我的结果框里面不管输什么都显示0.。

应为你没有给product 赋初值 VB里面默认的初值是0 接下来你知道吧

Public Class Form1
Dim numCal As Integer
Dim product As Integer=1
Dim i As Integer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
numCal = Integer.Parse(TextBox1.Text)
If numCal = 1 Then
TextBox2.Text = 1
End If
For i = 2 To numCal
product = product * i
Next
TextBox2.Text = product.ToString
End Sub
End Class

在最开始的地方加
product = 1

用VB企业版6.0怎么编写求n的阶乘的一个程序？ VB：函数写阶乘的一个式子求VB的100阶乘代码关于阶乘的一个问题！精确计算100的阶乘的程序如何设计一个求阶乘的程序关于VB的程序问题关于vb程序的打包关于VB程序的问题 vb 实现阶乘运算，算出1－－10的阶乘