Question

VB题目，求大佬解

Answer 1

Private Sub Form_Click()

Dim j As Long, i As Long, t As String, t1 As String, t2 As String, s As String

Me.Cls

t = "9 "

t2 = Space(8)

s = t2 & t1 & t & t1 & t2

Me.Print s

For j = 1 To 4

t1 = 9 - j & " "

t2 = Space(8 - j * 2)

s = t2 & t1 & t & t1 & t2

t = t1 & t & t1

Me.Print s

Next

For j = 1 To 4

t1 = Mid(t, j * 2 + 1, Len(t) - j * 4)

t2 = Space(j * 2)

s = t2 & t1

Me.Print s

Next

End Sub

Answer 2

1B 2D 3A 4D 5C
的双引号，如果将上述公式改为：

追问

??？ 那个图案打印的程序是什么