vb程序設(shè)計第8章圖形程序設(shè)計-資料下載頁
2025-01-12 20:42本頁面
【正文】 t方法產(chǎn)生的文字。 B．窗體上由 Line、 Circle、 Pset方法繪制的圖形。 C．窗體上由圖形控件構(gòu)成的圖形。 D．窗體上由 PaintPicture方法復(fù)制的圖形。 答案： C 11．設(shè)置 Shape控件的 屬性可以改變圖形的形狀。 A． Shape B． FillStyle C． DrawStyle D． BorderStyle 答案： A 12．若要使窗體在被其他窗體覆蓋后，再次顯現(xiàn)時，能重新繪制窗體上的所有圖形，應(yīng)該令 屬性為 True。 A． WidowState B． AutoRedraw C． DrawMode D． DrawStyle 答案： B 1．使用 Line方法畫線段后， CurrentX和 CurrreY的值分別是 （ 1） 和 （ 2） 。 答案：（ 1）線段終點的橫坐標(biāo) （ 2）線段終點的縱坐標(biāo) 2．當(dāng)我們使用 Circle方法畫弧線時，從圓弧起點到鐘點采用 （ 3） 時針方向。 答案：（ 3）逆時針 3．執(zhí)行代碼 （ 150， 200） （ 200， 150）后， Form1. ScaleLeft= （ 4） ， = （ 5） ， = （ 6） ，= （ 7） 。 答案：（ 4） 150 （ 5） 200 （ 6） 350（ 7） 350 4．在下面程序的空白處填寫合適的代碼，實現(xiàn)如下功能。 單擊“畫圓”按鈕（ Command1），在窗體上隨機畫出 100個不同顏色的半徑最大為 300的圓形（半徑和顏色具有隨機性）；單擊“清除”按鈕（ Command2），清除窗體上所有圖形；單擊“結(jié)束”按鈕（ Command3），退出程序。如圖 810所示。 圖 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．在下面程序的空白處填寫合適的代碼，實現(xiàn)如下功能。 繪制如圖 811所示的圖形。當(dāng)窗體大小發(fā)生變化時，圖形的大小也隨著窗體一同調(diào)整。 圖 811 Private Sub （ 11） (100, 100)(100, 100) = 2 = vbRed （ 12） （ 13） （ 14） End Sub Private Sub Form_Resize() （ 15） End Sub 答案： (11) Form_Paint() （ 12） (100, 100)(100, 100) （ 13） (100, 100)(100, 100) （ 14） (50, 50)(50, 50), , B （ 15） Call Form_Paint １．畫出變化的月亮和滿天星。程序運行后在藍色窗體上動態(tài)顯示 100個黃色的“★”，月亮從圓到缺，從缺到圓，周而復(fù)始變換。如圖 812所示。 提示：在窗體上添加圖形控件 Shape1和 Shape2，圖形控件的 Shape屬性均設(shè)置為“ Circle” 。 圖 812 1．參考代碼： Private Sub Form_Load() = 1000 = 8000 = 6000 = vbBlue = vbYellow = 0 = vbYellow = vbBlue = 0 = vbBlue End Sub Private Sub Form_Resize() = 2022 = + = End Sub Private Sub Timer1_Timer() Dim i As Integer = vbBlue = vbYellow For i = 1 To 100 CurrentX = Rnd * CurrentY = Rnd * Print ★ Next i If Then = 50 Else = + End If End Sub ２．畫出如圖 813所示的太極圖。 圖 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 第八章結(jié)束
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1