Question

VB用单循环实现单击窗体显示图1所示图形。提示：去点代码中的【？】，添些正确代码

option explicit
private sub form_click()
dim i%
for i=1 to 【?】
print tab (【？】);"★"; string(【？】, "☆"); "★"
next i
print tab (18) ; "☆"
for i = 5 to 【？】
print tab (【？】); "☆"; string(【？】,"★");"☆"
next i
end sub

在线急求！！谢谢

Answer 1

option explicit
private sub form_click()
dim i%
for i=1 to 5
print tab (i);"★"; string((6-i)*2+5-i, "☆"); "★"
next i
print tab (18) ; "☆"
for i = 5 to 1 step -1
print tab (i); "☆"; string((6-i)*2+5-i,"★");"☆"
next i
end sub

追问

运行后有点出入啊。。你在帮忙看看！！谢谢！！

追答

呵呵，我这也没Vb6的环境，只能按到意思猜，你把有出入的图发上来看看

追问

谢谢了！！