高校问答如何评价吴亦凡唱功:编程高手快来呀
来源：百度文库 编辑：高校问答 时间：2024/05/05 12:55:00
Private Sub Form_click()
For i = 1 To 5
Print Tab(Abs(i - 3) + 1);
For j = 1 To 5 - Abs(i - 3) * 2
Print Trim(Abs(Abs(j - i) - i));
Next j
Print
Next i
End Sub
上边的程序,要实现
1
121
12321
121
1
可是还是不行!!大哥哥!!帮我完成他呀!!还有教教我有什么员机
大家看看第4行第三个数是不是1
For i = 1 To 5
Print Tab(Abs(i - 3) + 1);
For j = 1 To 5 - Abs(i - 3) * 2
Print Trim(Abs(Abs(j - i) - i));
Next j
Next i
End Sub
上边的程序,要实现
1
121
12321
121
1
可是还是不行!!大哥哥!!帮我完成他呀!!还有教教我有什么员机
大家看看第4行第三个数是不是1
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
Print
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
Print
Next i
Print "1"
End Sub
运行时输入数字，输入3时就是上面那个例子。