UC知道VB谁教我一下，让我理解。
来源：百度知道 编辑：UC知道 时间：2024/06/26 01:31:56
唉，要死背下来不容易啊，希望有高手能用通俗语教我理解！
Private Sub Form_Click()
Dim n As Integer, sum As Long, x As Long
n = 0
sum = 1
While sum <= 100000
n = n + 1
x = n * n
sum = sum * x
Wend
Print "n="; n - 1
End Sub
谁解释一下这段。。。。。这X是什么东西啊，为什么一开始就n=0
n = 0
sum = 1
Private Sub Form_Click()
Dim n As Integer, sum As Long, x As Long
n = 0
sum = 1
While sum <= 100000
n = n + 1
x = n * n
sum = sum * x
Wend
Print "n="; n - 1
End Sub
谁解释一下这段。。。。。这X是什么东西啊，为什么一开始就n=0
n = 0
sum = 1
程序代码是逐行执行的，n=0，sum=1这两句是对变量n,sum的赋值，在往下执行sum=1<100000成立，进而执行n=n+1这句，再依次执行，并循环，相当于求1*2^2*3^2*...*n^2<=100000时n的最大值
这个是求 S=1^2*2^2*3^2*...*n^2 不大于 100000 的n的最大值
S=(1*2*3*4*...*n)^2=(N!)^2