【例一】求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

 

转载自:http://www.longziyong.cn/post/322.html

没有登录不能评论