我想寫出下面的
1*5=5
           2*4=8 2*5=10
       3*3=9 3*4=12 3*5=15
    4*2=8 4*3=12 4*4=16 4*5=20
5*1=5 5*2=10 5*3=15 5*4=20 5*5=25
Private Sub Form_Activate()
For i = 1 To 5
For j = 6 - i To 5
Print Tab(11 * j); i; "X"; j; "="; i * j,
Next j
Print
Next i
End Sub
不知道錯在哪,可以告訴我嗎??

    全站熱搜

    vbqa 發表在 痞客邦 留言(1) 人氣()