VB请教程式

来源：百度知道 编辑：UC知道 时间：2024/05/15 17:10:58
我是刚接触VB,有问题请教大虾.
(1)编写一个1,2,3,4,5,6,相乘的循环程式.
(2)编写M=1*2*3*N,求M不大于20000的N值,也是循环哦.
我想了半天,不知道从何下手,请高手帮忙

1.
n=1
for i=1 to 6
n=n*i
next i
print i
2.
m=1
n=1
while m<20000
m=m*n
n=n+1
end do
print n

1.
n=1
for i=1 to 6 step 1
n=n*i

print n
2.
m=1
n=1
while m<20000
m=m*n
n=n+1
print n

Private Sub Command1_Click()
m = 1
For i = 2 To 6
m = m * i
Next
Print m

End Sub

Private Sub Command2_Click()
m = 1
Do While m <= 20000
n = n + 1
m = m * n
Loop
If m > 20000 Then
m = m / n
n = n - 1
End If
Print "n="; n, "m="; m
End Sub

1.
n="1"
for i=1 to 6
n=n & "*" & Str(i)
next i
print n
2.
din N AS INTEGER,I AS INTEGER ,M AS INTEGER
M=1
FOR I=1 TO 200
IF M>20000 THEN EXIT FOR
M=I*M
N=N+1
NEXT I
print N