vb各種圖形設(shè)計(jì)-課程設(shè)計(jì)報(bào)告

上傳人：奔*** IP屬地：河北更新時(shí)間：2024-03-01 格式：doc 頁數(shù)：39 大?。?.98MB 人氣指數(shù)：12 舉報(bào) 版權(quán)申訴

2023年全國(guó)碩士研究生考試考研英語一試題真題（含答案詳解+作文范文）_第1頁

已閱讀1頁，還剩38頁未讀，繼續(xù)免費(fèi)閱讀

版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)

文檔簡(jiǎn)介

1、　　VB各種圖形設(shè)計(jì)　　二○一一級(jí) 分院　　專業(yè) 　　學(xué) 號(hào) 　　學(xué)生姓名 <p

2、>　　指導(dǎo)教師 　　完成日期 2011年6月23 日　　摘要 　　我們經(jīng)常要處理一些圖形的問題，用VB處理圖形的問題可以使問題簡(jiǎn)單化，只要設(shè)定好程序后，可以反復(fù)的輸出所需的圖。避免了重復(fù)操作。　　本系統(tǒng)的

3、主要功能及任務(wù)是：　　單擊界面上不同按鈕，產(chǎn)生不同顏色及位置的圖形。　　論文首先介紹了系統(tǒng)開發(fā)涉及的相關(guān)技術(shù)，主要講解了vb系統(tǒng)內(nèi)關(guān)于繪圖的函數(shù)。其次，介紹了隨機(jī)顏色，位置的實(shí)現(xiàn)形式。最后，作了詳細(xì)描述，主要采用圖片與代碼結(jié)合的方式詳細(xì)地?cái)⑹隽讼到y(tǒng)功能的實(shí)現(xiàn)。　　關(guān)鍵詞：VB各種圖形設(shè)計(jì)，按鈕，隨機(jī)，顏色，位置

4、　　目錄　　第一章選題的意義4　　1.1 自我介紹4　　1.2 所選題目的名稱4　　1.3 選擇題目的原因4　　1.4完成此題的時(shí)間安排4

5、　　1.5 收集的參考書籍、文獻(xiàn)網(wǎng)絡(luò)等相關(guān)資料4　　第二章系統(tǒng)功能簡(jiǎn)介5　　2.1系統(tǒng)概述5　　2.2系統(tǒng)的運(yùn)行環(huán)境5　　第三章準(zhǔn)備工作6<p&

6、gt;　　3.1顏色設(shè)置6　　3.2繪圖坐標(biāo)系統(tǒng)8　　3.3圖形控件9　　3.4繪圖方法9　　第四章系統(tǒng)實(shí)現(xiàn)11<p

7、>　　4.1總體結(jié)構(gòu)設(shè)計(jì)規(guī)劃及流程圖：11　　4.2 VB各種圖形設(shè)計(jì)系統(tǒng)代碼12　　第五章總結(jié)39　　5.1 遇到及解決的問題39　　5.2 心得體會(huì)39　　第六章感謝詞及參考文獻(xiàn)40

8、　　第一章選題的意義　　1.1 自我介紹　　班級(jí)：　　學(xué)號(hào)：　　姓名：<

9、/b>　　專業(yè)：　　1.2 所選題目的名稱　　VB各種圖形設(shè)計(jì)　　1.3 選擇題目的原因　　首先，重復(fù)繪制圖形，浪費(fèi)了許多人力和物力，在信息時(shí)代這種

10、傳統(tǒng)的方法必然被計(jì)算機(jī)為基礎(chǔ)的信息管理所取代。我之所以選擇這個(gè)題目，希望可以在信息繪制圖形方面有所提高。　　從另一方面來說，我感覺這個(gè)題目和我所學(xué)的知識(shí)密切相關(guān)，我對(duì)該系統(tǒng)也有一定的認(rèn)知和了解，更容易學(xué)到對(duì)于VB程序設(shè)計(jì)語言有用的知識(shí)。　　1.4完成此題的時(shí)間安排　　1. 選題、查閱資料；

11、　　2. 確定設(shè)計(jì)方案；　　3. 方案的實(shí)現(xiàn)、調(diào)試與驗(yàn)證，撰寫課程設(shè)計(jì)報(bào)告；　　4. 完善軟件功能，修訂并完成課程設(shè)計(jì)報(bào)告書；　　1.5 收集的參考書籍、文獻(xiàn)網(wǎng)絡(luò)等相關(guān)資料　　1.《Visual Basic 程序設(shè)計(jì)》，范通讓，王學(xué)軍，科學(xué)出版社<

12、;/p>　　2.《Visual Basic 程序設(shè)計(jì)教程》，王學(xué)軍，科學(xué)出版社　　3.相關(guān)網(wǎng)站：http://vbeden.xg88.com/index_main.htm 　　http://www.applevb.com/ 　　第二章系統(tǒng)功能簡(jiǎn)介<p&

13、gt;　　2.1系統(tǒng)概述　　單擊界面上不同按鈕，產(chǎn)生不同顏色及位置的圖形。　　2.2系統(tǒng)的運(yùn)行環(huán)境　　系統(tǒng)使用環(huán)境　　操作系統(tǒng)：windows xp/2000/me/98&

14、lt;p>　　系統(tǒng)支持： visual basic 6.0及以上版本　　系統(tǒng)開發(fā)環(huán)境　　操作系統(tǒng)：windows xp/2000/me/98　　系統(tǒng)支持： visual basic 6.0　　第三章準(zhǔn)備工作

15、　　此部分主要進(jìn)行VB繪圖基礎(chǔ)的了解與學(xué)習(xí)，包括顏色設(shè)置方法、與繪圖有關(guān)屬性的掌握、繪圖坐標(biāo)系統(tǒng)的了解、繪圖方法（主要是Circle方法、Line方法）的領(lǐng)會(huì)，特別是對(duì)VB中坐標(biāo)空間的認(rèn)知與體悟。　　3.1顏色設(shè)置　　顏色值: 四字節(jié)、長(zhǎng)整型。</p

16、>　　最低的三個(gè)字節(jié): 紅色、綠色、藍(lán)色。　　每個(gè)字節(jié)取值: 00~FF(或0~255)　　1. 在設(shè)計(jì)階段設(shè)置顏色: 在屬性窗口設(shè)置 　　2. 在運(yùn)行階段設(shè)置顏色:　　(1) RGB函數(shù): 　　RGB

17、函數(shù)通過紅、綠、藍(lán)三基色進(jìn)行混合產(chǎn)生某種顏色。　　語法格式：RGB（紅，綠，藍(lán)）　　其中顏色值為一整數(shù)值，取值從0到255。　　例：RGB（0，0，0）返回黑色，RGB（255，255，255）返回白色，RGB（255，0，0）返回紅色，RGB（255，255，0）返回黃色。<p&g

18、t;　　(2)QBColor函數(shù)　　QBColor函數(shù)采用QBasic所使用的16種顏色。　　語法格式為：QBColor（顏色碼）　　顏色碼如下表所示。　　例: Form1.BackColor = QBColor(4)</p&g

19、t;　　(3) 使用顏色常量　　vbBlack黑色　　vbRed紅色　　vbGreen綠色　　vbYellow黃色　　vbBlue藍(lán)色<

20、/b>　　vbMagenta洋紅色　　vbCyan青色　　vbWhite白色　　(4) 使用顏色的十六進(jìn)制值　　&H00BBGGRR&&l

21、t;p>　　(5) 使用系統(tǒng)顏色　　例: vbScrollBars &H80000000 滾動(dòng)條顏色　　vbDesktop &H80000001 桌面顏色　　3.2. 繪圖坐標(biāo)系統(tǒng)　　一個(gè)完整的坐標(biāo)系有三個(gè)要素：坐標(biāo)原點(diǎn)、坐標(biāo)度量單

22、位、坐標(biāo)值。　　坐標(biāo)原點(diǎn)：任何容器的缺省坐標(biāo)系統(tǒng)，都是從容器的左上角（0，0）坐標(biāo)開始，即坐標(biāo)原點(diǎn)在窗體的左上角。　　坐標(biāo)度量單位：根據(jù)缺省規(guī)定，所有VB的移動(dòng)、調(diào)整大小和圖形繪制語句，都使用緹為單位。1440緹等于1英寸，567緹等于1厘米?？梢允褂肧caleMode返回或設(shè)置對(duì)象坐標(biāo)的度量單位。　　坐標(biāo)值：使

23、用窗體中的坐標(biāo)，可定義網(wǎng)格上點(diǎn)的位置：（X，Y）。X值是沿X軸點(diǎn)的位置，最左端是缺省值0。Y值是沿Y軸點(diǎn)的位置，最上端是缺省位置0。 　　1.VB的默認(rèn)坐標(biāo)系　　VB默認(rèn)坐標(biāo)系的設(shè)置是：容器的左上角為坐標(biāo)原點(diǎn)（0，0），橫向向右為X軸的正向，縱向向下為Y軸的正向。度量單位默認(rèn)為Twip（緹）。

24、　2.自定義坐標(biāo)系　　可以使用有關(guān)屬性定義坐標(biāo)系或通過Scale方法定義坐標(biāo)系　　方法一：使用以下四個(gè)屬性重定義坐標(biāo)系：　　ScaleLeft，ScaleTop，ScaleWidth，ScaleHeight 　　方法二：使用Scale方法定義坐標(biāo)系&l

25、t;/p>　　語法：object.Scale (x1, y1) - (x2, y2)　　說明：　　其中(x1, y1) 用于指定新坐標(biāo)系左上角的坐標(biāo)。(x2, y2)用于指定新坐標(biāo)系右下角的坐標(biāo)。　　這兩組參數(shù)要選必須全選，定義新的坐標(biāo)系后，系統(tǒng)將

26、進(jìn)行這樣的賦值：ScaleLeft=x1，ScaleTop=y1，ScaleWidth=x2-x1，ScaleHeight=y2-y1。　　如果兩組參數(shù)全不選，則恢復(fù)為缺省坐標(biāo)系。　　3.3 圖形控件 　　以下幾個(gè)屬性將決定Shape 控件的外觀：&l

27、t;p>　　BackStyle：決定形狀的背景是否為透明 　　BackColor：決定Shape控件的背景顏色。　　FillColor：決定在FillStyle屬性所設(shè)置的方式下添填圖形的顏色。　　FillStyle：決定了填充圖形的樣式 　　BorderWidth

28、：邊線寬度。 　　BorderStyle：邊線類型。　　。　　3.4繪圖方法　　1.畫直線、矩形方法(Line) 　　Line方法用于畫直線或矩形，其語

29、法格式如下：　　[對(duì)象.]Line [[Step](x1,y1)]-(x2,y2)[,顏色][,B[F]]　　其中：　　對(duì)象指示Line在何處產(chǎn)生結(jié)果，可以是窗體或圖形框，缺省時(shí)為當(dāng)前窗體。　　(x1,y1)為線段的起點(diǎn)坐標(biāo)或矩形的左

30、上角坐標(biāo)，(x2,y2)為線段的終點(diǎn)坐標(biāo)或矩形的右下角坐標(biāo)。　　關(guān)鍵字Step表示采用當(dāng)前作圖位置的相對(duì)值。　　關(guān)鍵字B表示畫矩形，關(guān)鍵字F表示用畫矩形的顏色來填充矩形。如果F缺省，則矩形的填充由FillColor和FillStyle屬性決定　　2. 畫圓方法(Circle)<p&g

31、t;　　Circle方法用于畫圓、橢圓、圓弧或扇形，其語法格式如下：　　[對(duì)象.] Circle [[Step](x,y),半徑[,顏色][,起始角] [,終止角] [,長(zhǎng)短軸比率]]　　其中：　　(x,y)為圓心坐標(biāo)，關(guān)鍵字Step表示采用當(dāng)前作圖位置的相對(duì)值。</p

32、>　　起始角和終止角用于控制畫圓弧或扇形。當(dāng)起始角和終止角的值在0~2π之間時(shí)畫出的是圓弧，當(dāng)起始角和終止角取值前加一負(fù)號(hào)時(shí)畫出扇形，負(fù)號(hào)表示畫圓心到圓弧的徑向線。　　長(zhǎng)短軸比率用于控制畫出的圓還是橢圓，值為1時(shí)畫出正圓　　第四章系統(tǒng)實(shí)現(xiàn)　　4.

33、1總體結(jié)構(gòu)設(shè)計(jì)規(guī)劃及流程圖：　　對(duì)上述各項(xiàng)功能進(jìn)行集中、分塊，按照結(jié)構(gòu)化層序設(shè)計(jì)的要求，得到如下所示的系統(tǒng)功能功能模塊圖。　　4.2 VB各種圖形設(shè)計(jì)系統(tǒng)代碼　　現(xiàn)在已經(jīng)完成了程序各個(gè)功能模塊的創(chuàng)建，現(xiàn)在可以進(jìn)行系統(tǒng)的實(shí)現(xiàn)了　　開始&

34、lt;/p>　　Private Sub Command1_Click()　　Form1.Hide　　Form2.Show　　End Sub　　Private Sub Form_Load()

35、;　　Label1.Caption = "歡迎使用VB圖形設(shè)計(jì)系統(tǒng)！！"　　Timer1.Interval = 350　　End Sub　　Private Sub Timer1_Timer()

36、　　Label1.Caption = Mid(Label1.Caption, 2, Len(Label1.Caption) - 1) + Left(Label1.Caption, 1)　　End Sub　?。ㄕf明：使用Timer控件使字幕滾動(dòng)，通過Click事件進(jìn)入下一界面）

37、　　一朵花　　Private Sub Command1_Click()　　Cls　　Dim r%, x%, y%　　FillColor = QBColor(Rnd * 15)

38、　　FillStyle = 0　　r = 50 + Rnd * 500　　DrawWidth = 1　　x = 1700 + Rnd * 5000: y = 1000 + Rnd * 5000　　Circle (x - 1.5 * r, y - 1.5

39、 * r), 1.6 * r　　Circle (x - 1.5 * r, y + 1.5 * r), 1.6 * r　　Circle (x + 1.5 * r, y - 1.5 * r), 1.6 * r　　Circle (x + 1.5 * r, y + 1.5 * r), 1.6 * r

40、　　FillColor = QBColor(Rnd * 10)　　Circle (x, y), r　　End Sub　　（說明：通過x%, y%及Rnd函數(shù)使圖形的位置隨機(jī)出現(xiàn)，通過r%及Rnd函數(shù)使圖形大小隨意變化）<p&g

41、t;　　十朵花　　Private Sub Command2_Click()　　Cls　　Dim r%, y%, x%, a%, b%, c%, d%, e%, f%, g%, h%, i%, j%

42、　　r = 50 + Rnd * 200　　DrawWidth = 1　　x = 2000 + Rnd * 5000: y = 1000 + Rnd * 4000: a = 1000 + Rnd * 3000: b = 1000 + Rnd * 3000: c = 1000 + Rnd * 4000: d = 1000 + Rnd * 4000: e =

43、 1000 + Rnd * 4000: f = 1000 + Rnd * 4000: n = Rnd * 600: t = Rnd * 600　　FillStyle = 0　　FillColor = QBColor(Rnd * 15)　　Circle (x - 1.5 * (r + n) + a, y - 1.5

44、 * (r + n) + b), 1.6 * (r + n)　　Circle (x - 1.5 * (r + n) + a, y + 1.5 * (r + n) + b), 1.6 * (r + n)　　Circle (x + 1.5 * (r + n) + a, y - 1.5 * (r + n) + b), 1.6 * (r + n)</p&g

45、t;　　Circle (x + 1.5 * (r + n) + a, y + 1.5 * (r + n) + b), 1.6 * (r + n)　　FillColor = QBColor(Rnd * 10)　　Circle (x + a, y + b), r + n　　FillStyle =

46、 0　　FillColor = QBColor(Rnd * 15)　　Circle (x - 1.5 * r, y - 1.5 * r), 2 * r　　Circle (x - 1.5 * r, y + 1.5 * r), 2 * r　　Circle (x + 1.5 *

47、 r, y - 1.5 * r), 2 * r　　Circle (x + 1.5 * r, y + 1.5 * r), 2 * r　　FillColor = QBColor(Rnd * 10)　　Circle (x, y), r　　FillStyle = 0</p&

48、gt;　　FillColor = QBColor(Rnd * 15)　　Circle (x - 1.5 * (r + t) - c, y - 1.5 * (r + t) + b), 1.6 * (r + t)　　Circle (x - 1.5 * (r + t) - c, y + 1.5 * (r + t) + b), 1.6 *

49、(r + t)　　Circle (x + 1.5 * (r + t) - c, y - 1.5 * (r + t) + b), 1.6 * (r + t)　　Circle (x + 1.5 * (r + t) - c, y + 1.5 * (r + t) + b), 1.6 * (r + t)　　Circle (

50、x - c, y + b), r + t　　FillStyle = 0　　FillColor = QBColor(Rnd * 15)　　Circle (x - 1.5 * (r + n + t) + c, y - 1.5 * (r + n + t)), 1.6 * (r + n + t)&

51、lt;p>　　Circle (x - 1.5 * (r + n + t) + c, y + 1.5 * (r + n + t)), 1.6 * (r + n + t)　　Circle (x + 1.5 * (r + n + t) + c, y - 1.5 * (r + n + t)), 1.6 * (r + n + t)　　Circle (x +

52、1.5 * (r + n + t) + c, y + 1.5 * (r + n + t)), 1.6 * (r + n + t)　　Circle (x + c, y), r + n + t　　FillStyle = 0　　FillColor = QBColor(Rnd * 15)<p

53、>　　Circle (x - 1.5 * r + b, y - 1.5 * r + a), 1.7 * r　　Circle (x - 1.5 * r + b, y + 1.5 * r + a), 1.7 * r　　Circle (x + 1.5 * r + b, y - 1.5 * r + a), 1.7 * r<p&

54、gt;　　Circle (x + 1.5 * r + b, y + 1.5 * r + a), 1.7 * r　　Circle (x + b, y + a), r　　FillStyle = 0　　FillColor = QBColor(Rnd * 15)　　Circle

55、(x - 1.5 * (r + n) + d, y - 1.5 * (r + n) + e), 1.6 * (r + n)　　Circle (x - 1.5 * (r + n) + d, y + 1.5 * (r + n) + e), 1.6 * (r + n)　　Circle (x + 1.5 * (r + n) + d, y - 1.5 * (r +

56、 n) + e), 1.6 * (r + n)　　Circle (x + 1.5 * (r + n) + d, y + 1.5 * (r + n) + e), 1.6 * (r + n)　　FillColor = QBColor(Rnd * 10)　　Circle (x + d, y + e), r + n<

57、;/p>　　FillStyle = 0　　FillColor = QBColor(Rnd * 15)　　Circle (x - 1.5 * (r + t) - f, y - 1.5 * (r + t) + d), 1.6 * (r + t)　　Circle (x - 1.5 * (r

58、+ t) - f, y + 1.5 * (r + t) + d), 1.6 * (r + t)　　Circle (x + 1.5 * (r + t) - f, y - 1.5 * (r + t) + d), 1.6 * (r + t)　　Circle (x + 1.5 * (r + t) - f, y + 1.5 * (r + t) + d), 1.6

59、* (r + t)　　Circle (x - f, y + d), r + t　　FillStyle = 0　　FillColor = QBColor(Rnd * 15)　　Circle (x - 1.5 * (r + n + t) + d, y - 1.5 * (r +

60、 n + t)), 1.6 * (r + n + t)　　Circle (x - 1.5 * (r + n + t) + d, y + 1.5 * (r + n + t)), 1.6 * (r + n + t)　　Circle (x + 1.5 * (r + n + t) + d, y - 1.5 * (r + n + t)), 1.6 * (r + n

61、 + t)　　Circle (x + 1.5 * (r + n + t) + d, y + 1.5 * (r + n + t)), 1.6 * (r + n + t)　　Circle (x + d, y), r + n + t　　FillStyle = 0　　FillCo

62、lor = QBColor(Rnd * 15)　　Circle (x - 1.5 * r + d, y - 1.5 * r + a), 1.6 * r　　Circle (x - 1.5 * r + d, y + 1.5 * r + a), 1.6 * r　　Circle (x + 1.5 * r + d, y -

63、 1.5 * r + a), 1.6 * r　　Circle (x + 1.5 * r + d, y + 1.5 * r + a), 1.6 * r　　Circle (x + d, y + a), r　　FillStyle = 0　　FillColor = QBColor

64、(Rnd * 15)　　Circle (x - 1.5 * (r + n) + a, y - 1.5 * (r + n) + e), 1.6 * (r + n)　　Circle (x - 1.5 * (r + n) + a, y + 1.5 * (r + n) + e), 1.6 * (r + n)　　Circl

65、e (x + 1.5 * (r + n) + a, y - 1.5 * (r + n) + e), 1.6 * (r + n)　　Circle (x + 1.5 * (r + n) + a, y + 1.5 * (r + n) + e), 1.6 * (r + n)　　FillColor = QBColor(Rnd * 10)&l

66、t;p>　　Circle (x + a, y + e), r + n　　End Sub　?。ㄕf明：與一朵花方法類似，通過x%, y%及Rnd函數(shù)使圖形的位置隨機(jī)出現(xiàn)，通過r%及Rnd函數(shù)使圖形大小隨意變化，但應(yīng)注意a%, b%, c%, d%, e%, f%, g%, h%, i%, j%的組合規(guī)律）</

67、p>　　一圓環(huán)　　Private Sub Command3_Click()　　Cls　　FillStyle = 1　　Dim r%, x%, y%

68、　　r = 200 + Rnd * 1300　　DrawWidth = 3 + 0.001 * r　　x = 1900 + Int(Rnd * 4000): y = 1300 + Int(Rnd * 4000)　　Circle (x, y), r, QBColor(Rnd * 15)</

69、p>　　End Sub　?。ㄕf明：注意FillStyle = 1，否則圓中區(qū)域并非透明。）　　十圓環(huán)　　Private Sub Command4_Click()<

70、b>　　Cls　　FillStyle = 1　　Dim i%, j%, k%, l%, m%, n%, o%, q%, r%, x%, y%　　r = 300 + Rnd * 1500　　DrawWidth = 3 + 0.001 * r<

71、/p>　　x = 2000 + Int(Rnd * 4000): y = 1000 + Int(Rnd * 4000): i = 1000 + Rnd * 3000: j = 1000 + Rnd * 3000: k = 800 + Rnd * 3000: l = 800 + Rnd * 3000: m = 800 + Rnd * 3000: n = 800 + Rnd * 3000: o = 800 + R

72、nd * 3000: q = 800 + Rnd * 3000: z = 800 + Rnd * 3000:　　Circle (x, y), r　　Circle (x + i, y + j), Rnd * 1 * r, QBColor(Rnd * 15)　　Circle (x + j, y + k), Rnd *

73、 1.1 * r, QBColor(Rnd * 15)　　Circle (x + k, y + l), Rnd * 1.2 * r, QBColor(Rnd * 15)　　Circle (x + l, y + m), Rnd * 1.3 * r, QBColor(Rnd * 15)　　Circle (x + m,

74、 y + n), Rnd * 1.4 * r, QBColor(Rnd * 15)　　Circle (x + n, y + o), Rnd * 1.5 * r, QBColor(Rnd * 15)　　Circle (x + o, y + P), Rnd * 1.6 * r, QBColor(Rnd * 15)

75、Circle (x + P, y + z), Rnd * 1.7 * r, QBColor(Rnd * 15)　　Circle (x + z, y + i), Rnd * 1.8 * r, QBColor(Rnd * 15)　　End Sub　　Private Sub Com

76、mand5_Click()　　Cls　　Dim x As Integer, y As Integer, r As Integer, l As Integer　　DrawWidth = 3　　x = 2000 + Rnd * 6000:

77、 y = 1200 + Rnd * 6000: r = 100 + Rnd * 500　　ForeColor = RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255))　　Line (x, y)-(x + r * 6, y)　　Line (x, y)-(x, y +

78、 r * 6)　　Line (x + r * 6, y)-(x + r * 6, y + r * 6)　　Line (x, y + r * 6)-(x + r * 6, y + r * 6)　　Line (x, y)-(x + r * 1.5 * 1.7, y - r * 3)<p&

79、gt;　　Line (x + r * 1.5 * 1.7, y - r * 3)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3)　　Line (x + r * 6, y)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3)　　Line (x + r * 1.5 * 1.7 + r * 6, y -

80、r * 3)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3 + r * 6)　　Line (x + r * 6, y + r * 6)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3 + r * 6)　　DrawWidth = 3　　x = 1500 +

81、Rnd * 6000: y = 1100 + Rnd * 6000: r = 80 + Rnd * 500　　ForeColor = RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255))　　Line (x, y)-(x + r * 6, y)　　Line (x,

82、y)-(x, y + r * 6)　　Line (x + r * 6, y)-(x + r * 6, y + r * 6)　　Line (x, y + r * 6)-(x + r * 6, y + r * 6)　　Line (x, y)-(x + r * 1.5 * 1.7, y - r * 3)</p&g

83、t;　　Line (x + r * 1.5 * 1.7, y - r * 3)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3)　　Line (x + r * 6, y)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3)　　Line (x + r * 1.5 * 1.7 + r

84、 * 6, y - r * 3)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3 + r * 6)　　Line (x + r * 6, y + r * 6)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3 + r * 6)　　DrawWidth = 3　　x

85、 = 1300 + Rnd * 6000: y = 1100 + Rnd * 6000: r = 50 + Rnd * 500　　ForeColor = RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255))　　Line (x, y)-(x + r * 6, y)

86、　Line (x, y)-(x, y + r * 6)　　Line (x + r * 6, y)-(x + r * 6, y + r * 6)　　Line (x, y + r * 6)-(x + r * 6, y + r * 6)　　Line (x, y)-(x + r * 1.5 * 1.7, y - r *

87、3)　　Line (x + r * 1.5 * 1.7, y - r * 3)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3)　　Line (x + r * 6, y)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3)　　Line (x + r * 1.5

88、 * 1.7 + r * 6, y - r * 3)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3 + r * 6)　　Line (x + r * 6, y + r * 6)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3 + r * 6)　　DrawWidth = 3&l

89、t;p>　　x = 1400 + Rnd * 6000: y = 1300 + Rnd * 6000: r = 50 + Rnd * 500　　ForeColor = RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255))　　Line (x, y)-(x + r * 6, y)

90、　　Line (x, y)-(x, y + r * 6)　　Line (x + r * 6, y)-(x + r * 6, y + r * 6)　　Line (x, y + r * 6)-(x + r * 6, y + r * 6)　　Line (x, y)-(x + r * 1.5 * 1.7

91、, y - r * 3)　　Line (x + r * 1.5 * 1.7, y - r * 3)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3)　　Line (x + r * 6, y)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3)　　Line (x

92、 + r * 1.5 * 1.7 + r * 6, y - r * 3)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3 + r * 6)　　Line (x + r * 6, y + r * 6)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3 + r * 6)　　DrawWidth = 3<

93、/p>　　x = 1400 + Rnd * 6000: y = 1400 + Rnd * 6000: r = 50 + Rnd * 500　　ForeColor = RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255))　　Line (x, y)-(x + r * 6, y)&l

94、t;/p>　　Line (x, y)-(x, y + r * 6)　　Line (x + r * 6, y)-(x + r * 6, y + r * 6)　　Line (x, y + r * 6)-(x + r * 6, y + r * 6)　　Line (x, y)-(x + r *

95、 1.5 * 1.7, y - r * 3)　　Line (x + r * 1.5 * 1.7, y - r * 3)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3)　　Line (x + r * 6, y)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3)

96、;　　Line (x + r * 1.5 * 1.7 + r * 6, y - r * 3)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3 + r * 6)　　Line (x + r * 6, y + r * 6)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3 + r * 6)　　DrawWid

97、th = 3　　x = 1300 + Rnd * 6000: y = 1500 + Rnd * 6000: r = 50 + Rnd * 500　　ForeColor = RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255))　　Line (x, y)-(x + r

98、 * 6, y)　　Line (x, y)-(x, y + r * 6)　　Line (x + r * 6, y)-(x + r * 6, y + r * 6)　　Line (x, y + r * 6)-(x + r * 6, y + r * 6)　　Line (x, y

99、)-(x + r * 1.5 * 1.7, y - r * 3)　　Line (x + r * 1.5 * 1.7, y - r * 3)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3)　　Line (x + r * 6, y)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3)

100、　　Line (x + r * 1.5 * 1.7 + r * 6, y - r * 3)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3 + r * 6)　　Line (x + r * 6, y + r * 6)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3 + r * 6)

101、;　　DrawWidth = 3　　x = 1300 + Rnd * 6000: y = 900 + Rnd * 6000: r = 70 + Rnd * 500　　ForeColor = RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255))　　Line (x,

102、y)-(x + r * 6, y)　　Line (x, y)-(x, y + r * 6)　　Line (x + r * 6, y)-(x + r * 6, y + r * 6)　　Line (x, y + r * 6)-(x + r * 6, y + r * 6)　　L

103、ine (x, y)-(x + r * 1.5 * 1.7, y - r * 3)　　Line (x + r * 1.5 * 1.7, y - r * 3)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3)　　Line (x + r * 6, y)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3)&

104、lt;/p>　　Line (x + r * 1.5 * 1.7 + r * 6, y - r * 3)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3 + r * 6)　　Line (x + r * 6, y + r * 6)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3 + r * 6)

105、　　DrawWidth = 3　　x = 1200 + Rnd * 6000: y = 1000 + Rnd * 6000: r = 80 + Rnd * 500　　ForeColor = RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255))

106、　Line (x, y)-(x + r * 6, y)　　Line (x, y)-(x, y + r * 6)　　Line (x + r * 6, y)-(x + r * 6, y + r * 6)　　Line (x, y + r * 6)-(x + r * 6, y + r * 6)&l

107、t;p>　　Line (x, y)-(x + r * 1.5 * 1.7, y - r * 3)　　Line (x + r * 1.5 * 1.7, y - r * 3)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3)　　Line (x + r * 6, y)-(x + r * 1.5 * 1.7 + r * 6, y

108、 - r * 3)　　Line (x + r * 1.5 * 1.7 + r * 6, y - r * 3)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3 + r * 6)　　Line (x + r * 6, y + r * 6)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3 + r * 6)&

109、lt;/p>　　DrawWidth = 3　　x = 1100 + Rnd * 6000: y = 1500 + Rnd * 6000: r = 70 + Rnd * 500　　ForeColor = RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255))

110、　　Line (x, y)-(x + r * 6, y)　　Line (x, y)-(x, y + r * 6)　　Line (x + r * 6, y)-(x + r * 6, y + r * 6)　　Line (x, y + r * 6)-(x + r * 6, y + r * 6)<

111、/p>　　Line (x, y)-(x + r * 1.5 * 1.7, y - r * 3)　　Line (x + r * 1.5 * 1.7, y - r * 3)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3)　　Line (x + r * 6, y)-(x + r * 1.5 * 1.7

112、+ r * 6, y - r * 3)　　Line (x + r * 1.5 * 1.7 + r * 6, y - r * 3)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3 + r * 6)　　Line (x + r * 6, y + r * 6)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3

113、 + r * 6)　　DrawWidth = 3　　x = 1000 + Rnd * 6000: y = 1600 + Rnd * 6000: r = 70 + Rnd * 500　　ForeColor = RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255))&l

114、t;/p>　　Line (x, y)-(x + r * 6, y)　　Line (x, y)-(x, y + r * 6)　　Line (x + r * 6, y)-(x + r * 6, y + r * 6)　　Line (x, y + r * 6)-(x + r * 6, y +

115、r * 6)　　Line (x, y)-(x + r * 1.5 * 1.7, y - r * 3)　　Line (x + r * 1.5 * 1.7, y - r * 3)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3)　　Line (x + r * 6, y)-(x + r *

116、1.5 * 1.7 + r * 6, y - r * 3)　　Line (x + r * 1.5 * 1.7 + r * 6, y - r * 3)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3 + r * 6)　　Line (x + r * 6, y + r * 6)-(x + r * 1.5 * 1.7 + r * 6,

117、 y - r * 3 + r * 6)　　End Sub　?。ㄕf明：與一個(gè)環(huán)類似，通過x%, y%及Rnd函數(shù)使圖形的位置隨機(jī)出現(xiàn)，通過r%及Rnd函數(shù)使圖形大小隨意變化，但應(yīng)注意a%, b%, c%, d%, e%, f%, g%, h%, i%, j%的組合規(guī)律）<

118、b>　　十正方體　　Private Sub Command5_Click()　　Cls　　Dim x As Integer, y As Integer, r As Integer, l As Integer

眾賞文庫> 全部分類> 畢業(yè)設(shè)計(jì)

溫馨提示

1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內(nèi)容里面會(huì)有圖紙預(yù)覽，若沒有圖紙預(yù)覽就沒有圖紙。
4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
5. 眾賞文庫僅提供信息存儲(chǔ)空間，僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理，對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請(qǐng)與我們聯(lián)系，我們立即糾正。
7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。

vb各種圖形設(shè)計(jì)-課程設(shè)計(jì)報(bào)告

文檔簡(jiǎn)介

溫馨提示

最新文檔

評(píng)論

vb各種圖形設(shè)計(jì)-課程設(shè)計(jì)報(bào)告

文檔簡(jiǎn)介

溫馨提示

最新文檔

評(píng)論

免費(fèi)下載