VB考试必备十道编程题
VB考试必备的十道编程题
(1)计算 sum=1/1!+1/2!+1/3!+.......+1/10!
Private Sub Command1_Click()
Dim m As Integer, n As Long, s As Double
n = 1
s = 0
For m = 1 To 10
n = m * n
s = s + 1 / n
Next
Print s
End Sub
(2)求前n项和 s=1/!-1/2!+1/3!-1/4!+.........+(-1)^(n-1)*1/n!+.......当求和过程某项绝对值小于0.0001时结束(该项参与求和),输出s,保留6位小数。
Private Sub Command1_Click()
Dim m As Double, n As Long, s As Double, p As Integer
s = 0: n = -1: m = 1: p = 1
Do While 1 / m >= 0.0001
m = m * p
p = p + 1
n = -n
s = s + n / m
Loop
s = Format(s, "0.000000")
Print s
End Sub
本内容试读结束,登录后可阅读更多
下载后可阅读完整内容,剩余4页未读,立即下载