用VB编出程序 1 121 12321 1234321 利用FOR语句和IF语句和数列编
用VB编出程序 1 121 12321 1234321 利用FOR语句和IF语句和数列编
日期：2011-05-19 19:46:08 人气：1
Private Sub Command1_Click()
Dim i, a As Integer, b As String
Do
a = Val(InputBox("输入层数："))
Loop While a 9
For i = 1 To a
b = ""
For j = 1 To (i - 1) * 2 + 1
b = b & IIf(j > i, CStr(i * 2 - j), CStr(j))
Next
P