一个超级简单的VB编程题(Visual Basic)

来源：百度知道 编辑：UC知道 时间：2024/05/14 03:42:18
这是义务教育课本上的呢？
编程，打印下面的图像，要求用到循环语句的
*
* * *
* * * * *
* * * * * * *
哎呀，第一个星号偏了，应该是在中间的

Private Sub Command1_Click()
Dim i As Integer, j As Integer
For i = 1 To 4
For j = 1 To 4 - i
Print " ";
Next
For j = 1 To 2 * i - 1
Print "*";
Next
Print
Next
End Sub

Private Sub Form_Click()
n=4'可以把n改成你想要的行数
For i = 1 To n
Print Spc(n- i);
For j = 1 To i * 2 - 1
Print "*";
Next j
Print
Next i
End Sub

看看行不

Private Sub Command1_Click()

Dim i, j As Integer
For i = 1 To 4
Print Tab(5 - i);
For j = 1 To 2 * i - 1
Print "*";
Next
Next

End Sub

‘希望我的答案能令你满意！

。。。。。。。。用for的循环语句，设定一下初值和终值。别忘了换行~~
完成！

for i = 1 to 7 step 2
for j = 1 to i
tab(8-i);print "*"
next
next
你试试吧，可能还得改些东西

真的是超级简单哟