【例一】求11+22+33+…NN小于100000的最大值。
程序源码：
Option Explicit
Private Sub Form_Click()
Dim Sum As Long, N As Integer
Sum = 0: N = 0
Do While Sum < 100000
N = N + 1
Sum = Sum + N ^ N
Loop
Sum = Sum - N ^ N
Print Sum
End Sub
运行结果：
50069
【例二】求1×3×5×7×…×(2n-1)大于400000的最小值。
程序源码：
Option Explicit
Private Sub Form_Click()
Dim ShengJi As Long, N As Integer
ShengJi = 1: N = 3
Do
ShengJi = ShengJi * N
N = N + 2
Loop While ShengJi <= 400000
Print ShengJi
End Sub
运行结果：
2027025