B)
Private Sub Form_Click()
Dim i As Integer, j As Integer
For i = 1 To 5
Print Space(10 - i)
For j = 1 To i
Print CStr(j)
Next j
Next i
End Sub
C)
Private Sub Form_Click()
Dim i As Integer, j As Integer
For i = 1 To 5
Print Space(10 - i)
For j = 1 To (2 * i - 1)
Print CStr(i)
Next j
Next i
End Sub
D)
Private Sub Form_Click()
Dim i As Integer, j As Integer
For i = 1 To 5
Print Space(5)
For j = 1 To i
Print CStr(i)
Next j
Next i
End Sub
我挺想知道你用的Vb是哪个版本的,现在的Vb.net已经没这种写法了。