簡單拿10點!!!VB 的小程式 (九九乘法表)

Question

Private Sub Form_Activate()
For i = 1 To 9
For j = 1 To 9
s = i * j
Print Format(s, \"#\"); Tab(j * 4);
Next j
Print
Next i
End Sub

請問一下各位程式先進們，
我這個乘法表雖然有對齊到...
但是他的末位沒有對齊到(個位數)...


請問要怎麼修改我的小程式呀？

Answer 1

Private Sub Form_Activate()Me.FontName = "細明體"For i = 1 To 9    For j = 1 To 9        s = i * j        Print String(2 - Len(s) + (j = 1), " ") & s; Tab(j * 4);    Next    PrintNextEnd Sub