查人人中国名人网借款合同和抵押合同:vb高手请进
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/13 09:21:57
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
这个哪里错了啊