【摘要】 小编整理了2020年计算机二级VB语言考试每日一练(7月16日)的相关内容,下面一起来看看2020年计算机二级VB语言考试每日一练(7月16日)的具体内容吧,希望能够帮助到大家!
2020年计算机二级VB语言考试每日一练(7月16日)
2020年计算机二级VB语言考试每日一练(7月16日)
1.求自然数e的近似值,误差小于0.00001,近似公式为:e=1+1/1!+1/2!+1/3!+……+1/I!+……以下程序用来求自然数e。
Private Sub Form_Click( )
Dim I%, n&, t!, e!
E = 0 ' 存放累加和结果
I = 0 ' 计数器
n = 1 ' 存放阶乘的值
t = 1 ' 级数第I项值
Do While 【t>】 0.00001
e = e + t
I = I + 1
n = n * I
t = 1 / n
Loop
Print "计算了 "; I; " 项的和是 "; e
End Sub
2.求自然数e的近似值,误差小于0.00001,近似公式为:e=1+1/1!+1/2!+1/3!+……+1/I!+……以下程序用来求自然数e。
Private Sub Form_Click( )
Dim I%, n&, t!, e!
E = 0 ' 存放累加和结果
I = 0 ' 计数器
n = 1 ' 存放阶乘的值
t = 1 ' 级数第I项值
Do While t>0.00001
e = e + 【t】
I = I + 1
n = n * I
t = 1 / n
Loop
Print "计算了 "; I; " 项的和是 "; e
End Sub
3.求自然数e的近似值,误差小于0.00001,近似公式为:e=1+1/1!+1/2!+1/3!+……+1/I!+……以下程序用来求自然数e。
Private Sub Form_Click( )
Dim I%, n&, t!, e!
E = 0 ' 存放累加和结果
I = 0 ' 计数器
n = 1 ' 存放阶乘的值
t = 1 ' 级数第I项值
Do While t>0.00001
e = e + t
I = I + 1
n = n * 【I】
t = 1 / n
Loop
Print "计算了 "; I; "项的和是"; e
End Sub
4.以下程序是求公约数和小公倍数的程序。
Private Sub Form_Click( )
Dim m1, n1, m, n, r As Integer
n1 = InputBox("输入自然数n", "输入数")
m1 = InputBox("输入自然数m", "输入数")
n = n1
m = m1
If m < n Then
t = m: m = n: n = t
End If
r = m Mod 【n】
Do While (r<>0)
m = n
n = r
r = m Mod n
Loop
Print "公约数=", n
Print "小公倍数= ", m1 * n1 / n
End Sub
以上就是2020年计算机二级VB语言考试每日一练(7月16日)的内容,更多资讯请及时关注考必过网站,小编会第一时间发布考试最新消息,大家考试加油!