这道vb 输出题 我有点懵啊!+大佬快来!

2025-05-20 12:25:54
推荐回答(1个)
回答1:

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
        Print
    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
        Print
    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
        Print
    Next i
End Sub

我挺想知道你用的Vb是哪个版本的,现在的Vb.net已经没这种写法了。