vb程序設計第8章圖形程序設計(更新版)

　　

【正文】 的后面。 (x2,y2)為所定義坐標系的右下角坐標。第 8章 圖形程序設計 第 8章 圖形程序設計 知識要點 習題與解答 實訓指導 測驗題 圖形設計基礎 （ 1）坐標系統 Visual Basic用坐標來描述一個像素位于存放他的容器內的位置。 (x1,y1)為所定義坐標系的左上角的坐標。 Position為一整數，用于指出一個控件相對于另一個控件的位置。分別用 x1， y1和 x2， y2來返回或控制線條起始點和終止點在 X軸和 Y軸方向上的位置。它的語法格式如下： [對象 .]Circle [Step] (x ,y ), radius [,color, start ,end ,aspect ] 其中： 對象是調用 Circle方法的對象名稱。 (x ,y )用來指定點的水平和垂直坐標。 width1,height1分別指定 picture的目標寬度和目標高度。 （ 1） (1000, 1000)(3000, 3000) （ 2） (3000, 3000), RGB(255, 0, 0) （ 3） Step (1000, 1000)(3000, 3000) （ 4） (1000, 1000)(3000, 3000), RGB(255, 0, 0), B （ 5） (1000, 1000)(3000, 3000), RGB(255, 0, 0), BF 答案：略（讀者可以自行上機驗證）。 continue? 在復制時，如果設置要傳送的圖形寬度位負數，則復制后的圖像水平翻轉；如果設置要傳送的圖形高度位負數，則復制后的圖像上下翻轉；設置要傳送的圖形寬度和高度均為位負數，則復制后的圖像在兩個方向上翻轉。 【 實訓 】 利用直線和形狀控件模擬兩個小球相撞過程。 圖 83 參考代碼： Private Sub Form_Paint() Dim pi as single pi = 4 * Atn(1) (60, 60)(60, 60) (0, 60)(0, 60) (60, 0)(60, 0) (0, 0), 5, , pi, 2 * pi (3, 0), 8, , 0, pi (0, 0), 11, , pi, 2 * pi (3, 0), 14, , 0, pi (0, 0), 17, , pi, 2 * pi (3, 0), 20, , 0, pi (0, 0), 23, , pi, 2 * pi (3, 0), 26, , 0, pi (0, 0), 29, , pi, 2 * pi End Sub 【 實訓 】 窗體上兩個按鈕的功能分別是在圖片框里畫出同心圓和同心矩形，如圖 84和圖 85所示。繪制 x軸 (0, 1)(0, 1) 39。 圖 89 參考代碼： Option Explicit Private Sub Form_Load() = 1000 = 4000 = 4000 = \ 2 2022 = ( Height) \ 2 End Sub Private Sub Form_Resize() Dim i, Angle Static flag As Boolean If flag = False Then flag = True 39。 A．只有正方形的窗體才可以用 Scale方法自定義坐標系。 B．從窗體 form1的中心坐標點至坐標（ 100,200）的一條線段。 C．若要使用 F，則必須使用 B。 答案： C 11．設置 Shape控件的 屬性可以改變圖形的形狀。 圖 810 Private Sub Form_Load() = vbWhite End Sub Private Sub Command1_Click() Dim x As Integer, y As Integer, r As Integer, i As Integer For i = 1 To 100 Randomize x = Rnd * （ 8） r = 300 * Rnd (x, y), r, RGB(Rnd * 255, Rnd * 255, Rnd * 255)圖 810 （ 9） End Sub Private Sub Command2_Click() （ 10） End Sub Private Sub Command3_Click() End End Sub 答案： （ 8） y = Rnd * （ 9） Next i （ 10） 5．在下面程序的空白處填寫合適的代碼，實現如下功能。 圖 813 2．參考代碼： Private Sub Form_Paint() Const pi = Dim x, y x = / 2 y = / 2 = 1 (x, y), 1600 (x, y 800), 800, , pi / 2, 3 * pi / 2 (x, y + 800), 800, , 3 * pi / 2, pi / 2 = 0 (x, y 800), 400 (x, y + 800), 400 End Sub Private Sub Form_Resize() Call Form_Paint End Sub 第八章結束