Question

vb试题：在窗体上画一个命令按钮 command1 和一个文本框text1 然后编写如下事件过程

private sub commmand1_click()
for i=1 to4
for j=1 to 1
for k=j to i
xhs =xhs+1
next k
next j
xhs=xhs-1
next i
text1.text=str$(xhs)
end sub
程序运行后 如果单击命令按钮则文本框中显示的信息是（ ）
答案是16
请问是怎么算的 ？求过程，谢谢！
请问xhs = xhs + 1是什么意思？xhs是个函数么？Next k Next j是什么意思？请大侠解释一下这个程序的意思

Answer 1

你的程序打错了。
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