原创力文档- 1、本文档共12页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
1定义一个下标上界为10整型数组，并用随机函数为其赋值（值处于[0,100]之间），计算数组中所有偶数的和。
Private Sub Command1_Click()
Randomize
Dim a%(10)
Dim i%, s%
For i = 0 To 10
a(i) = 101 * Rnd()
Next
For i = 0 To 10
If a(i) Mod 2 = 0 Then
s = s + a(i)
End If
Next
Print 所有偶数的和为, s
2 设 S=35，C=0.3，编写程序，计算并输出下面级数的部分和。结果取小数点后面7位。 C/1!-C^3/3!+C^5/5!- … +(-1)^(S-1)*C^(2*S-1)/(2*S-1)!+ …
参考答案如下：
Private Sub Command1_Click()
Dim n As Integer
Dim x As Double
x = 0.3
Dim item As Double
Dim sum As Double
Dim fac As Double
For n = 1 To 35
fac = 1
Dim i As Integer
For i = 1 To 2 * n - 1
fac = fac * i
Next
item = (-1) ^ (n - 1) * x ^ (2 * n - 1) / fac
sum = sum + item
Next
sum = Int(sum *+ 0.5) / MsgBox (sum)
End Sub
sum = 0.479426
3 定义一个下标上界为30的单精度数组，设置好其初值（值处于[20，90]），
计算数组中所有元素的均值。
Dim i, sum, ave As Integer
Dim a(30) As Single
For i = 0 To 30
a(i) = 20+Int(Rnd() * 71)
Next
For i = 0 To 30
sum = sum + a(i)
Next
ave = sum / 31
print sum
4 在窗体上放置文本框Text1、Text2，放置一个按钮Command1。在Text1里写入一个整数，点击按钮时，对Text1内的数据进行判断，如果是偶数，则在Text2里显示“该数是偶数”。
Dim x As Integer
x = Val(Text1.Text)
If x Mod 2 = 0 Then T
Text2.Text = 该数是偶数
Else
Text2.Text = 该数是奇数
End If
5 输入一个三位数，分别输出它的百位数字、十位数字和个位数字。
Dim a, baiwei, gewei, shiwei As Integer
a = Val(InputBox())
gewei = a Mod 10
baiwei= a \ 100
shiwei = (a \ 10) Mod 10
MsgBox(gewei)
MsgBox(shiwei)
6. 计算sum=2+4+6+...+1000
Dim sum, i As Integer
For i = 2 To 1000 Step 2
sum = sum + i
Next
print sum
7 求下面级数前S项中奇数项的和sum。在求和过程中，以第一个奇数项的数值大于 10000 的项为末项。1!-2!+3!-4!+ … +(-1)^(S-1)*S!+ …
参考答案如下：
Private Sub Command1_Click()
Dim n As Integer
Dim item As Double
Dim i
文档评论（0）