UC知道1. 窗体的Form_Click()事件过程如下，请写出单击窗体后，窗体上的显示结果_______________________
来源：百度知道 编辑：UC知道 时间：2024/06/15 03:52:26
1. 窗体的Form_Click()事件过程如下，请写出单击窗体后，窗体上的显示结果_______________________
Private Sub Form_Click()
Dim a As Integer, s As Integer
a = 5
s = 0
Do Until a <= 0
s = s + a
a = a - 1
Loop
Form1.Print "s="; s, "a="; a
End Sub
Private Sub Form_Click()
Dim a As Integer, s As Integer
a = 5
s = 0
Do Until a <= 0
s = s + a
a = a - 1
Loop
Form1.Print "s="; s, "a="; a
End Sub
s=15;a=0
分析:
第一次循环:a=5;s=0 -> s=s+a=0+5=5;a=a-1=5-1=4
第二次循环:a=4;s=5 -> s=s+a=5+4=9;a=a-1=4-1=3
第三次循环:a=3;s=9 -> s=s+a=9+3=12;a=a-1=3-1=2
第四次循环:a=2;s=9 -> s=s+a=12+2=14;a=a-1=2-1=1
第五次循环:a=1;s=9 -> s=s+a=14+1=15;a=a-1=1-1=0
此时a的值为0,不符合循环条件(Do Until a <= 0),退出循环.