中科新闻网红木 古董:VB中如何计算7!
来源：百度文库 编辑：中科新闻网 时间：2024/05/02 18:11:52
在VB中，编辑如下程序
计算1*2*3*4*5*6*7*8
指定用for循环
计算1*2*3*4*5*6*7*8
指定用for循环
Private Sub Command1_Click()
Dim x, y As Long
y = 1
For x = 1 To 8
y = y * x
Next x
Print y
End Sub
7!=1×2×3×4×5×6×7
怎么会乘上8呢？
因此是：
s=1
for i= 2 to 7
s=s*i
next
先创建函数过程：在“Windows窗体设计器生成的代码”下输入以下代码，这一串代码是定义函数过程的；
function fact(byval x as integer)as long
dim p as long, i as integer
p=1
for i=1 to x
p=p*i
next i
fact=p
end function
下面一串代码是定义事件过程，假设已经在窗体上放了个button1按纽，创建click事件
dim sum as long,i as integer
for i=1 to 7
sum=sum+fact(i)
next i
label2.text=sum
end sub
dim i as integer
dim s as integer
s=1
for i=1 to 7
s=s*i
next
s=1
for i= 1 to 8
s=s*i
next i
Dim x As Integer
Dim y As Long
y = 1
For x = 1 To 8
y = y * x
Next x
Print y
End Sub