+…+10！并用print显示结果?
用自定义函数(function)，求1！+2！+3！+…+10！并用print显示结果?一定要在VB里求: 用自定义函数(function)，求1！+2！+3！+…+10！并用print显示结果? Private Sub Command1_click() End Sub function fact(x as integer) as long end function
Private Sub Command1_click()
Dim i As Integer
Dim Result As Long
For i = 1 To 10
Result = Result + fact(i)
Next
Print Result
End Sub
Function fact(x As Integer) As Long
Dim i As Integer
Dim Result As Long
Result = 1
For i = 1 To x
Result = Result * i
Next i
fact = Result
End Function
这道题目考得是递归
Private Sub Command1_click()
Dim PrintData as long
DIM i as long
for i= 1 to 10
PrintData = PrintData + fact(i)
next i
print PrintData
End Sub
Function fact(x As Integer) As Long
Dim i As Long
Dim Result As Long
Result = 1
For i = 1 To x
Result = Result * i
Next i
fact = Result
End Function
注意
1。
integer 是16位
Long 是32位的,在现在的32位操作系统下,运行的更快
2。用Print 输出结果,是打印在了窗口上面。 要设置窗体的属性,防止刷新。结果看不到!。
答：If Len(Inet1.OpenURL(" ")) <> 0 Or_ Len(Inet1.OpenURL(" ")) <> 0 Then MsgBox "成功...详情>>
答：平板和电脑一般不是一个系统，所以需要在平板商城自行下载（记得给好评哦，亲）详情>>
