UC知道数道VB问题
来源：百度知道 编辑：UC知道 时间：2024/05/30 19:25:51
在窗体上画一个命令按钮Command1和一个文本框Text1,然后编写如下事件过程：
Private sub command1_click()
For i=1to4
For j=1 to i
for k=j To i
s=s+1
Next j
s=s-1
Next i
Text1.Text=Str$(s)
End Sub
程序运行后，如果单击命令按钮，则文本框显示的信息 是 16
怎么得出的 能给详细答案吗？谢谢
Private sub command1_click()
For i=1to4
For j=1 to i
for k=j To i
s=s+1
Next j
s=s-1
Next i
Text1.Text=Str$(s)
End Sub
程序运行后，如果单击命令按钮，则文本框显示的信息 是 16
怎么得出的 能给详细答案吗？谢谢
你可以分步来手工计算一下，以加深印象。
第一次：
i=1
j从1到1，k从1到1，所以s被加了1次再减一次结果为0
第二次：
i=2
j从1到2，k从1到2，再从2到2，所以s被加了3次再减一次结果为2
第三次：
i=3
j从1到3，k从1到3，再从2到3，再从3到3，所以s被加了6次再减一次结果为7
第四次：
i=4
j从1到4，k从1到4，再从2到4，再从3到4，再从4到4，所以s被加了10次再减一次结果为16
另外，你的程序有误，在Next j之前应该还有一句是Next k，要不然循环少个嵌套。