Question

帮我解答一个用VB编程的问题,谢谢了

输入一个整数n(n大于0小于10)后,显示如: 1
222
33333
4444444
555555555
6666666
77777
888
9
用VB编程啊
图案要这个样子: 样子要居中的,每个都要居中的

1
222
33333
4444444
555555555
6666666
77777
888
9

Answer 1

Private Sub Form_Click()
For i = 1 To 5
Print Spc(9 - i); String(2 * i - 1, Trim(Str(i)))
Next i
For i = 6 To 9
Print Spc(i - 1); String(19 - 2 * i, Trim(Str(i)))
Next i
End Sub
以上是解答,希望对你有帮助!~ ^_^b

Answer 2

好像没看这个问题。能否讲清一点。
Private Sub Form_Click()
For i = 1 To 5
Print Spc(9 - i); String(2 * i - 1, Trim(Str(i)))
Next i
For i = 6 To 9
Print Spc(i - 1); String(19 - 2 * i, Trim(Str(i)))
Next i
End Sub

Answer 3

能否讲清一点