计算机二级考试VB过程练习题
- 格式:doc
- 大小:35.00 KB
- 文档页数:3
过程练习题
'-------------------------------------------------
'〖第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
----------------------