編程畫長方形的代碼卡片

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