Private Sub Command1_Click()Dim x As Integer,j As Integeri = 1:j = 1:x = 0DoDox = x + jj = j + 2Loop Until j > 4i = i + 1Print iLoop While i < 4Print xEnd Sub结果为什么是2 3 4 16
来源:学生作业帮助网 编辑:作业帮 时间:2024/05/12 16:06:02
Private Sub Command1_Click()Dim x As Integer,j As Integeri = 1:j = 1:x = 0DoDox = x + jj = j + 2Loop Until j > 4i = i + 1Print iLoop While i < 4Print xEnd Sub结果为什么是2 3 4 16
Private Sub Command1_Click()
Dim x As Integer,j As Integer
i = 1:j = 1:x = 0
Do
Do
x = x + j
j = j + 2
Loop Until j > 4
i = i + 1
Print i
Loop While i < 4
Print x
End Sub
结果为什么是2 3 4 16
Private Sub Command1_Click()Dim x As Integer,j As Integeri = 1:j = 1:x = 0DoDox = x + jj = j + 2Loop Until j > 4i = i + 1Print iLoop While i < 4Print xEnd Sub结果为什么是2 3 4 16
第一次到“Loop Until j > 4”
x=1,j=3,i=1 循环
第二次到“Loop Until j > 4”
x=4,j=5,i=1
因为5>4
不循环了,运行下面的
i=2(i = i + 1 ,Print i )
输出了2
因为“Loop While i < 4 ”
24,“Loop Until j > 4 ”不循环
i=3(i = i + 1 ,Print i )
输出3
因为“Loop While i < 4 ”
24,“Loop Until j > 4 ”不循环
i=4(i = i + 1 ,Print i )
输出4
因为“Loop While i < 4 ”
4=4,不循环
输出16(Print x )
这时x=16,j=9,i=4