vb程序設計實訓報告

1、應安徽機電職業(yè)技術學院VB程序設計課程實訓實訓報告系（部）：經(jīng)貿(mào)管理學系班 級： 電商姓 名：指導教師：陳 香2015 2016學年第一學期實訓項目一vb 集成開發(fā)環(huán)境 錯誤 !未定義書簽。實訓1-1 錯誤!未定義書簽。實訓1-2 錯誤!未定義書簽。實訓項目二創(chuàng)建簡單的應用程序 錯誤 !未定義書簽。實訓2-1 錯誤!未定義書簽。實訓2-2 錯誤!未定義書簽。實訓2-3 錯誤!未定義書簽。實訓2-4 錯誤!未定義書簽。實訓2-5 錯誤!未定義書簽。實訓項目三Visual Basic 語言基礎 錯誤!未定義書簽。實訓3-1 錯誤!未定義書簽。實訓3-2 錯誤!未定義書簽。實訓3-3 錯誤!未定義書

2、簽。實訓3-4 錯誤!未定義書簽。實訓3-5 錯誤!未定義書簽。實訓項目四 “科學計數(shù)器”設計 錯誤 !未定義書簽。實訓4-1 錯誤!未定義書簽。實訓4-2 錯誤!未定義書簽。實訓項目五 “文本字體”設置 錯誤 !未定義書簽。實訓5-1 錯誤!未定義書簽。實訓5-2 錯誤!未定義書簽。實訓5-3 錯誤!未定義書簽。實訓5-4 錯誤!未定義書簽。實訓5-5 錯誤!未定義書簽。實訓項目六 圖形設計 錯誤!未定義書簽。實訓6-1 錯誤!未定義書簽。實訓6-2 錯誤!未定義書簽。實訓6-3 錯誤!未定義書簽。實訓6-4 錯誤!未定義書簽。實訓6-5 錯誤!未定義書簽。實訓項目一 vb集成開發(fā)環(huán)境實訓目

3、的與要求1、能進行Visual Basic的啟動與推出2、培養(yǎng)Visual Basic的集成開發(fā)環(huán)境的簡單應用二、實訓內(nèi)容實訓1-1練習的啟動與退出 (1)啟動(2) 退出 單擊vb主窗口右上角的按鈕EE*MI 二十勝土電/1法牙揮腓 .I ； Jr I-Ui.c U - HRI Ai. -h4j 4T尸口!,.-J_1_, _LU *.UQ|-ta-Y-|fWB|-|IV . 選擇“文件”菜單中的“退出”命令按快捷鍵Alt+Q實訓1-2熟悉集成開發(fā)環(huán)境的窗口(1)主窗口(2)窗體設計器窗口拖動窗體設計窗口，改變其位置拖動窗體設計窗口邊框，改變其大小拖動窗體設計窗口的最小化按鈕，將其縮成圖標雙

4、擊窗體設計窗口控制菜單圖標，恢復其原來大小口留利國()(4)工程資源管理器窗口(5)代碼窗口(6)、工具箱窗口| |或一七直| ci(7)、其他窗口立即窗口窗體布局窗口思考題1、詳細敘述各個窗口的主要作用(1)、主窗口：由標題欄、菜單欄和工具欄組成(2)、窗體窗口：是VB應用程序的主要構成部分，是應用程序最終面向用戶的 窗口，應用程序的運行結果最終在窗體中體現(xiàn)。(3)、屬性窗口：設計窗體和窗體中的控件屬性(4)、工程資源管理器窗口：以樹形結構方式列出當前工程中所有文件(5)、代碼窗口：編寫代碼(6)、工具箱窗口：工具箱由各種圖標組成，利用這些工具圖標，用戶可以在窗 體上設計各種控件(7)、其他

5、窗口：包括立即窗口和窗體布局窗口， 立即窗口是為調(diào)試應用程序提 供的，窗體布局窗口用于指定程序運行時窗體相對于顯示屏幕的初始位置以及窗 體之間的相對位置。2、任意舉一個例子來說明VB應用程序開發(fā)的詳細步驟(1)、建立可視用戶界面的對象我會北顯示著星(2)、編寫事件驅(qū)動的代碼Private Sub Command1_Click()=我愛vbEnd SubPrivate Sub Command2_Click()=End Sub(3)、運行和調(diào)試實訓項目二創(chuàng)建簡單的應用程序一、實訓目的和要求1、Visual Basic對象的屬性、方法和時間作用2、練習Visual Basic程序開發(fā)的一般步驟操作3

6、、培養(yǎng)編寫簡單的應用程序二、實訓內(nèi)容實訓2-1設計一個窗體，在窗體上添加一個【確定】命令按鈕，運行程序時，單擊確定 按鈕，在窗體上顯示“你單擊了命令按鈕”，若單擊窗體，在窗體上顯示“你單 擊了窗體”，運行結果如下圖所示1、設計思路：添加一個命令按鈕，兩個標簽并設置其屬性2、頁面設置3、編寫代碼Private Sub Command1_Click()Print 你單擊了命令按鈕End SubPrivate Sub Form_Click()Print 你單擊了窗體End Sub4、運行結果1- M icrcsoft Visual Basic件出 褊痘 視圖州 工程 格式。調(diào)試心 運行的 查渣 圖表

7、 工具 外援隹智方tl-二1 二二. E1盟SQ夏火叫 7777777 n -m-T 二-J- 二.| 二 L |I二L 二-II 二 ,T-m_ - -Jn- 3 自r-fnJ h.-I口 .HIT ir 411 巨官General輸入行數(shù)實訓2-2使用循環(huán)語句在窗體上輸出由“ *”組成的簡單圖形，運行效果如下圖所示1、頁面設置縣工星】 -Microsoft Visual BTc 設計 文件(B 師稅圜由工程回 情式調(diào)定Q 運行 查通。圉表(1)河金 唱H 0唯 19cl)| |同閨|A國 -II三劇 回金 B o 圄2、編寫代碼Private Sub Form_Click()Dim n A

8、s Integer, i%, j% Cls n = Val For i = 1 To nPrint Tab(20);Forj = 1 To i Print *;Next j PrintNext iEnd Sub3、運行結果文件端置視圖M 工程 格式 渭試Q 運行因 查詢圖表3工具工】戶般邑弓實訓2-3編寫程序，輸入年份，判斷其是否為閏年，并寫出具體的設計步驟(1)分析：設N為年份，N為閏年的條件是：能被4整除但不能被100整除； 或能被400整除，寫出閏年N用VB表達式。(2)具體思路：建立兩個文本框 TextBox和一個命令按鈕(CommandButton),在Text中輸入任一年份，點擊命

9、令按鈕，則在 Text2中則會顯示：“是閏年”或“不 是閏年”(3)頁面設置：(4)編寫代碼Private Sub Command1_Click() Dim n As Date n =If n Mod 4 = o And n Mod 100 0 Or n Mod 400 = 0 Then =是閏年Else=不是閏年End IfEnd Sub(5)運行結果實訓2-4解決“白雞百錢”問題。“雞翁一，值錢五，雞母一，值錢三，雞雛三，值錢 一；百錢買買白雞，問雞翁、雞母、雞雛各幾何”編寫程序，給出結果。1、設計思路：設x、V、z分別表示雞翁、雞母、雞雛的數(shù)目，根據(jù)題意，100錢最多買雞翁20只、買雞母

10、33只雞雛數(shù)為100雞翁數(shù)一雞母數(shù)。寫出計算雞 數(shù)量的判定式為：2、編寫代碼：Private Sub Form_Click()Dim x, y, z As IntegerFor x = 1 To 20For y = 1 To 33 z = 100 - x - yIf (x + y + z = 100) And (5 * x + 3 * y + z / 3 = 100) ThenPrint 公雞，母雞，小雞的數(shù)目分別：Print x, y, zEnd IfNext yNext xEnd Sub3、運行結果n魯海川冏因母鴆，小雞的數(shù)目分別為： TOC o 1-5 h z 冉1673公鴨，母雞，小的

11、敷目分別為：81181公嗚，母雞，小的數(shù)目分別為：124S4實訓2-52、編寫程序代碼Private Sub Timer1_Timer()-20If + = 0 Then編寫一個程序，使得程序運行時，在窗體上顯示滾動字幕”歡迎進入奇妙的 VB世界！ ”，運行效果和屬性設置分別見下圖所示，并寫出詳細設計步驟。End IfEnd Sub3、運行結果E3魯海的第一個程序?qū)嵱栱椖咳?Visual Basic語言基礎一、實訓目的與要求1、掌握VB中基本數(shù)據(jù)類型和常用內(nèi)部函數(shù)的使用2、正確使用VB的運算符合表達式在編程中的應用3、熟悉常用的輸入和輸出方法的運用二、實訓內(nèi)容實訓3-1編寫一個程序，程序運行后

12、單擊窗體，則會在窗體上顯示當前的日期和時間, 具體界面如下圖所示。1、編寫程序代碼Private Sub Form_Click()t = NowPrint Format(t,今天是:& dddddd & hh:mm:ss)End Sub2、運行結果口舌香香雷香香B看看香雷雷石天天天天天天天天天天天天天AXXXXXMXMXXXXV魯海川 2CH5年1月8日12:17:鋤 孫牽月汩17：鵬 ZCH5 生 1 月日目 12.17:49 2CH5年1 月 3日 12TL5C 2 m5生1眉目日17:50”5 室1 月 8日 12:17:51 20151 S8B 12:17:51 RL5軍1月弓日12：

13、 17:51 2 口 L5生I月日日12：1T：或 2015室I 月8日 12：1T：52 2015 年 I 月日日 12:17:52 201541 H3B 12;1T;53 2015C13BE 12；1T;53實訓I 3-2編寫一個程序，在程序中使用數(shù)值格式符，當程序運行后單擊窗體，則會在窗 體上顯示結果如下圖所示1、編寫程序代碼Private Sub Form_Click()Dim x As Singlex =Print Format(x, #.#)Print Format(x,)Print Format(x, #%)Print Format(x, +#,#.#$)Print Format

14、(x, #.#E+)美金)End Sub2、運行結果(2)屬性設置Q 魯海川1234.ST 301234.5630 123457%,234 5B8 L2345B8E-t312m4.568 薨金1234.ST 30123,5630 123457%, 234, 5635 1.234568E+3 1234.568 美金實訓I 3-3編寫一個程序，具體為當用戶輸入客戶姓名后，單擊輸入框的“確定”按鈕所 輸入內(nèi)容賦值給變量 guest。若用戶單擊輸入框的“取消”按鈕，則變量 guest 的值為空。設計思路：使用InputBox函數(shù)輸入客戶姓名。(1)界面設計。在窗體上畫出1個文本框、2個命令按鈕。屬性值

15、控件名稱屬性名CommandlCaption”確定”Command2Caption”取消”Textltext(3)填寫代碼Private Sub Form_Click()Dim sl As String, s2 As String, s3 As String, guest As Stringsi = InputBox(情輸入客戶姓名)s2 = InputBox(輸入后按回車鍵)s3 = InputBox(或單擊確定按鈕)guest = InputBox(s1 + Chr(13) + s2 + Chr(10) + s3俞人客戶姓名 丁張玉生) End Sub(4)運行結果顯示實訓I 3-4編寫一

16、個購物打折程序！要求：程序運行后當輸入購物金額時，自動計算出折 后金額！題目自擬，打折規(guī)則自擬，并寫出詳細的設計步驟。商場舉辦慶“十一”購物促銷活動，根據(jù)購買武平總價格的不同，可以獲得不同 的優(yōu)惠條件。具活動如下：(1)總價格在500元一下不享受優(yōu)惠(2)總價在500元(含500元)以上且小于2000元者，給予10%的優(yōu)惠。(3)總價在2000元(含2000元)4000元者，給予12%的優(yōu)惠。(4)總價在4000元(含4000元)6000元者，給予14%的優(yōu)惠。(5)總價在6000元(含6000元)以上者，給予15%的優(yōu)惠。1、頁面設置3、屬性設置3、屬性設置n售海i-JB：購物總金額d ii

17、Ad h，-：打折后應付金額- * -用戶節(jié)約金額I 14 l!i h i aT ， m .a a BBB W!IIIH， B a | =r | 回- - - -i h 1 i m h 1 b .-&FT,II. . .j.|BBm.B -一 ，占4、 * L -1. L-bJi - i.J-2、編寫代碼Private Sub Text1_KeyPress(KeyAscii As Integer)Dim Price As SinglePrice = ValIf KeyAscii = 13 ThenSelect Case PriceCase Is 500=Price=0Case Is 2000=

18、Price *=Price * (1 -Case Is 4000=Price *=Price * (1 -Case Is 6000=Price *=Price * (1 -Case Else=Price *=Price * (1 -End SelectEnd IfEnd SubLabel1Caption二購物總金額Label2Caption=折后應付金額Label3Caption=用戶節(jié)約金額Text1Text=Text2Text=Text3Text=4、運行結果實訓I 3-5編寫程序，通過產(chǎn)生的對話框輸入學生的分數(shù)，從而判斷學生是否及格。方法 是：90100分為“優(yōu)秀”，8089分為“良好”

19、，7079分為“中等”，6069分 為“及格”，60分一下為不及格。1、編寫程序代碼Private Sub Form_Click()Dim Score As SingleScore = InputBox(輸入分數(shù))Select Case ScoreCase 90 To 100優(yōu)秀Case 80 To 89良好Case 70 To 79中等Case 60 To 69及格Case Else不及格”End SelectEnd Sub2、運行結果實訓項目四“科學計數(shù)器”設計一、實訓目的與要求1、進一步熟悉窗體、命令按鈕、標簽、文本框是哇屬性、時間和方法運用2、學會使用菜單編輯器3、培養(yǎng)VB基本語句的使

20、用二、實訓內(nèi)容實訓4-1編寫程序，設計一個簡易的科學計數(shù)器，寫出詳細的設計步驟。從鍵盤上輸入每個學生的姓名和 3門課程的考試成績。計算并輸出么個學生的總1、頁面設置2、編寫代碼Dim a As Single, b As Single, z As Integer, y As IntegerPrivate Sub Command1_Click()=Val( + Str(1)End SubPrivate Sub Command10_Click() z = 1 a =0End SubPrivate Sub Command11_Click() z = 2 a =0End SubPrivate Sub C

21、ommand12_Click() z = 3a =0End SubPrivate Sub Command13_Click() z = 4End SubPrivate Sub Command14_Click()= Val( + Str(7)End SubPrivate Sub Command15_Click()= 0a = 0b = 0 x = 0y = 0End SubPrivate Sub Command16_Click()= Val( + Str(4)End SubPrivate Sub Command17_Click() b =If z = 1 Then = a + bIf z = 2

22、Then = a - bIf z = 3 Then = a * bIf z = 4 And b 0 Then = a / bIf z = 6 Then = Sin(a)If z = 7 Then = Tan(a)If z = 8 Then = Cos(a)If z = 9 Then = HexEnd SubPrivate Sub Command18_Click()= Left$, Len - 1)If Len 1 Then= 0End IfEnd SubPrivate Sub Command19_Click() z = 6a =End SubPrivate Sub Command2_Click

23、() = Val( + Str(2)End SubPrivate Sub Command20_Click() z = 7a =End SubPrivate Sub Command21_Click() z = 8 a =End SubPrivate Sub Command3_Click() = Val( + Str(5)End SubPrivate Sub Command4_Click() = Val( + Str(8)End SubPrivate Sub Command5_Click() = Val( + Str(0)End SubPrivate Sub Command6_Click() =

24、Val( + Str(3)End SubPrivate Sub Command7_Click() = Val( + Str(6)End SubPrivate Sub Command8_Click() = Val( + Str(9)End SubPrivate Sub Command9_Click() = Str + .3、運行結果實訓4-2設計一個類似于 Windows操作系統(tǒng)附件中“記事本”功能，寫出詳細的設計 步驟。1.設置可視用戶界面：2.設置代碼屬性：標題名稱快捷鍵Visible 屬 Enable 屬性性文件（&F）MNFILETrueTrue新建（&N）FILENEWCtrl+NTr

25、ueTrue打開（&O）FILEOPENCtrl+OTrueTrue保存（&S）FILESAVECTRL+STrueFALSE另保存（&A）FILESAVEASTrueFALSE關閉（&C）FILECOLSETrueFALSE.打?。?p）FILEPRINTCTRL+PTrueFALSE退出（&X）MNEXITTrueTrue編輯（ &E）EDITTrueTrue剪切（&U）EITCUTCTRL+XTrueFALSE復制（&C）EDITCOPYCTRL+CTrueFALSE粘貼（&P）EDITPASTECTRL+VTrueFALSE查找與替換EDITFOUNDTrueFALSE（&F）塊寫文件

26、EDITWRITECTRL+WTrueFALSE（ &w ）插入文件（&R）EDITREADCTRL+RTrueTrue格式（&S）MNUFTrueTrue字體FONTCTRL+FTrueTrue段落PARAGTrueTrue工具（ &T）TOOLTrueTrue.統(tǒng)計TOOL_VIEW復選屬性為 TRUE工具欄TOOL_BAR復選屬性為 TRUE狀態(tài)欄TOOL_STATUTrueTrue.選項TOOL_OPTTrueTrue窗口（ &W ）WIND只能有一個窗口列表菜單排列窗口ARANGETrueTrue重疊窗口OVERLAYTrueTrue幫助（ &H）HELPTrueTrue幫助主題HE

27、LPTOPICCTRL+HTrueTrue關于記事本HELPABOUTTrueTrue3. 運行和調(diào)試程序：實訓項目五“文本字體”設置一、實訓目的與要求1、熟悉選擇類控件與框架的屬性、事件及方法控件的應用2、熟悉列表類控件的屬性、事件和方法以及控件的應用3、培養(yǎng)運用所學相關知識Windows字體對話框程序?qū)ο嚓P文本文字進行設置二、實訓內(nèi)容實訓5-1完成課本例題，并寫出詳細步驟1、設計思路：在窗體上添加1個文本框、3個框架、6個單選按鈕和3個復選框，并進行相應 的屬性設置。2、界面設置g魯海JI字型憒斜加粗 r下戈域子弓r 1r E4r zb程序設計皇訛載字字儂翼體親體幼圖3、編寫程序代碼Pri

28、vate Sub Option1_Click(Index As Integer)Select Case IndexCase 0=黑體=宋體=呦圓End SelectEnd SubPrivate Sub Check1_Click(Index As Integer) Select Case IndexCase 0=Not=Not=NotEnd SelectEnd SubPrivate Sub Option2_Click(Index As Integer) Select Case IndexCase 0=18Case 1=24Case 2=28End SelectEnd Sub屬性設置控件名稱屬性及

29、屬性值空間名稱屬性及屬性值Textl程序設計基礎Frame2Caption=字號FramelCaption=字體Option1Caption=黑體Frame2Caption=字型Option2Caption=宋體Option3Caption=幼圓Check2Caption=加粗Check1Caption=斜體Check3Caption=下劃線Option5Caption=18Option6Caption=24Option7Caption=284、運行結果實訓5-2完成課本例題.并寫出詳細步驟。1、設計思路：在上面的例 7-1中，框架內(nèi)的單選按鈕和復選框使用的是控件數(shù) 組。本例將使用普通控件的方

30、式。2、界面設置3、編寫代碼Private Sub Check1_Click()=Not=NotEnd SubPrivate Sub Command1_Click()Dim PP As String, NC As String, QT As StringIf Option1 ThenPP =方正Elself = True ThenPP =聯(lián)想ElsePP =噫普End IfIf Option4 ThenNC = 1GElseNC = 2GEnd IfIf = 1 ThenIf Option6 ThenQT =無線網(wǎng)卡ElseQT =無線鼠標End IfEnd IfPP; NC; QTEnd S

31、ubPrivate Sub Form_Load()=False=FalseEnd Sub4、運行結果實訓5-3完成課本例題，并寫出詳細步驟1、設計思路：這題是列表框和組合框的綜合應用。在窗體上添加相應的控件并設置其屬性。2、界面設置目魯海川1 F I I I 4 V計算機品牌 - I二I :，購買數(shù)量 -: I:二： TOC o 1-5 h z 4& Ik ad l a Ia & a. aaL，rrL，rL，frL，rL，-frL，rL，-frL，rr，-frL，-r，-frL，-r，-frh = bhPTh賴安裝操作系統(tǒng) 1 :二；：；二.二-List!- -廠安裝;5:：r findsws

32、 2000：二：,：r Kind。n EDOT : 礴定3、編寫代碼Private Sub Check1_Click()=Not=NotEnd SubPrivate Sub Command1_Click()If = 1 ThenIf = True ThenEnd IfIf Option2 ThenEnd IfEnd IfEnd SubPrivate Sub Form_Load()聯(lián)想IBM戴爾忠日=05080100=0=False=FalseEnd Sub4、運行結果實訓I 5-4完成課本例題，并寫出詳細步驟1、設計思路：這題需要設計一個調(diào)色板程序，利用滾動條作為紅、綠、藍3種基色的輸入控件,

33、 然后將合成的顏色作為文本框的前景色或背景色。2、界面設置CZf:紅色分量值:合成俄色.綠邑分里值調(diào)色板像變色龍:藍色分量值沒量前導色世詈背墨色3、編寫代碼Dim red, green, blue As LongPrivate Sub Command1_Click()End SubPrivate Sub Command2_Click()End SubPrivate Sub HScroll1_Change() red =green =blue =RGB(red, green, blue)End SubPrivate Sub HScroll2_Change() red =green =blue =

34、RGB(red, green, blue)End SubPrivate Sub HScroll3_Change() red =green =blue =RGB(red, green, blue)End Sub4、運行結果實訓5-5編寫程序，模擬 Windows字體對話框程序?qū)ο嚓P文本文字進行設置，可以設 置相關文字的字體、字形、字號、字效、前景顏色、背景顏色等。1、設計思路：(1)在窗體上添加一個列表框，來顯示各種屏幕字體，供用戶選擇(2)在窗體上添加一個組合列表框，來顯示各種字形，供用戶選擇(3)創(chuàng)建一個單選按鈕控件數(shù)組來顯示各種字號，供用戶選擇(4)創(chuàng)建一個復選框控件數(shù)組來顯示各種效果，供

35、用戶選擇(5)創(chuàng)建一個滾動條空間數(shù)組來顯示紅、綠、藍三種基色，通過用戶選擇三種基色值，再利用RGB函數(shù)來調(diào)和生成前景色，再創(chuàng)建一個滾動條控件數(shù)組 來顯示紅、綠、藍三種基色，通過用戶選擇設置三種基色值，用 RGB函數(shù) 來調(diào)和生成背景色(6)在窗體上添加一個標簽，來顯示用戶設置后的文字效果(7)用七個框架對列表框、組合框、單選按鈕控件數(shù)組、復選框控件數(shù)組、滾動條控件數(shù)組、標簽等控件進行分組(8)分別對列表框、組合框、單選按 鈕控件數(shù)組、復選框控件數(shù)組、滾動條控件數(shù)組等控件編寫單擊事件過程、 來具體實現(xiàn)文字效果的設置。2、設置界面&魚海川正二亙3、編寫代碼Private Sub Check1_Cli

36、ck(Index As Integer)If Check1(0).Value = 1 Then=TrueElse=FalseEnd IfIf Check1.Value = 1 Then=TrueElse=FalseEnd IfEnd SubPrivate Sub Combo1_Click()Select CaseCase 常規(guī)=False=FalseCase 傾斜=False=TrueCase 加粗=True=FalseCase 加粗傾斜= True= TrueEnd SelectEnd SubPrivate Sub Form_Load()Dim I%For I = 0 To - 1(I)Ne

37、xt I 常規(guī) 傾斜 加粗 加粗傾斜O(jiān)ption1(0).Value = TrueEnd SubPrivate Sub HScroll1_Change(Index As Integer)= RGB(HScroll1(0).Value, HScroll1(1).Value, HScroll1(2).Value) End SubPrivate Sub HScroll2_Change(Index As Integer)= RGB(HScroll2(0).Value, HScroll2(1).Value, HScroll2(2).Value) End SubPrivate Sub List1_Clic

38、k()End SubPrivate Sub Option1_Click(Index As Integer) Select Case IndexCase 0= 10= 20= 30= 40End SelectEnd Sub4、屬性設置控件名稱屬性及屬性值控件名稱屬性及屬性值Frame1Caption=字體Option1 ( 1)Caption=20 號字Frame2Caption=字形Option1 ( 2)Caption=30 號字Frame3Caption=字號Option1 ( 3)Caption=40 號字Frame4Caption=效果Check1(0)Caption=下劃線Listl

39、1 x”List=Check1(1)Caption=刪除線CombollCombol=”Frame5Caption=字體顏色Option1(0)Caption=10 號字Frame6Caption-背景顏色Label1(0)Caption=紅色值Label2(1)Caption=綠色值Label1(1)Caption=綠色值Label2(2)Caption-藍色值Label1(2)Caption=藍色值HScroll1(1)Index-1Label2(0)Caption=紅色值HScroll1(2)Index-2HScroll1(3)Index=0HScroll2(0)Index-0HScro

40、ll2(1)Index=1HScroll2(2)Index-2Label3Caption=文本子體設直效果5、運行結果實訓項目六圖形設計一、實訓目的與要求1、學會簡單的圖形對象繪制及屬性設置；2、學會使用直線控件和Shap控件繪制圖形；3、學會控件數(shù)組的運用，學會添加控件數(shù)組的方法。4、掌握常見繪圖方法5、了解交互繪制的基本原理。二、實訓內(nèi)容實訓6-1完成課本例題，并寫出詳細步驟1、頁面設置2、編寫代碼Private Sub Command1_Click() =TrueEnd SubPrivate Sub Command2_Click() =FalseEnd SubPrivate Sub Fo

41、rm_Load()=1000=False(-1, 1)-(1,-1)=0: = 0=0:=vbRedarph = 0End SubPrivate Sub Timer1_Timer()arph = arph + / 30=* Cos(arph)=* Sin(arph)End Sub3、屬性設置控件名稱屬性及屬性值控件名稱屬性及屬性值PicturelHeight=2500 width=2600Label3Caption=30SharpelSharp=3 Height=2400 width=2600Label4Caption=45LinelBorderColor=VbRed borderwidth=

42、2Command1Caption=開始LabellCaption=0Command2Caption=停止Label2Caption=15Timer1Enabled=FalseInterval=10004、運行結果實訓I 6-2完成課本例題，并寫出詳細步驟1、頁面設置/0 希 |1=1 6國2、編寫代碼Private Sub Command1_Click()= 0= QBColor(Int(rand * 15)(Int(rand * , Int(rand * ), 100End SubPrivate Sub Command2_Click()= 0= QBColor(Int(rand * 15)a

43、 = 3(100, 500), 200, , , , a(400, 500), 200, , , , a / 2(900, 500), 200, , , , a / 3(1400, 500), 200, , , , a / 4(1900, 500), 200, , , , a / 5End SubPrivate Sub Command3_Click()= 2= QBColor(Int(rand * 15)a = 3: pi = TOC o 1-5 h z (400, 300), 200, , pi / 2,* pi(1000, 300), 200, , pi / 2, 0(1600, 300)

44、, 200, , 0, * pi(1000, 600), 200, , pi * ,* pi(1400, 500), 200, , pi * ,* piEnd SubPrivate Sub Command4_Click()pi = 0= 2= vbRed(1200, 500), 300, vbRed, -pi / 3, -pi= vbBlue(1200, 500), 300, vbBlue, -pi, -pi * 5 / 3= vbYellow(1200, 500), 300, vbYellow, -pi * 5 / 3, -pi / 3= QBColor(Int(rand * 15)(600

45、, 300), 300, vbBlue, -pi, * piEnd SubPrivate Sub Form_Load()(0, 0)-(2000, 1000)End Sub3、屬性設置控件名稱屬性及屬性值控件名稱屬性及屬性值PicturelPicture=Command1Caption=MUCommand2Caption=畫橢圓Command3Caption=畫弧Command4Caption=畫扇形4、運行結果百例國虎出實訓I 6-3在窗體中使用Shap控件，畫出不同形狀的圖形，寫出詳細步驟。1、設計思路窗體中設置Shap控件和單選按鈕Optionl控件數(shù)組，每次單擊單選按鈕，能看 到對應的形狀。2、頁面設置目魯海川3、編寫代碼Private Sub Form_Load()Dim a(5), ia(0)=矩形a(1)=正方形a(2)=橢圓形a(3)=圓形a(4)=圓角矩形a(5)=圓角正方形Option1(0).Caption = 0 & : & a(0)For i = 1 To 5Load Option1(i)Option1(i).Top =