UC知道如何用VB 的DO LOOP做一个空的菱形？
来源：百度知道 编辑：UC知道 时间：2024/05/23 23:10:59
如何利用VB中的DO LOOP在Label上显示一个菱形
*
* *
* *
* *
*
就上上面的图案~利用到函数
*
* *
* *
* *
*
就上上面的图案~利用到函数
Private Function PrintStar(num As Integer)
Dim N As Integer
N = 2 * num - 1
i = 1
Do While i <= N
Print Space(Abs((N + 1) \ 2 - i));
Print "*";
Print Space(Abs(2 * ((N - 1) \ 2 - Abs((N + 1) \ 2 - i)) - 1));
If i <> 1 And i <> N Then Print "*";
Print
i = i + 1
Loop
End Function
Private Sub Form_Click()
Call PrintStar(3) '这个数字自己改
End Sub