一道vb题(懂的解) n=0 For i=1 To3 For j=5 To 1 step -1 n=n+1 Next j
来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/09/20 15:27:54
一道vb题(懂的解) n=0 For i=1 To3 For j=5 To 1 step -1 n=n+1 Next j,i Print n; j; i
如果按以下格式:
Private Sub Form_Load()
n = 0
For i = 1 To 3
For j = 5 To 1 Step -1
n = n + 1
Text3.Text = Text3.Text & vbCrLf & n & " - " & j & " - " & i
Next j
Next i
End Sub
结果是:n-j-i
1 - 5 - 1
2 - 4 - 1
3 - 3 - 1
4 - 2 - 1
5 - 1 - 1
6 - 5 - 2
7 - 4 - 2
8 - 3 - 2
9 - 2 - 2
10 - 1 - 2
11 - 5 - 3
12 - 4 - 3
13 - 3 - 3
14 - 2 - 3
15 - 1 - 3
如果按以下格式:
Private Sub Form_Load()
n = 0
For i = 1 To 3
For j = 5 To 1 Step -1
n = n + 1
Next j
Next i
Text3.Text = Text3.Text & vbCrLf & n & " - " & j & " - " & i
End Sub
结果是:n-j-i
15 - 0 - 4
Private Sub Form_Load()
n = 0
For i = 1 To 3
For j = 5 To 1 Step -1
n = n + 1
Text3.Text = Text3.Text & vbCrLf & n & " - " & j & " - " & i
Next j
Next i
End Sub
结果是:n-j-i
1 - 5 - 1
2 - 4 - 1
3 - 3 - 1
4 - 2 - 1
5 - 1 - 1
6 - 5 - 2
7 - 4 - 2
8 - 3 - 2
9 - 2 - 2
10 - 1 - 2
11 - 5 - 3
12 - 4 - 3
13 - 3 - 3
14 - 2 - 3
15 - 1 - 3
如果按以下格式:
Private Sub Form_Load()
n = 0
For i = 1 To 3
For j = 5 To 1 Step -1
n = n + 1
Next j
Next i
Text3.Text = Text3.Text & vbCrLf & n & " - " & j & " - " & i
End Sub
结果是:n-j-i
15 - 0 - 4
一道vb题(懂的解) n=0 For i=1 To3 For j=5 To 1 step -1 n=n+1 Next j
n=0,for i=1to3,for j=-4 to-1,n=n+1,next j,next i.运行完后n的值?
假定有以下程序段 n=0 for i=1to4 for j =3 to -1 step -1 n=n+1 next j
假定,以下程序段,n=0 for i=1 to 3 for j=4 to -1 n=n+i next j next i运
vba程序,n=0 For i=1 to 3 For j=-4 to -1 n=n+1 next j next i 运行
for i=1 to 4 for j= 0 to i print chr$(65 + i) next j print n
一直搞不懂这种双循环的.1.n=0 for i=1 -4 to -1 n=n+1 next j next i 求n 运行
for(j=i+n+1; j>i; j--)和s[j+1]= s[j];
假定有以下程序段 for i=1 to 3 for j=-4 to -1 n=n+1 next j next i 求最后
VB执行下列程序:Form =1 to 3 For k = j to 3 N =N+1 Next k,j,m Print
J = 10 For I = 1 To J Step 5 I = I + 2 J = J - I Next I Prin
VB执行下列程序:Form =1 to 3 For j = 1 to m For k = j to 3 N =N+1 N