过程练习题
'-------------------------------------------------
'〖第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 = y + 1 / (i + 5) Next Fun = y
〖第46题〗：编写函数fun，函数的功能是：求一个
' 四位数的各位数字的立方和 Dim d As Integer, k As Integer, s As Integer While n > 0 d = n Mod 10 s = s + d * d * d n = n / 10 Wend fun = s ----------------------
