我的程序如下,但是编译后都不是对齐的,请问有什么办法吗?
Private Sub Form_Click()
Dim i As Integer, j As Integer, a As String
Dim stre As String
Print Tab(35); "¾Å¾Å³Ë·¨±í"
Print Tab(25); "£½£½£½£½£½£½£½£½£½£½£½£½£½£½£½£½£½"
For i = 1 To 9
For j = 1 To 9
stre = i & "*" & j & "=" & i * j
'Print Tab((j - 1) * 9 + 1); stre
Print " " & stre;
Next j
Print
Next i
End Sub
Private Sub Form_Click()
Dim i As Integer, j As Integer, a As String
Dim stre As String
Print Tab(35); "¾Å¾Å³Ë·¨±í"
Print Tab(25); "£½£½£½£½£½£½£½£½£½£½£½£½£½£½£½£½£½"
For i = 1 To 9
For j = 1 To 9
stre = i & "*" & j & "=" & i * j
'Print Tab((j - 1) * 9 + 1); stre
Print " " & stre;
Next j
Next i
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货