2022年2022年计算机二级考试VB过程练习题 2.pdf

过程练习题-第 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/41/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=11/31/51/7.1/(2m+1)名师资料总结-精品资料欢迎下载-名师精心整理-第 1 页，共 3 页 -例如：若 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，名师资料总结-精品资料欢迎下载-名师精心整理-第 2 页，共 3 页 -计算如下公式的值:y=1/5+1/6 1/71/81/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-名师资料总结-精品资料欢迎下载-名师精心整理-第 3 页，共 3 页 -