Question

vb利用单循环结构第一行一个1,第二行三个2以此类推第九行十七个9的三角界面

Answer 1

Dim Txt As ListBox
Set Txt = Me.Controls.Add("VB.ListBox", "Txt")
For i = 1 To 9
Txt.AddItem Space(9 - i) & String(i * 2 - 1, CStr(i))
Next
Txt.Visible = True
Txt.Height = Me.Height
Txt.Width = Me.Width

Answer 2

Option Explicit

Private Sub Command1_Click()
Dim i%
For i = 1 To 9
Print String(9 - i, " ") & String(2 * i - 1, CStr(i))
Next
End Sub