原创力文档- 1、本文档共4页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
1.求下面级数前s项中偶数项的和SUM。在求和过程中，以第一个数值大于10000 的项为末项，计算并输出和SUM。1!-2!+3!-4!+ … +(-1)^(s-1)*s!+ ……
Private Sub Command1_Click()
Dim n As Integer
Dim item As Double
Dim sum As Double
sum = 0
n = 2
Do While True
item = 1
Dim i As Integer
For i = 2 To n
item = item * i
Next
sum = sum + item
If item 10000 Then
Exit Do
Else
n = n + 2
End If
Loop
sum = -1*sum
MsgBox (sum)
End Sub
sum = 368047
2.建立一个9×9的整型二维数组（由Rnd函数产生[10，60）的随机整数对数组初始化），输出数组中所有奇数行元素的和。
Dim A(8, 8) As Integer
Dim i, j As Integer
For i = 0 To 8
For j = 0 To 8
A(i, j) = 10+Int(Rnd() *51)
Next
Next
Dim sum As Integer
For i = 0 To 8 Step 2
For j = 0 To 8
sum = sum + A(i, j)
Next
Next
Text1.Text = sum所有奇数行元素的和为：506
3.编写一个函数，判断某整数是否为素数。调用该函数，输出区间[1000，2000] 内所有素数的和。
Private Function isprime(ByVal n As Integer) As Boolean
Dim i As Integer
For i = 2 To n - 1
If n Mod i = 0 Then
isprime = False
Exit Function
End If
Next
isprime = True
End Function
Private Sub Command1_Click()
Dim i As Integer
Dim sum As Long
For i = 1000 To 2000
If isprime(i) = True Then
sum = sum + i
End If
Next
Text1.Text = sum= sum
End Sub
sum= 419684
4.编写一个函数，求某个数的阶乘。调用该函数计算22!。
Public Function fact(ByVal n As Integer) As Long
Dim i As Integer, f As Long
f = 1
For i = 1 To n
f = f * i
Next i
fact = f
End Function
Private Sub Command1_Click()
Dim m As Integer, i As Integer, s As Long
m = InputBox(输入一个正整数：)
s = fact(m)
MsgBox (s)
文档评论（0）