2020年计算机二级VB语言考试每日一练（7月16日）
【摘要】 小编整理了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日）的内容，更多资讯请及时关注考必过网站，小编会第一时间发布考试最新消息，大家考试加油！
相关文章推荐
最新文章
- 1 2021年全国计算机等级考试二级C++模拟试题和答案四
- 2 2021年全国计算机等级考试二级C++模拟试题和答案三
- 3 2021年全国计算机等级考试二级C++模拟试题和答案二
- 4 2021年全国计算机等级考试二级C++模拟试题和答案一
- 5 2020年全国计算机二级C++复习知识点：运算符函数据与运算
- 6 2020年全国计算机二级C++复习知识点：典范运算符的重载（
- 7 2020年全国计算机二级MS Office复习知识点：考试内容要求
- 8 2020年全国计算机二级MS Office复习知识点：考试题型及分值
- 9 2020年计算机二级VB语言考试每日一练（8月7日）
- 10 2020年计算机二级Access考试每日一练（8月7日）