Question

VB编程 数字以倒三角形排列 的问题 急

给出的代码
If Asc(e.KeyChar) = 13 Then
Dim i, j, n As Integer
n = TextBox1.Text
Label2.Text = ""
For i = 1 To _____
Label2.Text &= Space(______)
For j = 1 To _______
Label2.Text &= j
Next
Label2.Text &= _________
Next
End If
这四个空出的地方填空

出来的效果是要这样的

11111111111111111111
22222222222222222
33333333333333
....
888
9

这样的倒三角形

Answer 1

你确认你的题目没打错？Label2.Text &= Space(______) 里面的&是明显多余的。

Dim i, j, n As Integer
n = TextBox1.Text
Label2.Text = ""
For i = n To 1 Step -1
Label2.Text = Label2.Text & Space(n - i)
For j = 1 To 2 * i - 1
Label2.Text = Label2.Text & n - i + 1
Next
Label2.Text = Label2.Text & vbCrLf

Next