Question

用VB打一个V字图形~ 代码如何写~

在线等~ 急用~
* * * ＊＊＊
* * * * ＊＊
* * * * * *
* * * * * *
* * * * * *－－－－－这里的代码如何写？
* * * * *
*＊＊＊
＾＾＾
＾＾
print sub form-click()
for i=1 to 10
print tab(i); string(3,"*")spc(这里如何打)；string(3,"0")
后面的代码如何写？

Answer 1

For i = 1 To 10
Print Tab(i); String(3, "*"); Spc(2*100 - 2 * i); String(3, "0")
Next
2*100 - 2 * i就是你行数减去i的2倍

Answer 2

Private Sub Form_Click()
For i = 1 To 10
Print String(i - 1, " ") & String(1, "*") & String((10 - i) * 2, " ") & String(1, "*") & String(i - 1, " ")
Next
End Sub

Answer 3

Private Sub Form_Click()
For i = 1 To 5
Print Tab(i); String(3, "*"); Tab(13 - i); String(3, "*")
Next
End Sub
>5以后Tab会换行，再加一个For循环？

Answer 4

print sub form-click()
for i=1 to 10
Print Tab(i); String(3, "*"); Spc((10 - i) * 2); String(3, "0")
next
end sub