中科新闻网科学气功 李嗣涔pdf:vb高手请进
来源：百度文库 编辑：中科新闻网 时间：2024/05/03 04:47:45
sum=11*22*32*42...*(n*10+2),求sum不大于100000的最小的N
Private Sub Form_click()
Dim i As Integer, sum As Long
n = 2
i = n * 10 + 2
sum = 11
Do While sum < 100000
sum = sum * i
n = n + 1
Loop
Print "n=": n
End Sub
这个哪里错了啊
Private Sub Form_click()
Dim i As Integer, sum As Long
n = 2
i = n * 10 + 2
sum = 11
Do While sum < 100000
sum = sum * i
n = n + 1
Loop
Print "n=": n
End Sub
这个哪里错了啊