UC知道在线等 VB
来源：百度知道 编辑：UC知道 时间：2024/05/30 22:10:11
'-------------------------------------------------
'【程序设计】
'-------------------------------------------------
'题目：(事件)双击窗体。
' (响应)求s=1+1×2+1×2×3+…+1×2×3×…×10，
' 并将结果存到变量S中
'-------------------------------------------------
Private Sub Form_dblClick()
Dim s As Long
'******** Program *******
'********* End ************
YZJ (s)
End Sub
Private Sub YZJ(i As Long)
Dim OUT As Integer
OUT = FreeFile
Open App.Path & "\7.out" For Output As #OUT
Print #OUT, i
Close #OUT
End Sub
'【程序设计】
'-------------------------------------------------
'题目：(事件)双击窗体。
' (响应)求s=1+1×2+1×2×3+…+1×2×3×…×10，
' 并将结果存到变量S中
'-------------------------------------------------
Private Sub Form_dblClick()
Dim s As Long
'******** Program *******
'********* End ************
YZJ (s)
End Sub
Private Sub YZJ(i As Long)
Dim OUT As Integer
OUT = FreeFile
Open App.Path & "\7.out" For Output As #OUT
Print #OUT, i
Close #OUT
End Sub
'******** Program *******
s = 0
Dim m As Integer, n As Integer
dim t as long
For m = 1 To 10
t=1
For n = 1 To m
t=t*n
Next n
s=s+t
Next m
Print s
'********* End ************
最简单的方法:
Dim j As Integer, s As Integer , k as long
s = 0
k = 1
For j = 1 To 10
k=(k*j)
s=s + k
Next
上面这种算法,初学者可能需要慢慢体会一下,另一种比较好理解的方法:
Dim j As Integer, s As Integer , k as long , sum as long
sum = 0
For j = 1 To 10
k=1
For s = 1 To j
k=k*s
Next
sum=sum+k
Next
fhb爸爸给你吧个那个关闭那个接口个那高高个