原创力文档- 1、本文档共3页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
过程练习题
-------------------------------------------------
〖第2题〗：编写函数fun，函数的功能是：求1到100
之间的偶数之积
答案： Dim y As Double
y = 1
Dim i As Integer
For i = 1 To m
If i Mod 2 = 0 Then
y = y * i
End If
Next
fun =
〖第5题〗：编写函数fun，函数的功能是：计算n门 的平均值，计算结果作为函数值返
例如，若有5门课程的成绩是：92，76，69，58，88，则函数的值为76.6。
答案：
Dim i As Integer
Dim y As Single
For i = 1 To n
y = y + a(i)
Next
fun = y / n
〖第8题〗题目：编写函数fun其功能是：根据整型形参m，计算
如下公式的值：y=1/2＋1/4＋1/6＋...＋1/2m
例如：若m=9，则应输出：1.414484
答案： Dim y As Double
Dim i As Integer
For i = 1 To m
y = y + 1 / (2 * i)
Next
fun =
〖第11题〗-题目：编写函数fun，函数的功能是：计算并输出给定
整数n的所有因子之和（不包括1与自身）。规定
n的值不大于1000?
例如：n的值为855时，应输出704。
答案 Dim s, i As Integer
For i = 2 To n - 1
If n Mod i = 0 Then
s = s + i
End If
Next
Fun = s
〖第25题〗题目：编写函数fun其功能是：根据整型形参m，
计算 y=1＋1/3＋1/5＋1/7＋...＋1/(2m+1)
例如：若m=9，则应输出：2.133256
答案；Dim y As Double
Dim i As Integer
y = 1
For i = 1 To m
y = y + 1 / (2 * i + 1)
Next
fun = y
〖第29题〗题目：编写函数fun其功能是:能计算从1开始到n的
自然数中偶数的平方的和，n由键盘输入，
(n是偶数)
答案：Dim sum As Integer, i As Integer
sum = 0
For i = 2 To n Step 2
sum = sum + i * i
Next
fun = sum
〖第30题〗题目：编写函数fun其功能是：根据整型形参m，
计算如下公式的值：y=1/2!＋1/4!＋...＋1/m!
(m是偶数)
答 Dim y As Double, t As Double
t = 1
Dim i As Integer
For i = 2 To m Step 2
t = t * 1# / i
y = y + t
Next i
fun = y
〖第38题〗：编写函数fun其功能是:判断一个整数w的各位
数字平方之和能否被5整除 , 可以被5整除则返
回1 , 否则返回0
答案Dim k As Integer, s As Integer
Do
s = s + (w Mod 10) * (w Mod 10)
w = Int(w / 10)
Loop While w 0
If s Mod 5 = 0 Then
k = 1
Else
k = 0
End If
fun = k
〖第45题〗：编写函数fun其功能是：根据整型形参m，
计算如下公式的值:
y=1/5+1/6＋1/7＋1/8＋1/9+1/10...＋1/(m+5)
例如：若m=9，则应输出：1.168229
Dim y As Double
Dim i As Integer
For i = 0 To m
y
文档评论（0）