编程高手快来呀
Private Sub Form_click()For i = 1 To 5Print Tab(Abs(i - 3) + 1);For j = 1 To 5 - Abs(i - 3) * 2Print Trim(Abs(Abs(j - i) - i));Next jPrintNext iEnd Sub上边的程序,要实现1121123211211可是还是不行!!大哥哥!!帮我完成他呀!!还有教教我有什么员机
参考答案:Private Sub Form_click()
Me.AutoRedraw = True
n = InputBox("")
If n = 1 Then Print "1": Exit Sub
Print "1"
For i = 2 To n
For j = 1 To i
Print CStr(j);
Next j
For j = i - 1 To 1 Step -1
Print CStr(j);
Next j
Next i
For i = n - 1 To 2 Step -1
For j = 1 To i
Print CStr(j);
Next j
For j = i - 1 To 1 Step -1
Print CStr(j);
Next j
Next i
Print "1"
End Sub
运行时输入数字，输入3时就是上面那个例子。