编程画长方形的代码卡片

1. 怎么用C语言编程设计“输入长方形的长和宽，求长方形的面积”的程序

需要准备的材料分别有：电脑、C语言编译器。

1、首先高指哪，打开C语言编译器，新建一个初始.cpp文件，例如：test.cpp。

2. CAD怎么编程画一个长方形；

CAD画长方形，命令REC

补充：CAD(Computer Aided Design）诞生于基让喊60年代，是美国麻省理工大学提出了交互式图形学的研究计划，由于当时硬件设施的昂贵，只有美国滑局通用汽车公司和美国波音航空公司使用自行开发的交互式绘图搏野系统。计算机辅助设计(CAD-Computer Aided Design)指利用计算机及其图形设备帮助设计人员进行设计工作。

3. 如何使用CSS画一个空心长方形 要代码哦，是使用DIV+CSS

如果你只要一条垂直线就设置这个DIV的边框线样式就可以了，样式代码：border-left:1px #000000 solid 这里的border-left是指这个DIV的左边边框，1px就是线的宽度，#000000是线的键段颜色（这里是黑色），solid是线的样闹亮陆液顷式（这里是实线），整个DIV的代码可以这样写：<div style="width:200px; height:500px; border-left:1px #000000 solid;"></div>

4. vi编程怎么打出实心长方形

1、首先打开vi软件并选择绘制。
2、其次拖动画出实心长方形。
3、最后点击实心长方形皮旅进行细节调节即可。Vi指视觉识别燃哗凳系统。视觉识别系统简称VI，英文VisualIdentity的缩写是运用系统的、统一的视觉符号系统。芦派

5. 如何用vb 6.0 做画图， 怎么写各种形状的代码 （圆形，椭圆，长方形 ）

[object.]Circle [Step](x, y), radius, [color], [start], [end] [, aspect]

start 参数和 end 参数是可选的；但是，如果想省掉参数，逗号是不能省的。例如：如果含有 radius 参数和 aspect 参数，省掉了 color、start、end 三个参数，则必须加上四个连续的逗号，它表明这三个参数被省掉了。

Circle (1000, 1000), 500, , , , 2

aspect 参数指定了水平长度和垂直长度比。该 aspect 参数是正浮点数，这说明它既可以是整数表达式，也可以是小数表达式，但不能是负数。该 aspect 参数较大时，椭圆沿垂直轴线拉长；相反，答戚该 aspect 参数较小时，则沿水平轴线拉长。由于椭圆有两个半径—水平方向的 x 半径和垂直方向 y 半径— Visual Basic 在 Circle 语句中只使用了一个参数 radius 对应椭圆的长轴。如果 aspect 参数小于 1 的话，该 radius 半径指的是水平方向清茄陵的 x 半径，如果 aspect 参数大于或等于 1 的话，则 radius 指的是垂直方向的 y 半径。

代码:
Private Sub Form_Click()
'画一个实心椭圆。
FillStyle = 0
Circle (600, 1000), 800, , , , 3 '600,1000是中心坐标,800是长轴半径,3是y轴与x轴之比
'画一个空心椭圆。
FillStyle = 1
Circle (1800, 1000), 800, , , , 1 /纳卜 3

'画圆
Circle (3800, 1000), 800
'画矩形
Line (1000, 1000)-(3000, 3000), , B '加B就是画矩形,没B是化直线

End Sub

6. 如何只用vb编程， 画一个长方形并进行尺寸标注。就像在cad中绘制的效果。

朋友你好!根据你的题意，我编了一个VB程序，基本能满足你的要求。现将代码粘贴如下。但是这些代码，都必须和窗体控件结合在一起，才能运行。所以，最好你悔雀加我的QQ78694359，我好将代码和窗体完整的传给你。
Private
Sub
draw()
kuan
=
Val(para_Text(0).Text)
*
50
gao
=
Val(para_Text(1).Text)
*
50
zuo
=
Val(para_Text(2).Text)
*
50
shang
=
Val(para_Text(3).Text)
*
50
Shape1.Left
=
zuo
Shape1.Top
=
shang
Shape1.Height
=
gao
Shape1.Width
=
kuan
biaozhu_Label(0).Caption
=
Str(kuan
/
50)
+
"毫米"
biaozhu_Label(0).Left
=
zuo
+
(kuan
-
biaozhu_Label(0).Width)
/
2
biaozhu_Label(0).Top
=
shang
-
biaozhu_Label(0).Height
-
200
biaozhu_Line(0).X1
=
zuo
biaozhu_Line(0).Y1
=
shang
-
biaozhu_Label(0).Height
/
2
-
200
biaozhu_Line(0).X2
=
zuo
+
kuan
biaozhu_Line(0).Y2
=
biaozhu_Line(0).Y1
biaozhu_Label(1).Caption
=
Str(gao
/
50)
+
"毫碧敏早米"
biaozhu_Label(1).Left
=
zuo
-
biaozhu_Label(1).Width
biaozhu_Label(1).Top
=
shang
+
(gao
+
biaozhu_Label(1).Height)
/
2
biaozhu_Line(1).X1
=
zuo
-
biaozhu_Label(0).Width
/
2
biaozhu_Line(1).Y1
=
shang
biaozhu_Line(1).X2
=
biaozhu_Line(1).X1
biaozhu_Line(1).Y2
=
shang
+
gao
End
Sub
Private
Sub
biaozhu(ByVal
kuan
As
Integer,
ByVal
gao
As
Integer)
biaozhu_Label(0).Caption
=
kuan
biaozhu_Label(1).Caption
=
gao
End
Sub
Private
Sub
Form_Load()
Text1.Text
=
"操作说明:"
&
Chr(13)
&
Chr(10)
&
"1、回车键:选择下一个参数"
&
Chr(13)
&
Chr(10)
&
"2、箭头键:改变参数值"
End
Sub
Private
Sub
para_Text_Change(Index
As
Integer)
Call
draw
End
Sub
Private
Sub
para_Text_GotFocus(Index
As
Integer)
para_Text(Index).SelStart
=
Len(para_Text(Index))
End
Sub
Private
Sub
para_Text_KeyDown(Index
As
Integer,
KeyCode
As
Integer,
Shift
As
Integer)
Dim
zuo
As
Integer
Dim
shang
As
Integer
Dim
kuan
As
Integer
Dim
gao
As
Integer
Select
Case
KeyCode
Case
13
If
Index
=
3
Then
para_Text(0).SetFocus
Else
para_Text(Index
+
1).SetFocus
End
If
Case
37
'向左，数据减小10
If
Val(para_Text(Index).Text)
-
1
>
0
Then
para_Text(Index).Text
=
Val(para_Text(Index).Text)
-
1
Case
39
'向右，数据增加10
para_Text(Index).Text
=
Val(para_Text(Index).Text)
+
1
Case
38
'向上拿锋箭头，数据增加100
If
Val(para_Text(Index).Text)
-
10
>
0
Then
para_Text(Index).Text
=
Val(para_Text(Index).Text)
-
10
Case
40
'向下箭头，数据减少100
para_Text(Index).Text
=
Val(para_Text(Index).Text)
+
10
End
Select
End
Sub