这个vb程序怎么写

这个抓住规律就可以了
比如：每行数字用M控制，初始M=1；每行数字个数用N控制，N=2*M-1
把N设为循环打印的次数就可以了，每次循环结束后换行。

楼主真懒
Dim i
Dim j
i = 1
j = 1
For i = 1 To 9
For j = 1 To 2 * i - 1
Print i,
Next j
Print Chr(13) + Chr(10)
Next i
嘿嘿

Dim i As Integer, r As String
For i = 1 To 9
r = Space(9 - i) + String(2 * i - 1, Trim(Str(i))) + Space(9 - i)
Print r
Next i

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

试试看,谁短:

For i = 1 To 9
Print Tab(10 - i); String(2 * i - 1, 48 + i)
Next

For i = 1 To 9
Print Tab(10 - i); String(2 * i - 1, 48 + i)
Next
比这个短真的难