VB编程，数字菱形以及字符菱形

Dim n%, st$ 'st为控制所显示字符或数字变量

n = InputBox("请输入数字菱形行数，必须判冲为奇数", "数字菱形")

m = (n + 1) / 2

For i = 1 To m

    st = Chr(Asc(i))

   Print Tab(m + 1 - i) String(2 * i - 1, st),

Next

For i = m + 1 To n

   st = Chr(Asc(i))

   Print Tab(i - m + 1) String(2 * (n - i) + 1, st),

Next

n = InputBox("请输入字符行数，必须为奇数", "字符菱形")

m = (n + 1) / 2

For i = 1 To m

If i Mod 2 = 0 Then st = "B" Else: st = "A"

   Print Tab(m + 1 - i) String(2 * i - 1, st),

Next

For i = m + 1 To n

    If i Mod 2 = 0 Then st = "B" Else: st = "A"

   Print Tab(i - m + 1) String(2 * (n - 陆陆i) + 早冲顷1, st),

Next

Private Sub Command1_Click()

    消消Dim i As Integer, 雹桥茄j As Integer, str As String

    For i = 1 To 9 '1至9行

    For j = 1 To 9 '1至9列

        str = 5 - Abs(j - 5) '计算条i行条j列要输出的数字

      源察  If Int(str) < Abs(i - 5) + 1 Then str = " " '如果要输出的数字小于Abs(i - 5) + 1，则输出空格

        Print "  " & str '输出。后面的分号表示接着上次输出的位置输出。

    Next j

    Print '换行

    Next i

End Sub

---