有道vb編程題，要求打印九九乘法表，記住不是阿拉伯數字而是打印成中文的形式：例如：壹壹得壹，壹二得二

Private Sub Command1_Click()

Command1.Visible = False

Dim a(10) As String

a(1) = "壹": a(2) = "二": a(3) = "三": a(4) = "四": a(5) = "五": a(6) = "六": a(7) = "七": a(8) = "八": a(9) = "九": a(0) = "零"

For i = 1 To 9

s = ""

For j = 1 To i

If j * i > 9 Then

ss = a(Int(Left(CStr(j * i), 1))) & a(Int(Right(CStr(j * i), 1)))

Else

ss = a(j * i)

End If

s = s & a(j) & a(i) & "得" & ss & " "

Print s

End Sub

有道vb編程題，要求打印九九乘法表，記住不是阿拉伯數字而是打印成中文的形式： 例如：壹壹得壹，壹二得二