作业帮 > 数学 > 作业

VB DO循环 1.N的阶乘N!2.2-100之间所有偶数 3.前10个自然数之和、积.

来源:学生作业帮 编辑:神马作文网作业帮 分类:数学作业 时间:2024/09/21 21:40:55
VB DO循环 1.N的阶乘N!2.2-100之间所有偶数 3.前10个自然数之和、积.
VB DO循环 1.N的阶乘N!2.2-100之间所有偶数 3.前10个自然数之和、积.
1. Dim n As Integer, i As Integer
Dim ji As Double
n = Val(Text1.Text)
i = 1
ji = 1
Do
ji = ji * i
i = i + 1
If i > n Then Exit Do
Loop
Print ji
2. Dim i As Integer
i = 2
Do
If i Mod 2 = 0 Then Print i
i = i + 1
If i > 100 Then Exit Do
Loop
3. Dim i As Integer
Dim he As Integer, ji As Double
i = 1
ji = 1
Do
he = he + i
ji = ji * i
i = i + 1
If i > 10 Then Exit Do
Loop
Print he
Print ji