按四个的顺序画的Private Sub Command1_Click()Dim i As IntegerDim j As IntegerScaleMode = 3For i = 1 To 5
CurrentX = (5 - i) * Me.TextWidth("1") / 2
For j = i To 1 Step -1
Print CStr(j);
Next j
PrintNext iEnd SubPrivate Sub Command2_Click()Dim i As IntegerDim j As IntegerScaleMo...
Private Sub Command1_Click()Dim i As IntegerDim j As IntegerScaleMode = 3For i = 1 To 5
CurrentX = (5 - i) * Me.TextWidth("1") / 2
For j = i To 1 Step -1
...
一次画一个还是一次画全了 一次一个的话这是第一个，后面的你一看就会了Dim s As StringDim i As Integer, j As IntegerFor i = 1 To 5
'第3，4个为 for i =5 to 1step -1 s = s & Space(5 - i)For j = i To...
