一道vb题(懂的解) n=0 For i=1 To3 For j=5 To 1 step -1 n=n+1 Next j,i Print n; j; i
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/05 18:45:00
![一道vb题(懂的解) n=0 For i=1 To3 For j=5 To 1 step -1 n=n+1 Next j,i Print n; j; i](/uploads/image/z/3009410-26-0.jpg?t=%E4%B8%80%E9%81%93vb%E9%A2%98%EF%BC%88%E6%87%82%E7%9A%84%E8%A7%A3%EF%BC%89+n%3D0+For+i%3D1+To3+For+j%3D5+To+1+step+-1+n%3Dn%2B1+Next+j%2Ci+Print+n%3B+j%3B+i)
一道vb题(懂的解) n=0 For i=1 To3 For j=5 To 1 step -1 n=n+1 Next j,i Print n; j; i
一道vb题(懂的解) n=0 For i=1 To3 For j=5 To 1 step -1 n=n+1 Next j,i Print n; j; i
一道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