阅读下面的程序段: For i=1To 3 For j=1To i a=a+1 Next i Nextj 执行上面的三重循环后,a的值为

2024-12-15 01:15:13
推荐回答(1个)
回答1:

Sub aqqq()
Dim i, j, a
a = 0
For i = 1 To 3
For j = 1 To i
a = a + 1
Next
Next

MsgBox a
End Sub
6