窗体上放一个按钮,窗体要够大,或者窗体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 iEnd Sub汗~~你是要汉字的乘法表呀private sub form_load()me.autoredraw = trueprint " *";for i = 1 to 9 print tab(4 * i); i;next iprintfor i = 1 to 9 print i; for j = 1 to i print tab(4 * j); i * j;next j print printnext iend subSub 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 aEnd Sub输出结果如下:一一得一 一二得二 二二得四 一三得三 二三得六 三三得九 一四得四 二四得八 三四十二 四四十六 一五得五 二五一十 三五十五 四五二十 五五二十五 一六得六 二六十二 三六十八 四六二十四 五六三十 六六三十六 一七得七 二七十四 三七二十一 四七二十八 五七三十五 六七四十二 七七四十九 一八得八 二八十六 三八二十四 四八三十二 五八四十 六八四十八 七八五十六 八八六十四 一九得九 二九十八 三九二十七 四九三十六 五九四十五 六九五十四 七九六十三 八九七十二 九九八十一