谁能帮我用vb编个小程序

来源：百度知道 编辑：UC知道 时间：2024/05/26 19:09:33
题目一：设m=1*2*3*…*n，编程求m不大于200000是最大的n.题目二：编程计算1到100的奇数和。

(1)
Dim m As Long, n As Long
m = 1
n = 1
Do While m <= 200000
n = n + 1
m = m * n
Loop
MsgBox (n - 1)
(2)
Dim m As Long, n As Long
n = 0
For m = 1 To 99 Step 2
n = n + m
Next m
MsgBox n

一

dim m,i
i = 1
m = 1
do while m <= 200000
m = m * i
i = i +1
loop
msgbox i

二

dim i,m
i = 1
m = 0
do while i <= 100
m = m + i
i = i +2
loop
msgbox m