关于VB 1

来源：百度知道 编辑：UC知道 时间：2024/06/04 19:12:04
1
222
33333
4444444
555555555
6666666
77777
888
9
输入1个整数n后，显示如图图案
帮帮忙啊
恩，要菱形，可这个好像不是菱形啊，晕

你是想输出菱形吧?

Private Sub Command2_Click()
Dim n As Integer
Dim m As Integer
Dim i
n = InputBox("输入一个数")
m = (n + 1) / 2
For i = 1 To n
Print String(n - 2 * Abs(i - m), CStr(i))
Next i
End Sub