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

《2022年2022年计算机二级考试VB过程练习 .pdf》由会员分享，可在线阅读，更多相关《2022年2022年计算机二级考试VB过程练习 .pdf（3页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、过程练习题- 第 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) N

2、ext 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

3、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 F

4、or 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 Doub

5、le, 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

6、 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 页 - - - - - - - - -