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

时间:2020-07-14 21:15:03 来源:

【摘要】 小编整理了2020年计算机二级VB语言考试每日一练(7月13日)的相关内容,下面一起来看看2020年计算机二级VB语言考试每日一练(7月13日)的具体内容吧,希望能够帮助到大家!

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语言考试每日一练(7月13日)的内容,更多资讯请及时关注考必过网站,小编会第一时间发布考试最新消息,大家考试加油!

上一篇      下一篇
计算机等级相关推荐 更多>>
计算机等级热点专题 更多>>
热点问答
国家公务员考试年龄限制是多少 公务员国考和省考考试内容有什么区别 函授大专学历能不能考公务员 国家公务员考试考点能自己选择吗 新闻学专业能报考2022年公务员考试吗 什么是联合培养研究生 什么是破格录取研究生 什么人不适合读研 研究生报名户口所在地填什么 研究生结业和毕业有什么区别
网站首页 网站地图 返回顶部
考必过移动版 https://m.kaobiguo.net