vb程序設(shè)計(jì)實(shí)訓(xùn)報(bào)告

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

2、簽。實(shí)訓(xùn)3-4 錯(cuò)誤!未定義書(shū)簽。實(shí)訓(xùn)3-5 錯(cuò)誤!未定義書(shū)簽。實(shí)訓(xùn)項(xiàng)目四 “科學(xué)計(jì)數(shù)器”設(shè)計(jì) 錯(cuò)誤 !未定義書(shū)簽。實(shí)訓(xùn)4-1 錯(cuò)誤!未定義書(shū)簽。實(shí)訓(xùn)4-2 錯(cuò)誤!未定義書(shū)簽。實(shí)訓(xùn)項(xiàng)目五 “文本字體”設(shè)置 錯(cuò)誤 !未定義書(shū)簽。實(shí)訓(xùn)5-1 錯(cuò)誤!未定義書(shū)簽。實(shí)訓(xùn)5-2 錯(cuò)誤!未定義書(shū)簽。實(shí)訓(xùn)5-3 錯(cuò)誤!未定義書(shū)簽。實(shí)訓(xùn)5-4 錯(cuò)誤!未定義書(shū)簽。實(shí)訓(xùn)5-5 錯(cuò)誤!未定義書(shū)簽。實(shí)訓(xùn)項(xiàng)目六 圖形設(shè)計(jì) 錯(cuò)誤!未定義書(shū)簽。實(shí)訓(xùn)6-1 錯(cuò)誤!未定義書(shū)簽。實(shí)訓(xùn)6-2 錯(cuò)誤!未定義書(shū)簽。實(shí)訓(xùn)6-3 錯(cuò)誤!未定義書(shū)簽。實(shí)訓(xùn)6-4 錯(cuò)誤!未定義書(shū)簽。實(shí)訓(xùn)6-5 錯(cuò)誤!未定義書(shū)簽。實(shí)訓(xùn)項(xiàng)目一 vb集成開(kāi)發(fā)環(huán)境實(shí)訓(xùn)目

3、的與要求1、能進(jìn)行Visual Basic的啟動(dòng)與推出2、培養(yǎng)Visual Basic的集成開(kāi)發(fā)環(huán)境的簡(jiǎn)單應(yīng)用二、實(shí)訓(xùn)內(nèi)容實(shí)訓(xùn)1-1練習(xí)的啟動(dòng)與退出 (1)啟動(dòng)(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實(shí)訓(xùn)1-2熟悉集成開(kāi)發(fā)環(huán)境的窗口(1)主窗口(2)窗體設(shè)計(jì)器窗口拖動(dòng)窗體設(shè)計(jì)窗口，改變其位置拖動(dòng)窗體設(shè)計(jì)窗口邊框，改變其大小拖動(dòng)窗體設(shè)計(jì)窗口的最小化按鈕，將其縮成圖標(biāo)雙

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

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

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

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ù)實(shí)訓(xùn)2-2使用循環(huán)語(yǔ)句在窗體上輸出由“ *”組成的簡(jiǎn)單圖形，運(yùn)行效果如下圖所示1、頁(yè)面設(shè)置縣工星】 -Microsoft Visual BTc 設(shè)計(jì) 文件(B 師稅圜由工程回 情式調(diào)定Q 運(yùn)行 查通。圉表(1)河金 唱H 0唯 19cl)| |同閨|A國(guó) -II三劇 回金 B o 圄2、編寫(xiě)代碼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、運(yùn)行結(jié)果文件端置視圖M 工程 格式 渭試Q 運(yùn)行因 查詢圖表3工具工】戶般邑弓實(shí)訓(xùn)2-3編寫(xiě)程序，輸入年份，判斷其是否為閏年，并寫(xiě)出具體的設(shè)計(jì)步驟(1)分析：設(shè)N為年份，N為閏年的條件是：能被4整除但不能被100整除； 或能被400整除，寫(xiě)出閏年N用VB表達(dá)式。(2)具體思路：建立兩個(gè)文本框 TextBox和一個(gè)命令按鈕(CommandButton),在Text中輸入任一年份，點(diǎn)擊命

9、令按鈕，則在 Text2中則會(huì)顯示：“是閏年”或“不 是閏年”(3)頁(yè)面設(shè)置：(4)編寫(xiě)代碼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)運(yùn)行結(jié)果實(shí)訓(xùn)2-4解決“白雞百錢”問(wèn)題?！半u翁一，值錢五，雞母一，值錢三，雞雛三，值錢 一；百錢買買白雞，問(wèn)雞翁、雞母、雞雛各幾何”編寫(xiě)程序，給出結(jié)果。1、設(shè)計(jì)思路：設(shè)x、V、z分別表示雞翁、雞母、雞雛的數(shù)目，根據(jù)題意，100錢最多買雞翁20只、買雞母

10、33只雞雛數(shù)為100雞翁數(shù)一雞母數(shù)。寫(xiě)出計(jì)算雞 數(shù)量的判定式為：2、編寫(xiě)代碼：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、運(yùn)行結(jié)果n魯海川冏因母鴆，小雞的數(shù)目分別為： TOC o 1-5 h z 冉1673公鴨，母雞，小的

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

12、單擊窗體，則會(huì)在窗體上顯示當(dāng)前的日期和時(shí)間, 具體界面如下圖所示。1、編寫(xiě)程序代碼Private Sub Form_Click()t = NowPrint Format(t,今天是:& dddddd & hh:mm:ss)End Sub2、運(yùn)行結(jié)果口舌香香雷香香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實(shí)訓(xùn)I 3-2編寫(xiě)一個(gè)程序，在程序中使用數(shù)值格式符，當(dāng)程序運(yùn)行后單擊窗體，則會(huì)在窗 體上顯示結(jié)果如下圖所示1、編寫(xiě)程序代碼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、運(yùn)行結(jié)果(2)屬性設(shè)置Q 魯海川1234.ST 301234.5630 123457%,234 5B8 L2345B8E-t312m4.568 薨金1234.ST 30123,5630 123457%, 234, 5635 1.234568E+3 1234.568 美金實(shí)訓(xùn)I 3-3編寫(xiě)一個(gè)程序，具體為當(dāng)用戶輸入客戶姓名后，單擊輸入框的“確定”按鈕所 輸入內(nèi)容賦值給變量 guest。若用戶單擊輸入框的“取消”按鈕，則變量 guest 的值為空。設(shè)計(jì)思路：使用InputBox函數(shù)輸入客戶姓名。(1)界面設(shè)計(jì)。在窗體上畫(huà)出1個(gè)文本框、2個(gè)命令按鈕。屬性值

15、控件名稱屬性名CommandlCaption”確定”Command2Caption”取消”Textltext(3)填寫(xiě)代碼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)運(yùn)行結(jié)果顯示實(shí)訓(xùn)I 3-4編寫(xiě)一

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

17、Ad h，-：打折后應(yīng)付金額- * -用戶節(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、編寫(xiě)代碼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二購(gòu)物總金額Label2Caption=折后應(yīng)付金額Label3Caption=用戶節(jié)約金額Text1Text=Text2Text=Text3Text=4、運(yùn)行結(jié)果實(shí)訓(xùn)I 3-5編寫(xiě)程序，通過(guò)產(chǎn)生的對(duì)話框輸入學(xué)生的分?jǐn)?shù)，從而判斷學(xué)生是否及格。方法 是：90100分為“優(yōu)秀”，8089分為“良好”

19、，7079分為“中等”，6069分 為“及格”，60分一下為不及格。1、編寫(xiě)程序代碼Private Sub Form_Click()Dim Score As SingleScore = InputBox(輸入分?jǐn)?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、運(yùn)行結(jié)果實(shí)訓(xùn)項(xiàng)目四“科學(xué)計(jì)數(shù)器”設(shè)計(jì)一、實(shí)訓(xùn)目的與要求1、進(jìn)一步熟悉窗體、命令按鈕、標(biāo)簽、文本框是哇屬性、時(shí)間和方法運(yùn)用2、學(xué)會(huì)使用菜單編輯器3、培養(yǎng)VB基本語(yǔ)句的使

20、用二、實(shí)訓(xùn)內(nèi)容實(shí)訓(xùn)4-1編寫(xiě)程序，設(shè)計(jì)一個(gè)簡(jiǎn)易的科學(xué)計(jì)數(shù)器，寫(xiě)出詳細(xì)的設(shè)計(jì)步驟。從鍵盤上輸入每個(gè)學(xué)生的姓名和 3門課程的考試成績(jī)。計(jì)算并輸出么個(gè)學(xué)生的總1、頁(yè)面設(shè)置2、編寫(xiě)代碼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、運(yùn)行結(jié)果實(shí)訓(xùn)4-2設(shè)計(jì)一個(gè)類似于 Windows操作系統(tǒng)附件中“記事本”功能，寫(xiě)出詳細(xì)的設(shè)計(jì) 步驟。1.設(shè)置可視用戶界面：2.設(shè)置代碼屬性：標(biāo)題名稱快捷鍵Visible 屬 Enable 屬性性文件（&F）MNFILETrueTrue新建（&N）FILENEWCtrl+NTr

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

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

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

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

30、式。2、界面設(shè)置3、編寫(xiě)代碼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ú)線網(wǎng)卡ElseQT =無(wú)線鼠標(biāo)End IfEnd IfPP; NC; QTEnd S

31、ubPrivate Sub Form_Load()=False=FalseEnd Sub4、運(yùn)行結(jié)果實(shí)訓(xùn)5-3完成課本例題，并寫(xiě)出詳細(xì)步驟1、設(shè)計(jì)思路：這題是列表框和組合框的綜合應(yīng)用。在窗體上添加相應(yīng)的控件并設(shè)置其屬性。2、界面設(shè)置目魯海川1 F I I I 4 V計(jì)算機(jī)品牌 - I二I :，購(gòu)買數(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、編寫(xiě)代碼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、運(yùn)行結(jié)果實(shí)訓(xùn)I 5-4完成課本例題，并寫(xiě)出詳細(xì)步驟1、設(shè)計(jì)思路：這題需要設(shè)計(jì)一個(gè)調(diào)色板程序，利用滾動(dòng)條作為紅、綠、藍(lán)3種基色的輸入控件,

33、 然后將合成的顏色作為文本框的前景色或背景色。2、界面設(shè)置CZf:紅色分量值:合成俄色.綠邑分里值調(diào)色板像變色龍:藍(lán)色分量值沒(méi)量前導(dǎo)色世詈背墨色3、編寫(xiě)代碼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、運(yùn)行結(jié)果實(shí)訓(xùn)5-5編寫(xiě)程序，模擬 Windows字體對(duì)話框程序?qū)ο嚓P(guān)文本文字進(jìn)行設(shè)置，可以設(shè) 置相關(guān)文字的字體、字形、字號(hào)、字效、前景顏色、背景顏色等。1、設(shè)計(jì)思路：(1)在窗體上添加一個(gè)列表框，來(lái)顯示各種屏幕字體，供用戶選擇(2)在窗體上添加一個(gè)組合列表框，來(lái)顯示各種字形，供用戶選擇(3)創(chuàng)建一個(gè)單選按鈕控件數(shù)組來(lái)顯示各種字號(hào)，供用戶選擇(4)創(chuàng)建一個(gè)復(fù)選框控件數(shù)組來(lái)顯示各種效果，供

35、用戶選擇(5)創(chuàng)建一個(gè)滾動(dòng)條空間數(shù)組來(lái)顯示紅、綠、藍(lán)三種基色，通過(guò)用戶選擇三種基色值，再利用RGB函數(shù)來(lái)調(diào)和生成前景色，再創(chuàng)建一個(gè)滾動(dòng)條控件數(shù)組 來(lái)顯示紅、綠、藍(lán)三種基色，通過(guò)用戶選擇設(shè)置三種基色值，用 RGB函數(shù) 來(lái)調(diào)和生成背景色(6)在窗體上添加一個(gè)標(biāo)簽，來(lái)顯示用戶設(shè)置后的文字效果(7)用七個(gè)框架對(duì)列表框、組合框、單選按鈕控件數(shù)組、復(fù)選框控件數(shù)組、滾動(dòng)條控件數(shù)組、標(biāo)簽等控件進(jìn)行分組(8)分別對(duì)列表框、組合框、單選按 鈕控件數(shù)組、復(fù)選框控件數(shù)組、滾動(dòng)條控件數(shù)組等控件編寫(xiě)單擊事件過(guò)程、 來(lái)具體實(shí)現(xiàn)文字效果的設(shè)置。2、設(shè)置界面&魚(yú)海川正二亙3、編寫(xiě)代碼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、屬性設(shè)置控件名稱屬性及屬性值控件名稱屬性及屬性值Frame1Caption=字體Option1 ( 1)Caption=20 號(hào)字Frame2Caption=字形Option1 ( 2)Caption=30 號(hào)字Frame3Caption=字號(hào)Option1 ( 3)Caption=40 號(hào)字Frame4Caption=效果Check1(0)Caption=下劃線Listl

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

40、ll2(1)Index=1HScroll2(2)Index-2Label3Caption=文本子體設(shè)直效果5、運(yùn)行結(jié)果實(shí)訓(xùn)項(xiàng)目六圖形設(shè)計(jì)一、實(shí)訓(xùn)目的與要求1、學(xué)會(huì)簡(jiǎn)單的圖形對(duì)象繪制及屬性設(shè)置；2、學(xué)會(huì)使用直線控件和Shap控件繪制圖形；3、學(xué)會(huì)控件數(shù)組的運(yùn)用，學(xué)會(huì)添加控件數(shù)組的方法。4、掌握常見(jiàn)繪圖方法5、了解交互繪制的基本原理。二、實(shí)訓(xùn)內(nèi)容實(shí)訓(xùn)6-1完成課本例題，并寫(xiě)出詳細(xì)步驟1、頁(yè)面設(shè)置2、編寫(xiě)代碼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、屬性設(shè)置控件名稱屬性及屬性值控件名稱屬性及屬性值PicturelHeight=2500 width=2600Label3Caption=30SharpelSharp=3 Height=2400 width=2600Label4Caption=45LinelBorderColor=VbRed borderwidth=

42、2Command1Caption=開(kāi)始LabellCaption=0Command2Caption=停止Label2Caption=15Timer1Enabled=FalseInterval=10004、運(yùn)行結(jié)果實(shí)訓(xùn)I 6-2完成課本例題，并寫(xiě)出詳細(xì)步驟1、頁(yè)面設(shè)置/0 希 |1=1 6國(guó)2、編寫(xiě)代碼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、屬性設(shè)置控件名稱屬性及屬性值控件名稱屬性及屬性值PicturelPicture=Command1Caption=MUCommand2Caption=畫(huà)橢圓Command3Caption=畫(huà)弧Command4Caption=畫(huà)扇形4、運(yùn)行結(jié)果百例國(guó)虎出實(shí)訓(xùn)I 6-3在窗體中使用Shap控件，畫(huà)出不同形狀的圖形，寫(xiě)出詳細(xì)步驟。1、設(shè)計(jì)思路窗體中設(shè)置Shap控件和單選按鈕Optionl控件數(shù)組，每次單擊單選按鈕，能看 到對(duì)應(yīng)的形狀。2、頁(yè)面設(shè)置目魯海川3、編寫(xiě)代碼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 =