VB程序設(shè)計(jì)實(shí)驗(yàn)報告

1、湖北文理學(xué)院VB程序設(shè)計(jì)課程實(shí)驗(yàn)報告學(xué) 院 物電學(xué)院 專 業(yè) 自動化 班 級 1211 學(xué) 號 2012118064 姓 名 王亮 任課教師 王福林 實(shí)驗(yàn)一、VB控制結(jié)構(gòu)一、實(shí)驗(yàn)?zāi)康?1. 掌握選擇語句的使用2. 掌握循環(huán)語句的使用二、實(shí)驗(yàn)內(nèi)容 1、選擇語句程序1：創(chuàng)建應(yīng)用程序。要求：單擊窗體可彈出輸入框，任意輸入三個數(shù)，然后按從小到大的順序輸出到窗體上。程序2：創(chuàng)建應(yīng)用程序。要求：單擊窗體可彈出一輸入框，任意輸入一個正整數(shù)，在窗體上顯示該整數(shù)是否為素數(shù)的字樣。2、循環(huán)語句程序3：創(chuàng)建應(yīng)用程序。要求：單擊窗體可顯示一個由“*”組成的平行四邊形圖案。 程序4：創(chuàng)建應(yīng)用程序，其功能是顯示所有的水仙

2、花數(shù)。三、實(shí)驗(yàn)記錄程序1如下：Private Sub Command1_Click()Dim a As Integer, b As Integer, c As Integer, t As Integer '定義a,b,c,t為整形變量Cls '清屏a = Val(InputBox("請輸入第1個數(shù)：") '給a賦值b = Val(InputBox("請輸入第2個數(shù)：") '給b賦值c = Val(InputBox("請輸入第3個數(shù)：") '給c賦值If a > b Then t = a:

3、a = b: b = t '如果a>b，把a(bǔ)的值賦給t，b的值賦給a，t的值賦給bIf b > c Then '嵌套，如果b>ct = b: b = c: c = t '把b的值賦給t，b的值賦給c，t的值賦給cIf a > b Then '再次嵌套，如果a>bt = a '把a(bǔ)的值賦給ta = b 'b的值賦給ab = t 't的值賦給bEnd IfEnd IfPrint a; "、" b; "、" c '輸出 a "、"b;"、

4、" cEnd SubPrivate Sub Command2_Click()End '退出程序End Sub程序2如下：Private Sub Command1_Click()Dim i As Integer, k As Integer, n As Integer '定義整形變量i,k,nn = Val(InputBox("任意輸入一個整數(shù)：") '給n輸入值i = 2 'i初始值為2k = Int(n / 2) '為整形的二分之一n的值賦給kDo While i <= k '當(dāng)i小于且等于kIf n Mod

5、i = 0 Then '如果n模除i為0Exit Do '退出循環(huán)Elsei = i + 1 '否則i加1End IfLoopIf i > k Then Print n; "是素數(shù)" Else Print n; "不是素數(shù)" '如果i大于k，輸出n的值是素數(shù)，否則輸出n的值不是素數(shù)End SubPrivate Sub Command2_Click()End ' 退出程序End Sub程序3如下：Private Sub Form_Click() Dim m As Integer, n As Integer &#

6、39;定義整形變量m,n Cls '清屏 Print For m = 1 To 6 'm賦初始值為1，當(dāng)m大于6停止 Print Tab(15 - m); '第15 - m列開始輸出 For n = 1 To 8 'n賦初始值為1，當(dāng)n大于6停止 Print "*" '輸出* Next n Print "" '輸出空格 Next mEnd Sub程序4如下：Private Sub Command1_Click() Dim i As Integer, m As Integer, n As Integer, k

7、 As Integer, sxh As Intege '定義整形變量i,m,n,k,sxk For i = 100 To 999 'i賦初始值為100，當(dāng)i大于999，停止循環(huán) m = i 100 'i除以100，結(jié)果賦給m n = (i Mod 100) 10 'i模除100后的值再除以10,最后結(jié)果賦給n k = i Mod 10 'i模除10后的值賦給k sxh = m 3 + n 3 + k 3 'sxh作算術(shù)運(yùn)算 If sxh = i Then '如果sxh等于i Print i, '輸出i的值 End If Next

8、iEnd SubPrivate Sub Command2_Click() End '程序結(jié)束End Sub4、 實(shí)驗(yàn)總結(jié)實(shí)驗(yàn)二、窗體和標(biāo)準(zhǔn)控件一、實(shí)驗(yàn)?zāi)康?1.掌握命令按鈕、標(biāo)簽及文本框控件的使用方法2.掌握復(fù)選框、單選按鈕及框架控件的使用方法3.掌握列表框和組合框控件的使用方法4.掌握滾動條和定時器控件的使用方法二、實(shí)驗(yàn)內(nèi)容 1、命令按鈕、標(biāo)簽及文本框控件的使用方法程序1：在窗體上建立兩個標(biāo)簽、兩個文本框和兩個命令按鈕，運(yùn)行界面如左圖所示。要求在運(yùn)行時，兩個文本框中的內(nèi)容均不允許用戶編輯；如果用戶在“原文”的文本框中選定所需的內(nèi)容，單擊“復(fù)制”命令按鈕，則在“輸出”文本框中輸出選定的

9、內(nèi)容；如果單擊“結(jié)束”命令按鈕，則結(jié)束程序的運(yùn)行。程序2：建立如下圖所示的窗體，要求程序能對輸入的“性別”和“郵政編碼”、“電話號碼”進(jìn)行校驗(yàn)（性別只允許輸入“男”或“女”，郵政編碼必須是6位數(shù)字，電話號碼必須是8位數(shù)字）。如果輸入的數(shù)據(jù)不符號要求，則清空相應(yīng)的文本框，并將插入點(diǎn)置于該框中。所有的校驗(yàn)工作可以在單擊“退出”按鈕后進(jìn)行，此時，程序檢查所有文本框，如有空白或內(nèi)容錯誤，要求繼續(xù)輸入，否則結(jié)束程序。2、復(fù)選框、單選按鈕及框架控件的使用程序3：在窗體中有一個標(biāo)簽，內(nèi)有若干文字，要求通過窗體中的復(fù)選框或單選按鈕確定標(biāo)簽中文字的字體（宋體或黑體）、字號（10號或12號）和字形（是否粗體、是否

10、斜體），請建立應(yīng)用程序。3、列表框和組合框控件的使用程序4：編寫程序。要求：程序運(yùn)行初期，在窗體左邊的列表框中生成10個由小到大排列的10到100之間的隨機(jī)整數(shù)，單擊窗體中“右移”按鈕，則左邊列表框的10個數(shù)移動到右邊的列表框中，并由大到小排列，此時“左移”按鈕變?yōu)橛行?。單擊“左移”按鈕，右邊列表框中的數(shù)又被移到左邊的列表框中。單擊“退出”按鈕或按ESC鍵，可退出程序。窗體示意圖如下。程序5：建立應(yīng)用程序，窗體如下圖所示，有一個簡單組合框、三個命令按鈕、一個文本框和一個標(biāo)簽。要求：l 單擊“添加”按鈕可將輸入的內(nèi)容添加到組合框中l(wèi) 單擊“刪除”按鈕可刪除組合框中選定的項(xiàng)目l 單擊“統(tǒng)計(jì)人數(shù)”按

11、鈕，可將組合框中的項(xiàng)目總數(shù)輸出到右邊的文本框l 單擊“退出”或按ESC鍵退出程序 4、滾動條和定時器控件的使用程序6：編寫程序，運(yùn)行時的界面如下圖所示。要求：無論是拖動滾動條上的滾動框，還是單擊滾動箭頭（數(shù)值遞增或遞減1）或滾動條（數(shù)值遞增或遞減10），均可以在相應(yīng)的標(biāo)簽中反映當(dāng)前數(shù)值，并動態(tài)計(jì)算出均值；單擊“Reset”按鈕，可將各滾動條上的滾動框復(fù)位。 程序7：利用定時器控件設(shè)計(jì)一個數(shù)字式時鐘應(yīng)用程序。三、實(shí)驗(yàn)記錄程序1如下：Private Sub Form_Load() Text1.Text = "文本框是一個多功能控件，可以顯示或者接收用戶輸入的文本信息。" 

12、9;給文本框指定內(nèi)容End SubPrivate Sub Command1_Click() Text2.Text = Text1.SelText '在Text1中選定文本賦給Text2End SubPrivate Sub Command2_Click() End '程序結(jié)束End Sub程序2如下：Private Sub Command1_Click() If Text1 = "" Then '如果Text1沒有輸入，當(dāng)前的激活文本區(qū)（焦點(diǎn)）在Text1 Text1.SetFocus Exit Sub '退出過程 End If If Text

13、2 = "" Then '如果Text2沒有輸入，當(dāng)前的激活文本區(qū)（焦點(diǎn)）在Text2 Text2.SetFocus Exit Sub '退出過程 End If If Text3 = "" Then '如果Text3沒有輸入，當(dāng)前的激活文本區(qū)（焦點(diǎn)）在Text3 Text3.SetFocus Exit Sub '退出過程 End If If Text4 = "" Then '如果Text4沒有輸入，當(dāng)前的激活文本區(qū)（焦點(diǎn)）在Text4 Text4.SetFocus Exit Sub '退

14、出過程 End If If Text5 = "" Then '如果Text5沒有輸入，當(dāng)前的激活文本區(qū)（焦點(diǎn)）在Text5 Text5.SetFocus Exit Sub '退出過程 End If End '退出程序End SubPrivate Sub Text2_LostFocus() If Text2.Text <> "" Then '如果Text2有輸入If Text2.Text <> "男" And Text2.Text <> "女" Th

15、en '如果Text2輸入的內(nèi)容不是“男”和“女” Text2.Text = "" '則Text2不輸出 Text2.SetFocus '當(dāng)前的激活文本區(qū)（焦點(diǎn)）在Text2 End If End IfEnd SubPrivate Sub Text4_LostFocus() If Text4.Text <> "" Then '如果Text4有輸入If Len(Text4.Text) <> 6 Or Not IsNumeric(Text4.Text) Then '如果Text4輸入的內(nèi)容不是數(shù)

16、值或者字符串的長度不為6 Text4.Text="" '則Text4不輸出 Text4.SetFocus '當(dāng)前的激活文本區(qū)（焦點(diǎn)）在Text4 End If End IfEnd SubPrivate Sub Text5_LostFocus() If Text5.Text <> "" Then '如果Text5有輸入If Len(Text5.Text) <> 8 Or Not IsNumeric(Text5.Text) Then '如果Text5輸入的內(nèi)容不是數(shù)值或者字符串的長度不為8 Text5.

17、Text="" '則Text5不輸出 Text5.SetFocus '當(dāng)前的激活文本區(qū)（焦點(diǎn)）在Text5 End If End IfEnd Sub程序3界面設(shè)計(jì)(程序設(shè)計(jì)界面和運(yùn)行結(jié)果界面)：程序3如下：Private Sub Option1_Click()Text1.FontName = "宋體" 'Text1中的內(nèi)容為宋體End SubPrivate Sub Option2_Click()Text1.FontName = "黑體" 'Text1中的內(nèi)容為黑體End SubPrivate Sub O

18、ption3_Click()Text1.FontSize = 10 'Text1中的內(nèi)容為字號大小為10號End SubPrivate Sub Option4_Click()Text1.FontSize = 12 'Text1中的內(nèi)容為字號大小為12號End SubPrivate Sub Check1_Click()If Check1.Value = 1 Then '如果Check1被選中Text1.FontBold = True 'Text1中的內(nèi)容變?yōu)榇煮wElseText1.FontBold = False 'Text1中的內(nèi)容不變End IfEnd

19、 SubPrivate Sub Check2_Click()If Check2.Value = 1 Then '如果Check2被選中Text1.FontItalic = True 'Text1中的內(nèi)容變?yōu)樾斌wElseText1.FontItalic = False 'Text1中的內(nèi)容不變End IfEnd Sub程序4如下：Private Sub Command1_Click() Dim i As Integer, Last As Integer '定義i和Last為整型變量 Last = List1.ListCount - 1 '將List1.Li

20、stCount - 1 中被選中的內(nèi)容賦給Last For i = 0 To Last '統(tǒng)計(jì)i大于Last 時停止循環(huán)List2.AddItem List1.List(Last - i) '將List2中被選中的內(nèi)容添加到List1中 List1.RemoveItem Last - i '將List1中被選中的內(nèi)容刪除Last - i個 Next i Command1.Enabled = False 'Command1按鈕無效 Command2.Enabled = True 'Command2按鈕有效End SubPrivate Sub Command

21、2_Click() Dim i As Integer, Last As Integer '定義i和Last為整型變量Last = List2.ListCount - 1 '將List2.ListCount - 1 中被選中的內(nèi)容賦給LastFor i = 0 To Last '統(tǒng)計(jì)i大于Last 時停止循環(huán)List1.AddItem List2.List(Last - i) '將List1中被選中的內(nèi)容添加到List2List2.RemoveItem Last - i '將List2中被選中的內(nèi)容刪除Last - i個 Next i Command1.E

22、nabled = True 'Command1按鈕有效 Command2.Enabled = False 'Command2按鈕無效End SubPrivate Sub Command3_Click() Unload Me '程序退出End SubPrivate Sub Form_Load() Dim i As Integer For i = 0 To 9 '統(tǒng)計(jì)i大于9 時停止循環(huán) Randomize List1.AddItem Int(90 * Rnd) + 10) '給List1中添加內(nèi)容 Next iEnd Sub程序5如下：Private Su

23、b Combo1_Change() If Combo1.Text <> "" Then '如果Combo1輸入內(nèi)容不為空 Command1.Enabled = True 'Command1按鈕點(diǎn)擊有效 Command1.Default = True 'Command1為默認(rèn)按鈕Else Command1.Enabled = False '否則，Command1按鈕點(diǎn)擊無效，成灰色狀態(tài) End IfEnd SubPrivate Sub Combo1_Click() Command2.Enabled = True 'Comma

24、nd2按鈕點(diǎn)擊有效 Command2.Default = True 'Command2為默認(rèn)按鈕 Combo1.SetFocus '賦焦點(diǎn)光標(biāo)在停放Combo1里End SubPrivate Sub Command1_Click() Combo1.AddItem Combo1.Text '添加內(nèi)容到Combo1中 Combo1.Text = "" 'Combo1輸入內(nèi)容為空 Combo1.SetFocus '賦焦點(diǎn)光標(biāo)在停放Combo1里End SubPrivate Sub Command2_Click() x = Combo1.Li

25、stIndex '將Combo1中的內(nèi)容賦給x Combo1.RemoveItem x '將Combo1中的內(nèi)容中的x刪除 If x < Combo1.ListCount Then '如果x小于Combo1.ListCount中的值 Combo1.ListIndex = x '將x中的內(nèi)容賦給Combo1 Else If x > 0 Then '否則，如果x大于0 Combo1.ListIndex = x - 1 'x-1賦給Combo1 Else Command2.Enabled = False '否則，Command2按鈕

26、點(diǎn)擊無效 Command2.Default = False 'Command2不為默認(rèn)按鈕 End If End If Text1.SetFocus '賦焦點(diǎn)光標(biāo)在停放text1里End SubPrivate Sub Command3_Click() Text1.Text = Combo1.ListCount '將Combo1中的內(nèi)容賦給Text1 Combo1.SetFocus '賦焦點(diǎn)光標(biāo)在停放Combo1里End SubPrivate Sub Command4_Click() End '程序結(jié)束End Sub程序6如下：Private Sub Co

27、mmand1_Click() HScroll1.Value = 0 '將數(shù)值0賦給滾動條HScroll1 HScroll2.Value = 0 '將數(shù)值0賦給滾動條HScroll2 HScroll3.Value = 0 '將數(shù)值0賦給滾動條HScroll3End SubPrivate Sub HScroll1_Change() ption = HScroll1.Value '滾動條HScroll的數(shù)值顯示在標(biāo)簽Label5上 Average '求其平均值End SubPrivate Sub HScroll2_Change() ption = HScrol

28、l2.Value '滾動條HScrol2的數(shù)值顯示在標(biāo)簽Label6上 Average '求其平均值End SubPrivate Sub HScroll3_Change() ption = HScroll3.Value '滾動條HScrol3的數(shù)值顯示在標(biāo)簽Label7上 Average '求其平均值End SubPrivate Sub Average() Dim Temp As Double '定義雙精度變量Temp Temp = (HScroll1.Value + HScroll2.Value + HScroll3.Value) / 3 '將

29、滾動條HScroll，HScroll2，HScroll3的平均值之和除以3,結(jié)果賦給Temp ption = CStr(Temp) 'Temp的均值顯示在標(biāo)簽Label8上End Sub程序7如下：Private Sub Form_Load() ption = Time '在窗體上，將現(xiàn)在的時間賦給標(biāo)簽Label1End SubPrivate Sub Timer1_Timer() ption = Time '在時間控件Time1把現(xiàn)在的時間顯示在標(biāo)簽Label1上End Sub4、 實(shí)驗(yàn)總結(jié)實(shí)驗(yàn)三、過程一、實(shí)驗(yàn)?zāi)康?1掌握過程的定義和調(diào)用的方法2掌握典型問題的算法求解二

30、、實(shí)驗(yàn)內(nèi)容 1、過程的定義和調(diào)用程序1：創(chuàng)建應(yīng)用程序，要求對輸入的非負(fù)整數(shù)m和n，如果m>=n，則顯示組合數(shù)的值，否則顯示數(shù)據(jù)出錯。二、典型問題的算法程序2：利用下列兩式求得圓周率的近似值，忽略級數(shù)式中絕對值小于0.000001的項(xiàng)。以及程序3：如下圖所示，求2-200之間的所有素數(shù)，要求每輸出五個數(shù)據(jù)換一行。程序4：利用隨機(jī)函數(shù)產(chǎn)生20個-500到500的隨機(jī)整數(shù)（包括-500和500），單擊窗體時，在窗體上輸出這20個數(shù)，同時在窗體上顯示輸出從大到小排好序的這些數(shù)。要求以每行5個數(shù)的格式顯示，如下圖所示。三、實(shí)驗(yàn)記錄程序1如下：Private Sub Command1_Click()

31、 If Text1.Text = "" Or Not IsNumeric(Text1.Text) Then '如果Text1沒有輸入或者不是字符串 MsgBox "請輸入一個非負(fù)整數(shù)！", , "提示" '彈出消息框標(biāo)題為“提示”，內(nèi)容為"請輸入一個非負(fù)整數(shù)！" Exit Sub '退出過程 End If If Text2.Text = "" Or Not IsNumeric(Text2.Text) Then '如果Text2沒有輸入或者不是字符串 MsgBox

32、"請輸入一個非負(fù)整數(shù)！", , "提示" '彈出消息框標(biāo)題為“提示”，內(nèi)容為"請輸入一個非負(fù)整數(shù)！" Text2.SetFocus '此刻焦點(diǎn)指在Text2 Exit Sub '退出過程 End If If CInt(Text1.Text) > CInt(Text2.Text) Then '如果輸入Text1的整形函數(shù)值大于Text2的整形函數(shù)值 MsgBox "數(shù)據(jù)出錯，請重新輸入！", , "警告" '彈出消息框標(biāo)題為“警告”，內(nèi)容為"

33、數(shù)據(jù)出錯。請重新輸入！" Text1.Text="" 'Text1不輸出 Text2.Text="" 'Text1不輸出 Text1.SetFocus '此刻焦點(diǎn)指在Text1 Exit Sub '退出過程 End If n=CInt(Text1.Text) 'Text1的整形函數(shù)值賦給n m=CInt(Text2.Text) 'Text2的整形函數(shù)值賦給m Text3.Text = CStr(Fac(m) / Fac(n) / Fac(m - n) '組合數(shù)做運(yùn)算，利用階乘End Sub

34、Private Function Fac(ByVal n As Integer) As Double '函數(shù)的調(diào)用，定義雙精度變量Fac（），整形變量n Dim i As Integer, Temp As Double '定義整形變量i, Temp Temp=1 'Temp初值為1 For i = 1 To n '做循環(huán) Temp = Temp * i '做乘積運(yùn)算 Next i Fac = Temp '把Temp的值賦給FacEnd Function '結(jié)束函數(shù)Private Sub Command2_Click() End '

35、結(jié)束程序End Sub程序2如下：Private Sub Form_Click() Dim Pi As Double '定義雙精度變量Pi Pi = 6 * Arctan(1 / Sqr(3) 'Pi的等式 Print Pi '輸出PiEnd SubPrivate Function Arctan(ByVal x As Double) As Double '函數(shù)的調(diào)用，定義雙精度變量 Arctan（），雙精度變量x Dim m As Long, Temp As Double, s As Double '定義長整形變量m，雙精度變量Temp，s Temp =

36、 0 'Temp初值賦為0 s = x '把x的值賦給s m = 1 'm的初值賦為1 Do While Abs(s) >= 0.000001 '做循環(huán)，級數(shù)式中絕對值大于等于0.000001的項(xiàng)，小于則停止循環(huán)。 Temp = Temp + s 'Temp二次賦值 m = m + 2 'm加2 s = -1 * x * x * s / m * (m - 2) 's是的方程式運(yùn)算 Loop Arctan = Temp '把temp的值賦給 ArctanEnd Function程序3如下：Private Sub Form_Cl

37、ick() Dim I As Integer, M As Integer '定義整形變量I、M M = 0 'M的初值賦為0 For I = 2 To 200 'I的初值賦為2,做加法循環(huán)，超出200則停止循環(huán) If Prime(I) Then '用Prime判斷I是否是素數(shù)，如果I是素數(shù) Print I, '輸出I M = M + 1 'M加1 If M Mod 5 = 0 Then Print '如果M模除5，余數(shù)為0,則換行 End If Next IEnd SubPrivate Function Prime(x) As Boole

38、an '函數(shù)過程的調(diào)用 Dim I As Integer '定義整形變量I Prime = True 'x為素數(shù),返回True For I = 2 To Int(Sqr(x) 'I的初值賦為2,做加法循環(huán)，超出Sqr(x)則停止循環(huán) If x Mod I = 0 Then '如果x模除I，余數(shù)為0 Prime = False '則x不是素數(shù),返回False Exit For '退出循環(huán) End If Next IEnd Function程序4如下：Private Sub Form_Click() Dim x(20) As Integer,

39、 M As Integer, Temp As Integer '定義整形變量x(20)、M、 Temp Dim I As Integer, J As Integer '定義整形變量I、J M = 0 'M的初值賦為0 For I = 1 To 20 '做循環(huán) Randomize '隨機(jī)化x(I) = Int(Rnd * 1001 - 500) '隨機(jī)函數(shù)產(chǎn)生20個-500到500的隨機(jī)整數(shù)賦給x(I) Print x(I), '輸出x(I) M = M + 1 ' M加1 If M Mod 5 = 0 Then Print 

40、9;如果M模除5，余數(shù)為0,則換行 Next I For I = 1 To 19 再做循環(huán)，I超出19則停止循環(huán) For J = 1 To 20 - I '內(nèi)循環(huán),J = 1 ,當(dāng)J超過20 - I停止循環(huán) If x(J + 1) < x(J) Then '如果x(J + 1) 小于 x(J) Temp = x(J): x(J) = x(J + 1): x(J + 1) = Temp '交換值 End If Next J Next I Print '輸出空格 For I = 1 To 20 '做循環(huán)，I超出20則停止循環(huán) Print x(I), &

41、#39;輸出x(I) M = M + 1 ' M加1 If M Mod 5 = 0 Then Print '如果M模除5，余數(shù)為0,則換行 Next IEnd Sub四、實(shí)驗(yàn)總結(jié)實(shí)驗(yàn)四、圖形方法和圖形控件一、實(shí)驗(yàn)?zāi)康?1 掌握使用圖形方法繪制典型的圖形2 了解圖片框和圖像控件的區(qū)別3 掌握圖片框和圖像控件的使用方法4 掌握直線控件和形狀控件的使用方法5 了解圖像處理的基本方法二、實(shí)驗(yàn)內(nèi)容 1、圖形方法的應(yīng)用程序1：在窗體上繪制-到的正弦曲線，如下圖所示。2、圖片框控件和圖像控件的使用程序2：在窗體上左右各放置一個大小相同的圖片框和圖像框，修改它們的邊框式樣（BordeStyle

42、屬性）,使它們的邊框一欄。通過Picture屬性裝入一個同樣的位圖文件（.bmp），觀察兩個控件的變化以及其中圖形的差異。若裝入的是圖元文件（.wmf），則圖片框和圖像控件中的圖形又會怎樣？程序3：創(chuàng)建應(yīng)用程序，利用圖片框?yàn)g覽大幅面圖形。在窗體放置兩個圖片框，一個垂直滾動條和一個水平滾動條，如下圖所示。在第二個圖片框中裝入一個大圖形，利用兩個滾動條改變第二個圖片框在第一個圖片框中的位置，實(shí)現(xiàn)對整幅圖形的瀏覽。程序4：創(chuàng)建一個測試圖像控件特性的應(yīng)用程序：單擊窗體上的“放大”、“縮小”按鈕，能使圖像框中的圖形放大或縮小。3、直線控件和形狀控件的使用程序5：建立如下圖所示的應(yīng)用程序，通過命令按鈕控制

43、直線控件的旋轉(zhuǎn)和形狀控件的形狀、位置等的變化，掌握直線和形狀控件的特點(diǎn)和使用方法。4、圖像處理程序6：創(chuàng)建應(yīng)用程序：通過使輸出的文本產(chǎn)生微移后疊加，在圖片框中輸出有立體效果的文本，如下圖所示。三、實(shí)驗(yàn)記錄程序1如下：Private Sub Form_Click() Const Pi = 3.1415926 Cls '清屏 Form1.ScaleTop = 1.5 '窗體左上角y軸的坐標(biāo)值為1.5 Form1.ScaleLeft = -1.5 * Pi '窗體左上角x軸的坐標(biāo)值為-1.5*Pi Form1.ScaleHeight = -3 'y軸刻度總數(shù)為-3 F

44、orm1.ScaleWidth = 3 * Pi 'x軸刻度總數(shù)為3 * Pi For t = -Pi To Pi Step 0.001 't的初始值為-Pi，步長為0.001，當(dāng)t大于Pi時，停止循環(huán) x = t '將t賦給x y = Sin(t) '將Sin(t)賦給y PSet (x, y) '在(x, y處畫點(diǎn) Next tEnd Sub程序2如下：Private Sub Form_Click()Image1.Picture = LoadPicture("C:作業(yè)用圖1.jpg") '給圖像框裝入圖片Picture1.

45、Picture = LoadPicture("C:作業(yè)用圖1.jpg") '給圖片框裝入圖片End Sub程序3如下：Private Sub Form_Load() '窗體的初始化 frmwidth = Form1.ScaleWidth frmheight = Form1.ScaleHeight Picture1.Move 0, 0, frmwidth - VScroll1.Width, frmheight - HScroll1.Height Picture2.Move 0, 0 HScroll1.Top = Picture1.Height HScroll1

46、.Left = 0 HScroll1.Width = Picture1.Width HScroll1.Max = Picture2.Width - Picture1.Width HScroll1.SmallChange = HScroll1.Max / 50 HScroll1.LargeChange = Picture1.Width HScroll1.Visible = (Picture1.Height < Picture2.Height) VScroll1.Top = 0 VScroll1.Left = Picture1.Width VScroll1.Height = Picture1.Height VScroll1.Max = Picture2.Height - Picture1.Height VScroll1.Sm