2020年计算机二级VB语言考试每日一练（7月13日）

2020年计算机二级VB语言考试每日一练（7月13日）

1.以下程序的作用是(B)(单)

For i = 1 To 9

For j = 1 To 9

se = i & "×" & j & "=" & i * j

Picture1.Print Tab((j - 1) * 9 + 1); se;

Next j

Picture1.Print

Next i

A.打印ASCII码表

B.打印九九乘法表

C.打印加法表

D.以上说法都不正确

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.求自然数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

5.以下程序是求公约数和小公倍数的程序。

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语言考试每日一练试题，请继续关注环球网校计算机二级频道。需要及时了解考试动态的小伙伴可“ 免费预约短信提醒”届时环球网校会及时为大家推送2020年计算机二级考试相关信息提醒。环球网校友情提示：对于想要参加计算机二级考试的小伙伴们，环球网校特地为您准备了计算机二级考试资料，如有需要请点击文章下方“免费下载>>>计算机二级考试资料”下载学习。