1楼：网海1书生
privatesubform_click()'点击窗体运行dimiasinteger,jasintegerfori=1to5
forj=1to5
ifi=1orj=1ori=5orj=5then
print"*";
else
print"";
endif
nextj
nexti
endsub
或者直接这样：
privatesubform_click()'点击窗体运行print"*****"
print"**"
print"**"
print"**"
print"*****"
endsub
vb中如何画四边形，如正方形 20
2楼：匿名用户
dim x1, y1 as integerdim x2, y2 as integerprivate sub form_mousedown(button as integer, shift as integer, x as single, y as single)
if button = 1 then
x1 = x
y1 = y
end if
end sub
private sub form_mouseup(button as integer, shift as integer, x as single, y as single)
x2 = x
y2 = y
line (x1, y1)-(x, y), vbred, bend sub
这样子才能绘制多个矩形
3楼：一○○度
vb画长方形、正方形、圆和椭圆:
http://user.qzone.**.***/32063270/blog/1242297734
如何使用visio 2019绘制半圆图形
1楼 匿名用户 更多图形 其他visio方案 绘图工具形状，里面有现成的半圆 扇形 我用的是2016 2010类似 visio中怎样画半圆形？ 2楼 匿名用户 用visio画半圆的两种方法如下 一 画两个相连的四分之一圆 四分之一圆用圆弧命令画，保证始端和末端的正方形的对角上就行了。正方形好办，有栅...
AI绘图软件画不规则图形的问题,如何用AI软件画这个不规则图形及上色
1楼 匿名用户 ai倒角需要安装cadtools插件。 希望能帮到你。 如何用ai软件画这个不规则图形及上色 2楼 靳卿科 用钢笔勾画出所有的线 包括圆，线条画的比圆长点 用实时上色工具就能胜任 步骤 1 建立实时上色 ，选中你勾画好的线条描上边，建立实时上色 菜单 对象 实时上色 建立 2 用实时...
如何做校旗,制作校旗校徽有什么窍门可以用在图案上？
1楼 匿名用户 配上校园一贯的风格，加上目标，加上让人奋发向上的标志，要有校名 含englishi 制作校旗校徽有什么窍门可以用在图案上？ 2楼 匿名用户 校旗校徽 要能够代表自己的学校比如把学校的名称，拼音缩写，用主要的字母来代替，不必太复杂，有意义就可以 3楼 匿名用户 你是老师吗，最好找些能特...