Question

vb编程问题，用vb来写代码

vb编程问题，用vb来写代码第12问用vb编程来做。

Answer 1

Private Sub Command1_Click()
    Const N = 4 '打印4行
    For i = 1 To N
        Print Tab(N - i + 1);
        For j = 1 To 2 * i - 1
            If j <= i Then
                Print j & "";
            Else
                Print 2 * i - j & "";
            End If
        Next j
        Print
    Next i
End Sub

Private Sub Command2_Click()
    Const N = 4 '打印4行
    For i = 1 To N
        Print Tab(N - i + 1);
        For j = 1 To 2 * i - 1
            Print Chr(Asc("A") + i - 1);
        Next j
        Print
    Next i
End Sub

Private Sub Command3_Click()
    Const N = 4 '打印4行
    stri = "+*"
    For i = 1 To N
        Print Tab(N - i + 1);
        For j = 1 To 2 * i - 1
            Print Mid(stri, j Mod 2 + 1, 1);
        Next j
        Print
    Next i
End Sub

追问

运行后不对啊

看错了

不好意思