vb语言这个图形怎么打 空格用tab()的代码

Question

如题所述

Answer 1

Private Sub Command2_Click()
  For i = 1 To 5
    Print Tab(12 - 2 * i + 1); CStr(1);
    For j = 2 To 2 * i - 1
      If j <= i Then
        Print Space(1) + CStr(j);
      Else
        Print Space(1) + CStr(2 * i - j);
      End If
    Next j
    Print
  Next i
  For i = 4 To 1 Step -1
    Print Tab(12 - 2 * i + 1); CStr(1);
      For j = 2 To 2 * i - 1
      If j <= i Then
        Print Space(1) + CStr(j);
      Else
        Print Space(1) + CStr(2 * i - j);
      End If
    Next j
    Print
  Next i
End Sub

Private Sub Command1_Click()
  For i = 1 To 5
    Print Tab(6 - i); CStr(1);
    For j = 2 To 2 * i - 1
      If j <= i Then
        Print CStr(j);
      Else
        Print CStr(2 * i - j);
      End If
    Next j
    Print
  Next i
  For i = 4 To 1 Step -1
    Print Tab(6 - i); CStr(1);
      For j = 2 To 2 * i - 1
      If j <= i Then
        Print CStr(j);
      Else
        Print CStr(2 * i - j);
      End If
    Next j
    Print
  Next i
End Sub

追问

Cstr是什么？ 有些时候数字之间有空格 怎么办