谁能帮我用vb编个小程序
发布网友
发布时间：2024-09-28 21:12
共2个回答
热心网友
时间：2024-10-13 15:31
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
热心网友
时间：2024-10-13 15:25
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
