Question

用vb如何编写一个程序用*构成一个实心正六边形，就像图中的三角形这种

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励20（财富值+成长值）

Answer 1

sub draw(l as integer,optional stp as integer=1)
dim i as integer,j as integer
for i=l to 1 step -stp
print tab(i);
for j =1 to 2*(l-i)+l
print "*";
next j
next i
'
for i=1 to l step stp
print tab(i);
for j=1 to 2*(l-i)+l
print "*";
next j
next i
end sub

'调用
draw 5
draw 10,2

追问

请问如何编写程序来控制VScroll上下滑动

追答

用一个 timer控件来控制
连续修改 VScroll的 value 就行了

Answer 2

是无法做到的！

追问

就是编一个正六边形的程序

不是，就是一个普通的六边形

追答

根据数学知识就可以知道，正六边形的每个内角为120度，而要类似你那样的方法打印出来，是无法做到的？