Question

刚学vb 求热心人指错。并详解原因 。万分感谢。O(∩_∩)O~（第一次用百度知道无分值见谅）

Private Sub Form_click()
Dim a As Single, i As Single
Print Tab(25); "九九乘法表"
Print
Print "*";
For i = 1 To 9
Print Tab(i * 6); i;
Next i
For i = 1 To 9
Print i
For a = 1 To i
Print Tab(6); a * i;
Next a
Next i
End Sub

Answer 1

Private Sub Form_click()
Dim a As Single, i As Single
Print Tab(25); "九九乘法表"
Print
Print "*";
For i = 1 To 9
Print Tab(i * 6); i;
Next i
Print
For i = 1 To 9
Print i;
For a = 1 To i
Print Tab(a * 6); a * i;
Next a
Print
Next i
End Sub

追问

谢谢 能拜师？嘿嘿。。

Answer 2

喜欢求异，另一种方法：

Private Sub Form_click()

Dim a As Single

Dim i As Single

Dim zzc As String

Print Tab(25); "九九乘法表"

Print

Print "*";

For i = 1 To 9

    zzc = zzc & "　　" & i

Next i

Print zzc

    For i = 1 To 9

zzc = i

        

        For a = 1 To i

          If a * i > 9 Then

            zzc = zzc & "   " & a * i

          Else

             zzc = zzc & "    " & a * i

          End If

        Next a

 Print zzc

Next i

End Sub

测试效果：

...............张志晨.............

Answer 3

Option Explicit

Private Sub Form_click()
Dim a As Single, i As Single
Dim ii As Long
Dim s As String, ss As String * 6
Me.BackColor = &HFFFFD0
Me.ForeColor = &HFF00FF
Print Tab(25); "九九乘法表"
Print
For i = 1 To 9
s = ""
For ii = 1 To i '9
'/*
If ii And 1 Then
Me.ForeColor = &HFF00FF
Else
Me.ForeColor = &HFF60FF

End If
'*/
ss = ii * i
s = s & ss
Next
Print s
Next
End Sub
'别乱用a i s去做变量，不过我是习惯了这样 还有要代码的形状要注意