不好意思，刚上，才看见你给我发的信息。
你肯定把题目图案弄错了，第二行三个2吧……
我就上楼上的基础上加了一个j
Private Sub Command1_Click()
Dim i, j As Integer
Dim s As String
j = -1
For i = 1 To 10
j = j + 2
s = String(j, Right(Trim(Str(i)), 1))
Print Tab(11 - i); s
Next i
End Sub
Private Sub Form_click()
Dim i As Integer
Dim s As String
For i = 1 To 10
s = String(i, Right(Trim(Str(i)), 1))
Print Tab(11 - i); s
Next i
End Sub
学习
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024