1楼：匿名用户
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
这样子才能绘制多个矩形
2楼：一○○度
vb画长方形、正方形、圆和椭圆:
http://user.qzone.**.***/32063270/blog/1242297734
如何在vb上使用“*”绘制出这个正方形图案?
3楼：网海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
cad如何画中间的四边形？请讲解详细点
4楼：匿名用户
这个先从内部画，最后缩放而成
内部的圆、正方形就不说了，很好画
画好后过正方形顶点画直线，不要说不知道怎么画，正六边形比较特殊，那些夹角都知道角度的，画一条就可以通过镜像得到需要的。。。最后画大圆，缩放
5楼：匿名用户
先随便画一个正方形，以圆心为正方形中心
然后按p回车，画出新的长度
纯手打，不采纳说不过去了哦
6楼：ddo方坤
先做两条45度的辅助线，连线做出矩形，相切相切相切做圆。
cad里，一个平行四边形里最大范围的怎么画一个正方形
7楼：激吻
如图，你在平行四边形里最长的两个边其中一边向另一边画一条垂线，然后测量这条直线的距离。接着把这个画的垂线向旁边o偏移一个刚才所测量的直线距离，得出的正方形，就是最大范围的正方形了。
8楼：匿名用户
这个直接画不出来吧，需要具体图形具体看了
怎么在圆里面画一个正四边形
9楼：匿名用户
请看下面，点击放大：
10楼：匿名用户
随便作一条弦，与圆相交产生两点；
根据这两点作此弦的垂直平分线，产生第一条直径，并与圆相交产生两点；
根据这两点作这个直径的垂直平分线，产生第二条直径，与圆相交产生另外2个点，
依次连接这4个点
11楼：匿名用户
先在圆圈里画一个"十"字，
再把十字的四个端点连接起来就是一个正四边形了。
草图大师中怎么把正方形拉成平行四边形
12楼：匿名用户
平面图形的话，直接任意选中一个边进行平，与它相连的部分自动跟着移动就是平行四边形了。
vb怎么画出一个正方形，按了一个按钮后变成平行四边形，还要看到移动的过程
13楼：橡皮树的博客
dim x1, y1, x2, y2, x3, y3, x4, y4private sub form_load() me.width = 7000
me.height = 5000
me.autoredraw = true
timer1.interval = 40
timer1.enabled = false***mand2_click
end sub
'开始变化
图形private sub ***mand1_click()timer1.enabled = trueend sub
'矩形复位private sub ***mand2_click()timer1.enabled = fal***1 = 500
y1 = 500
x2 = 4500
y2 = 500
x3 = 500
y3 = 2500
x4 = 4500
y4 = 2500
call drect
end sub
'图形变化过程private sub timer1_timer()call drect
x1 = x1 + 15
x2 = x2 + 15
if x1 > 2000 then timer1.enabled = false
end sub
'画图形private sub drect()form1.cls
line (x1, y1)-(x2, y2)line (x1, y1)-(x3, y3)line (x3, y3)-(x4, y4)line (x2, y2)-(x4, y4)end sub
14楼：匿名用户
说下原理
不管是正方形,还是平行四边形,只不过是四个顶点位置不同罢了~假设正方形左上顶点为l1,左下顶点为l2,右上顶点为r1,右下顶点为r2
那简单的变成平行四边形就是向同一方向水平平移l2与r2,在移动的过程中不断重绘这四个点的连线,就实现移动的过程了
15楼：匿名用户
我有个比较笨的方法：
private x1, y1, x2, y2, x3, y3, x4, y4 as long
private sub ***mand1_click()x1 = 10
y1 = 10
x2 = 10y2 = 1010
x3 = 1010y3 = 1010
x4 = 1010y4 = 0
picture1.line (x1, y1)-(x2, y2)picture1.line (x2, y2)-(x3, y3)picture1.
line (x3, y3)-(x4, y4)picture1.line (x4, y4)-(x1, y1)timer1.interval = 1timer1.
enabled = true
end sub
private sub timer1_timer()picture1.cls
x1 = x1 + 5
y1 = y1 + 5
x4 = x4 + 5y4 = y4 + 5picture1.line (x1, y1)-(x2, y2)picture1.line (x2, y2)-(x3, y3)picture1.
line (x3, y3)-(x4, y4)picture1.line (x4, y4)-(x1, y1)if y2 - y1 < 500 then timer1.enabled = false
end sub
正方形，长方形，平行四边形，圆，圆柱，梯形之间有什么联系
1楼 半碗阳春面 长方形，正方形梯形面积计算公式其实都是从平行四边形面积计算公式s lh演变而来，同时平行四边形面积公式再结合三角形面积公司可衍变计算不规则多边形的面积计算。园，圆柱面积加入了圆周率计算，如果说联系，其实圆周率的发现就 于规则多边形的周长面积计算而来。简单言之所有面积公式都 于公式 ...
长方形平行四边形三角形梯形和正方形中一
1楼 匿名用户 有3个，长方形 三角形 正方形是，而梯形，不一定是轴对称图形。 2楼 匿名用户 有两个 长方形和正方形一定是轴对称图形 3楼 匿名用户 长方形 平行四边形 正方形 4楼 匿名用户 长方形 三角形 梯形 正方形 长方形 正方形 三角形 平行四边形 梯形和圆中哪些一定是轴对称图形 5楼 ...
长方形，正方形，平行四边形，三角形怎么分两类
1楼 钟老怪 长方形 正方形 平行四边形为一类。三角形为一类。 长方形正方形三角形平行四边形圆形怎么分成两类 2楼 布拉不拉布拉 按组成图形 的线类型分为 1 由直线线段组成的图形 长方形 正方形 三角形 平行四边形。 2 由曲线组成的图形 圆形。 3楼 匿名用户 我认为可以把长方形正方形三角形分作...