Private Sub Command1_Click() For i = 1 To 3 For j = i To 1 a
来源:学生作业帮 编辑:搜狗做题网作业帮 分类:综合作业 时间:2024/06/04 06:03:51
Private Sub Command1_Click() For i = 1 To 3 For j = i To 1 a = a + 1 Next j Next i Print a End Sub
为了说明方便,给每个语句前面加上行号
1 for i=1 to 3
2 for j=i to 1
3 a=a+1
4 next j
5 next i
6 print a
程序执行语句1时,循环初值 i=1 小于终值3,所以程序执行语句2-4
语句2 因i=1,所以循环初值 j=1 等于终值1,所以程序执行语句3 ( a=a+1),如果前面没有给a设置过数值,那么a的初始值为0,那么a=1;如果前面给变量a设置过数值,那么a=原值+1
语句4 next j 意思就是j+1,因为j=1,所以j+1=2比循环终值1大,结束该循环.执行语句5
语句5与语句4意思一样,因为i=1,所以i+1=2比循环终值3小,返回执行语句2
语句2 因i=2,所以循环初值j=2大于终值1,所以程序不执行语句3直接跳到语句5
语句5 因为i=2,所以i+1=3等于循环终值3,返回执行语句2
语句2 因i=3,所以循环初值j=3大于终值1,所以程序不执行语句3直接跳到语句5
语句5 因为i=3,所以i+1=4大于循环终值3,结束循环,执行语句6
语句6 print a 是在窗体输出变量 a 的值.(如果前面没有给a设置过数值,那么a=1;如果前面给变量a设置过数值,那么a=原值+1)
1 for i=1 to 3
2 for j=i to 1
3 a=a+1
4 next j
5 next i
6 print a
程序执行语句1时,循环初值 i=1 小于终值3,所以程序执行语句2-4
语句2 因i=1,所以循环初值 j=1 等于终值1,所以程序执行语句3 ( a=a+1),如果前面没有给a设置过数值,那么a的初始值为0,那么a=1;如果前面给变量a设置过数值,那么a=原值+1
语句4 next j 意思就是j+1,因为j=1,所以j+1=2比循环终值1大,结束该循环.执行语句5
语句5与语句4意思一样,因为i=1,所以i+1=2比循环终值3小,返回执行语句2
语句2 因i=2,所以循环初值j=2大于终值1,所以程序不执行语句3直接跳到语句5
语句5 因为i=2,所以i+1=3等于循环终值3,返回执行语句2
语句2 因i=3,所以循环初值j=3大于终值1,所以程序不执行语句3直接跳到语句5
语句5 因为i=3,所以i+1=4大于循环终值3,结束循环,执行语句6
语句6 print a 是在窗体输出变量 a 的值.(如果前面没有给a设置过数值,那么a=1;如果前面给变量a设置过数值,那么a=原值+1)
Private Sub Command1_Click() For i = 1 To 3 For j = i To 1 a
Private Sub Command1_Click() For i = 1 To 3 For j = 1 To i F
Private Sub Command1_Click() n = 0 For i = 1 To 3 For j = -4
Private Sub Command1_Click() For i = 1 To 4 x = 4 For j = 1
Private Sub Command1_Click() For i=1 To 4 x=4 For j =1 To 3&
Private Sub Command1_Click() Dim i,j As Integer For i = 3 To
求解一道VB private sub command1_click() for i = 1 to 4 x=4 for j
SOS!Private Sub Command1_Click()/s=0/For j=1 To 20/If j Mod
Private Sub Command1_Click() x=0 n=InputBox("") For i=1 To n
1)private sub command1_click() x=10:y=0 for i=1 to 5 do x=x-
private sub command1_click( ) FOR a=1 TO 5 y=1 FOR b=1 TO 5
Private Sub command1_click() Dim m(10) For k = 1 To 10 m(k)