18 lines
508 B
Plaintext
18 lines
508 B
Plaintext
Print " | 1 2 3 4 5 6 7 8 9 10 11 12"
|
|
Print "--+------------------------------------------------------------"
|
|
|
|
For i = 1 To 12
|
|
nums$ = Right$(" " + str$(i), 2) + "|"
|
|
For ii = 1 To 12
|
|
If i <= ii Then
|
|
If ii >= 1 Then
|
|
nums$ = nums$ + Left$(" ", (5 - Len(str$(i * ii))))
|
|
End If
|
|
nums$ = nums$ + str$(i * ii)
|
|
Else
|
|
nums$ = nums$ + " "
|
|
End If
|
|
Next ii
|
|
Print nums$
|
|
Next i
|