vb程序設計第8章圖形程序設計(編輯修改稿)

　

【文章內容簡介】 的 100條長度不等的射線，如圖 82所示。 圖 82 參考代碼： Private Sub Form_Click() Dim i As Integer For i = 1 To 100 Randomize CurrentX = Rnd() * CurrentY = Rnd() * (0, 0) Next i End Sub 【 實訓 】 在窗體上畫出螺旋線，如圖 83所示。 圖 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所示。 提示：在窗體上添加圖片框（ picture1）、兩個命令按鈕（ mand1和 mand2），命令按鈕的 Caption屬性分別設置為“同心圓”和“同心矩形”。 圖 84 圖 85 參考代碼： 39。畫同心圓 Private Sub Command1_Click() = 同心圓 (100, 100)(100, 100) r = 10 For i = 1 To 10 (0, 0), r + 5 * i Next i End Sub 39。畫同心矩形 Private Sub Command2_Click() = 同心矩形 (100, 100)(100, 100) r = 10 For i = 1 To 10 r = r + 5 * i (r + 5, r)(r 5, r), , B Next i End Sub 【 實訓 】 分別利用點和小線段模擬y=(sin(x)+cos(2x))/2數學函數曲線，如圖 86所示。 圖 86 參考代碼： 利用點實現 Private Sub Form_Paint() Dim i As Single, pi As Double pi = 4 * Atn(1) (2 * pi, 1)(2 * pi, 1) (2 * pi, 0)(2 * pi, 0) (0, 1)(0, 1) For i = 2 * pi To 2 * pi Step (i, (Sin(i) + Cos(2 * i)) / 2) Next i End Sub 利用小線段實現 Private Sub Form_Paint() Dim i As Single, pi As Double pi = 4 * Atn(1) 39。計算圓周率 (2 * pi, 1)(2 * pi, 1) 39。建立新坐標系 (2 * pi, 0)(2 * pi, 0) 39。繪制 x軸 (0, 1)(0, 1) 39。繪制 y軸 CurrentX = 2 * pi CurrentY = (Sin(CurrentX) + Cos(2 * CurrentX)) / 2 For i = 2 * pi To 2 * pi Step 39。用小線段來模擬曲線 (i, (Sin(i) + Cos(2 * i)) / 2) Next i End Sub 【 實訓 】 利用 point方法把標簽中的文本復制到窗體上，如圖 87所示。 提示：在窗體上添加圖片框（ picture1），設置合適的字體， AutoRedraw屬性設置為“ true” 。 圖 87 參考代碼： Private Sub Form_Activate() 我愛北京天安門！ 圖 87 End Sub Private Sub Form_Click() (0, 0)(500, 500) (0, 0)(500, 500) For i = 1 To 500 For j = 1 To 500 (i, j), (i, j) Next j Next i End Sub 【 實訓 】 利用學過的畫圖方法畫出顏色漸變背景，如圖 88所示。 圖 88 參考代碼： Private Sub Form_Paint() Dim i As Integer, x As Single, y As Single, h As Single x = y = h = 255 / y For i = 0 To y (0, i)(x, i), RGB(i * h, i * h, 255) Next i End Sub 讀者可以分析下面代碼，然后上機驗證代碼所產生的效果。 Private Sub Form_Paint() Dim x As Single, y As Single, t As Single Dim i As Single = 2 x = y = If x y Then t = y \ 2 Else t = x \ 2 = 1 = 0 = 1 For i = 0 To t (i, i)(x i, y i), RGB(0, 0, 255 (i * 255) \ t), BF Next i End Sub 【 實訓 】 模擬帶有時針、分針、秒針及刻度的時鐘，如圖