怎样用VB设计中文的九九乘法表？ 形式是一一得一 一二得二 二二得四 一三得三 二三得六 三三得九 ......

怎样用VB设计中文的九九乘法表？ 形式是一一得一 一二得二 二二得四 一三得三 二三得六 三三得九 ......

Sub Command1_Click()
    Dim arr(), brr(1 To 9, 1 To 9) As String
    arr = Array("一", "二", "三", "四", "五", "六", "七", "八", "九")
   
    Dim a As Integer, b As Integer
    For a = 1 To 9
        For b = 1 To a
            If a * b < 10 Then
                brr(a, b) = arr(b - 1) & arr(a - 1) & "得" & arr(a * b - 1): Print brr(a, b) & "    ";
            ElseIf a * b Mod 10 = 0 Then
                brr(a, b) = arr(b - 1) & arr(a - 1) & arr(a * b  10 - 1) & "十": Print brr(a, b) & "    ";
            ElseIf a * b < 19 Then
                brr(a, b) = arr(b - 1) & arr(a - 1) & "十" & arr(a * b Mod 10 - 1): Print brr(a, b) & "    ";
            Else
                brr(a, b) = arr(b - 1) & arr(a - 1) & arr(a * b  10 - 1) & "十" & arr(a * b Mod 10 - 1): Print brr(a, b) & "  ";
            End If
        Next b
        Print
    Next a
End Sub输出结果如下：
一一得一   
一二得二   二二得四   
一三得三   二三得六   三三得九   
一四得四   二四得八   三四十二    四四十六    
一五得五   二五一十    三五十五    四五二十    五五二十五  
一六得六   二六十二    三六十八    四六二十四  五六三十    六六三十六  
一七得七   二七十四    三七二十一  四七二十八  五七三十五  六七四十二  七七四十九  
一八得八   二八十六    三八二十四  四八三十二  五八四十    六八四十八  七八五十六  八八六十四  
一九得九   二九十八    三九二十七  四九三十六  五九四十五  六九五十四  七九六十三  八九七十二  九九八十一

窗体上放一个按钮，窗体要够大，或者窗体autoredraw 属性设为true,代码如下：
Private Sub Command1_Click()
Dim i As Integer, j As Integer, aa As String

For i = 1 To 9
For j = 1 To 9
aa = i * j
If aa < 10 Then aa = " " & aa
Print i & "×" & j & "=" & aa & " ";
Next j
Print
Next i
End Sub
汗~~你是要汉字的乘法表呀