你的程序打错了。
Private Sub Command1_Click()
For i = 1 To 4
For j = 1 To i
For k = j To i
xhs = xhs + 1
Next k
Next j
xhs = xhs - 1
Next i
Text1.Text = Str$(xhs)
End Sub
这个才是16
这个程序有3个循环，i（1-4） j（1-i） k（j-i）
其实这个程序是要计算 (1)-1+(1+2)-1+(1+2+3)-1+(1+2+3+4)-1
每个括号是一个i的循环，所以有4个
每个括号是一个累加求和，由（j和k两个循环获得）其中括号的数的个数由j循环来决定，而数字的初值是i，终值是j，这个有k循环来决定
每次-1是由于j循环结束后要把求和变量xhs的值-1
所以最后结果是 20-4=16
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024