1樓：橡皮樹的部落格
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
2樓：匿名使用者
說下原理
不管是正方形,還是平行四邊形,只不過是四個頂點位置不同罷了~假設正方形左上頂點為l1,左下頂點為l2,右上頂點為r1,右下頂點為r2
那簡單的變成平行四邊形就是向同一方向水平平移l2與r2,在移動的過程中不斷重繪這四個點的連線,就實現移動的過程了
3樓：匿名使用者
我有個比較笨的方法：
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
長方形正方形平行四邊形特徵
長方形 對邊相等，四個角都是直角的四邊形 正方形 四邊相等，四個角都是直角的四邊形 平行四邊形 對邊平行且相等的四邊形 長方形性質 對角線相 等且互相平分 有四條邊 對邊平行且相等 四個角都相等且都是直角 四個角度數和為360 有2條對稱軸 在沒有資料的情況下，水平的那一邊為長，垂直的那一邊為寬。長...
平行四邊形菱形矩形正方形的判定條件
平行四邊形 1.兩組來對自 邊分別平行的四邊形 2.兩組對bai邊分別相du等的四邊zhi形 3.任意兩鄰角和為dao180的四邊形 菱形 1.兩鄰邊相等的平行四邊形 2.四條邊都相等的四邊形矩形 1.一個角是直角的平行四邊形 2.四個角都是直角的四邊形正方形 1.四邊都相等,一個角是直角的四邊形 ...
依次連線平行四邊形，正方形，矩形，菱形，等腰梯形各邊中點分別
平行四邊形 正方形菱形 矩形菱形 等腰梯形 菱形 四邊形 平行四邊形 正方形 正方形 矩形 菱形 菱形 矩形 4邊形 正方 正方 矩形 菱形吧 順次連線平行四邊形 矩形 菱形 正方形 等腰梯形各邊的中點，得到什麼四邊形 平行四邊形，矩形，矩形，正方形，不規則四邊形 平行四邊形 得到平行四邊形 矩形 ...