奇怪的Space函数
'打印出9*9乘法表的上三角. 奇怪列怎么会不对称呢?
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim se As String
Label1.Text = Space(35) & "九九乘法表" & vbCrLf
Label1.Text &= Space(35) & "-----------" & vbCrLf
For i = 1 To 9
Label1.Text &= Space(8 * (i - 1))
For j = i To 9
se = i & "×" & j & "=" & i * j
Label1.Text &= se & Space(8 - Len(se))
Next j
Label1.Text &= vbCrLf
Next i
End Sub
[解决办法]
用 StrDup(?," ") 试试
如果有字母会有对不齐的现象,主要是显示的问题:您想想 i 与 W 在Ascc文本中,实际显示时所占的宽度会有差别的
[解决办法]
问题很简单，因为你的"×" 占用的是2个字符，所以你前面的起点设置是全部按照1个字符设计的，解决的办法是把前面的起点推后1个字符，即把Label1.Text &= Space(8 * (i - 1)) 改为Label1.Text &= Space(9 * (i - 1))
