UC知道VB编程解答，拜托~~~
来源：百度知道 编辑：UC知道 时间：2024/06/15 02:54:39
Private Sub Form_Click()
Dim i As Integer, j As Integer, n As Integer
n = Val(InputBox("n=:(输入1-9之间的整数)"))
Do While n <= 0 Or n >= 10
n = Val(InputBox("n=:(输入1-9之间的整数)"))
Loop
For i = 1 To n
Print Tab(n - i + 1);
For j = 1 To 2 * i - 1
Print "*";
Next j
Print
Next i
For i = n - 1 To 1 Step -1
Print Tab(n - i + 1);
For j = 1 To 2 * i - 1
Print "*";
Next j
Print
Next i
End Sub
能不能帮我解答一下这题的意思啊？拜托~
Dim i As Integer, j As Integer, n As Integer
n = Val(InputBox("n=:(输入1-9之间的整数)"))
Do While n <= 0 Or n >= 10
n = Val(InputBox("n=:(输入1-9之间的整数)"))
Loop
For i = 1 To n
Print Tab(n - i + 1);
For j = 1 To 2 * i - 1
Print "*";
Next j
Next i
For i = n - 1 To 1 Step -1
Print Tab(n - i + 1);
For j = 1 To 2 * i - 1
Print "*";
Next j
Next i
End Sub
能不能帮我解答一下这题的意思啊？拜托~
Private Sub Form_Click()
Dim i As Integer, j As Integer, n As Integer '定义变量类型
n = Val(InputBox("n=:(输入1-9之间的整数)")) '弹出对话框 把输入的值赋值给n
Do While n <= 0 Or n >= 10 '如果n小于等于0 或者n大于等于10 则执行循环内的代码
n = Val(InputBox("n=:(输入1-9之间的整数)")) '弹出对话框 把输入的值赋值给n
Loop
For i = 1 To n '从1 循环至 N
Print Tab(n - i + 1); '设置下一次窗体打印的输出点位置在n - i + 1处
For j = 1 To 2 * i - 1
Print "*"; ''循环2*i-1次~打印 * 字符
Next j
Print '打印换行
Next i
For i = n - 1 To 1 Step -1
Print Tab(n - i + 1); '同上
For j = 1 To 2 * i - 1
Print "*";
Next j
Print
Next i
End Sub