1、華北科技學院計算機學院綜合性實驗實驗報告課程名稱程序設計語言 (VB)實驗學期2015至 2016學年第 二學期學生所在系部安全工程學院年級2015 級班級安卓 B151學生姓名徐艷強學號201510044218任課教師李冬艷實驗成績計算機學院制計算機學院綜合性實驗報告 程序設計語言（VB） 課程綜合性實驗報告開課實驗室：基礎三2016年6 月 29日實驗題目Visual Basic 綜合應用程序開發一、實驗目的1、 掌握數組的應用：1）數組的定義2）數組的基本操作，包括數組的輸入輸出、數組元素的比較、求平均值、數組的排序等。2、 會使用過程編程和字符串操作1）sub 過程的定義與調用2）fu

2、nction 過程的定義調用3）字符串的大小寫轉換操作3、 掌握基本控件的使用包括常用標準控件的使用，如標簽、按鈕、文本框、單選按鈕、滾動條等。4、 掌握菜單和工具欄的使用二、設備與環境硬件：多媒體計算機軟件： Windows 7 以上的操作系統、Visual Basic 集成開發環境三、實驗內容1.先進入歡迎界面，在屏幕上顯示 歡迎您使用本程序 ，并彈出密碼框，等待輸入密碼。（ 5）2.密碼正確后進入系統主界面，主界面包括“數組應用” 、“過程應用” 、“控件應用”和“退出”等菜單，并提供相關工具欄或命令按鈕。 （ 10）3.“數組應用”菜單中包括“數組操作”子菜單，單擊此菜單，彈出“數組操

3、作”對話框，如圖1 所示。（ 35，每個按鈕功能為5）。題目描述如下：在名稱為“數組操作”的窗體上有一個label 控件， 4 個 text 控件及 7 個命令按鈕，功能如下：(1)開始啟動工程時，界面上除“輸入”及“返回”按鈕之外，其他按鈕均不可用（灰色顯示）。(2)單擊“輸入”按鈕之后，利用inputbox 讓用戶連續且必須輸入10 個整數。若輸入為非數字符號，則給出警告“輸入數據無效，請重新輸入，請輸入第n 個數”。(3)輸入完畢后， “輸入”按鈕變灰，其他變為可用狀態。(4)按相應的按鈕可分別將輸入的數據升序或降序排列，及求最大、最小值，并在右側對應的文本框中顯示（注意用 A（ 10）

4、存放最大數， A（ 1）存放最小數） 。(5)單擊“清空”按鈕將所有文本框清空。(2) “過程應用”菜單中包括“字符轉換”和“選擇器”子菜單。(1)單擊“字符轉換”菜單，彈出“字符轉換”對話框，如圖 2 所示，要求必須將“大小寫轉換”功能定義為一個 sub 過程，通過調用該過程完成大小寫轉換。(3)單擊“選擇器”菜單，彈出“選擇器”對話框，在組合框中選擇省份，在左側的列表框中就會出現對應省份的大學，單擊“ ”按鈕，會把左側列表框中你選擇的大學移動到右側的列表框中，而當你單擊“ ”按鈕時，會把左側全部的大學移動到右側的列表框中；同理但你單擊 “”按鈕時， 會把右側列表框中你所選擇的大學移動到左側

5、的列表框中，單擊“ ”的時候會將 list1 中所選中的學校移動到list2中單擊“ ”按鈕后，會將list1 中全部的學校轉移到list2 中。單擊“ ”的時候會將list2 中所選中的學校移動到list1 中 ,單擊“ a(j) ThenT = a(i)a(i) = a(j)a(j) = TEnd IfNext jNext iFor i = 1 To 10Text1 = Text1 & & a(i)NextEnd SubPrivate Sub Command2_Click()For i = 1 To 9For j = i + 1 To 10If a(i) a(j) Then

6、T = a(i)a(i) = a(j)a(j) = TEnd IfNext jNext iFor i = 1 To 10Text2 = Text2 & & a(i)NextEnd SubPrivate Sub Command3_Click()Max = a(1)For i = 1 To 10If a(1) a(i) ThenMin = a(i)End IfNextText4 = MinEnd SubPrivate Sub Command5_Click()Command1.Enabled = TrueCommand2.Enabled = TrueCommand3.Enabled

7、= TrueCommand4.Enabled = TrueCommand6.Enabled = TrueCommand5.Enabled = FalseFor i = 1 To 10b = InputBox( 請輸入第 & i & 個數 , 輸入 )If IsNumeric(b) = False Then第 5 頁計算機學院綜合性實驗報告MsgBox 請重新輸入第 & i & 個數 , , 警告 b = InputBox( 請輸入第 & i & 個數 , 輸入 )Elsea(i) = bEnd IfText1 = Text1 & &

8、; a(i)NextEnd SubPrivate Sub Command6_Click()Text1 = Text2 = Text3 = Text4 = Command1.Enabled = FalseCommand2.Enabled = FalseCommand3.Enabled = FalseCommand4.Enabled = FalseCommand6.Enabled = FalseCommand5.Enabled = TrueEnd SubPrivate Sub Command7_Click()Unload MeEnd SubPrivate Sub Form_Load()Comman

9、d1.Enabled = FalseCommand2.Enabled = FalseCommand3.Enabled = FalseCommand4.Enabled = FalseCommand6.Enabled = FalseEnd Sub數學運算功能程序運行后，移動兩個滾動條中的滾動框，用滾動條的當前值作為運算數，如果選中一個單選按鈕，然后單擊命令按鈕，相應的計算結果將顯示在label4 中。界面抓取實現代碼Dim a%, b%Private Sub Command1_Click()a = HScroll1.Valueb = HScroll2.ValueIf Option1.Value =

10、 True Thenc = a + bLabel6.Caption = a & + & b & = & c第 6 頁計算機學院綜合性實驗報告ElseIf Option2.Value = True Thenc = a - bLabel6.Caption = a & - & b & = & cElseIf Option3.Value = True Thenc = a * bLabel6.Caption = a & & b& = & cElseIf Option4.Value = True Thenc =

11、 a / bLabel6.Caption = a & & b& = & Format(c, 0.00)ElseMsgBox 請選擇運算類型, , 提示 End IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()HScroll1.Max = 100HScroll1.Min = 1HScroll2.Max = 100HScroll2.Min = 1End SubPrivate Sub HScroll1_Change()Label2.Caption = HScroll

12、1.ValueEnd SubPrivate Sub HScroll2_Change()Label4.Caption = HScroll2.ValueEnd Sub選擇器功能程序運行后，在組合框中選擇省份，在左側的列表框中就會出現對應省份的大學，單擊“”按鈕，會把左側列表框中你選擇的大學移動到右側的列表框中，而當你單擊“”按鈕時，會把左側全部的大學移動到右側的列表框中；同理但你單擊“”按鈕時，會把右側列表框中你所選擇的大學移動到左側的列表框中，單擊“ ”按鈕時，會把右側所有的大學移動到左側的列表框中。界面抓取第 7 頁計算機學院綜合性實驗報告實現代碼Private Sub yd(ByVal b

13、As String) 移動一項的子過程If b = 1to2 And List1.Text Then如果是 list1 移動到 list2 而且選中list1 中的內容List2.AddItem List1.Text在 list2 中添加你所選中的內容List1.RemoveItem List1.ListIndex刪除 list1 中所選中的項ElseIf b = 2to1 And List2.Text ThenList1.AddItem List2.TextList2.RemoveItem List2.ListIndexEnd IfEnd SubPrivate Sub ydqt(ByVal

14、a As String) 移動全部的子過程If a = 1to2 Then 如果是把list1 中的內容全部移動到list2 中For i = 0 To List1.ListCount - 1List2.AddItem List1.List(i) 在 list2 中添加list1 中的全部內容NextElseFor i = 0 To List2.ListCount - 1List1.AddItem List2.List(i)NextEnd IfEnd SubPrivate Sub Combo1_Click()If Combo1.Text = 北京 Then 判斷組合框中所選擇的省份List1.

15、ClearList2.ClearList1.AddItem 北京科技大學 加載對應省份的大學List1.AddItem 清華大學 List1.AddItem 北京大學 List1.AddItem 北京航空航天大學List1.AddItem 北京師范大學List1.AddItem 北京農業大學ElseIf Combo1.Text = 河北 Then 判斷組合框中所選擇的省份List1.ClearList2.ClearList1.AddItem 華北科技學院 加載對應省份的大學List1.AddItem 燕京理工大學List1.AddItem 防災科技學院List1.AddItem 中央美術學院燕

16、郊分校List1.AddItem 廊坊師范學院第 8 頁計算機學院綜合性實驗報告List1.AddItem 河北工業大學ElseIf Combo1.Text = 哈爾濱 Then 判斷組合框中所選擇的省份List1.ClearList2.ClearList1.AddItem 哈爾濱工業大學 加載對應省份的大學List1.AddItem 哈爾濱理工大學List1.AddItem 黑龍江大學 List1.AddItem 哈爾濱劍橋學院List1.AddItem 哈爾濱師范大學List1.AddItem 黑龍江科技大學End IfEnd SubPrivate Sub Command1_Click()

17、Call yd(2to1) 調用子過程從list2 向 list1 移動一項End SubPrivate Sub Command2_Click()Call ydqt(2to1) 調用子過程從list2 向 list1 移動全體List2.ClearEnd SubPrivate Sub Command3_Click()Call yd(1to2) 調用子過程從list1 向 list2 移動一項End SubPrivate Sub Command4_Click()Call ydqt(1to2) 調用子過程從list1 向 list2 移動全體List1.ClearEnd SubPrivate Su

18、b Command5_Click()Unload Me 返回鍵卸載當前窗體End SubPrivate Sub Form_Load()Combo1.AddItem 北京 加載組合框中的幾個省份Combo1.AddItem 河北 Combo1.AddItem 哈爾濱 End Sub字符轉換功能程序運行后，在Text1 中輸入若干個大寫和小寫字母，并選中一個單選按鈕，再單擊“轉換”按鈕，則將 Text1 中的字母按照單選按鈕的標題進行相應的轉換。結果放在Text2 中。界面抓捕第 9 頁計算機學院綜合性實驗報告實現代碼Private Sub zhuanhuan(ByVal a As String)

19、子過程轉換字母大寫小寫以及大小寫互換For i = 1 To Len(a) 遍歷字符串中的所有字母T = Mid(a, i, 1) 分別取字符串中的所有字母If Option1.Value = True Then判斷字母需要轉換成什么類型如果是大小寫互換If Asc(T) = 97 Then判斷取出來的字母是大寫還是小寫 如果是小寫則把其變為大寫Text2 = Text2 & UCase(T) 讓字母在 text2 中顯示Else 如果是大寫則把其變為小寫Text2 = Text2 & LCase(T) 讓字母在text2 中顯示End IfElseIf Option2.Val

20、ue = True Then Text2 = Text2 & UCase(T)如果是第二個單選按鈕被選中則全部轉換為大寫ElseIf Option3.Value = True Then Text2 = Text2 & LCase(T)如果是第三個單選按鈕被選中則全部轉換為小寫End IfNextEnd SubPrivate Sub Command1_Click()Text2 = Call zhuanhuan(Text1) 調用子過程轉換text1 中的字符串End SubPrivate Sub Command2_Click()Unload Me 單擊返回卸載當前窗體End Su

21、b五、總結經過了一個學期的VB 課程的學習， 我可以設計一些簡單的應用程序，這個學期初我們從第一章VB 的概述入手，逐漸的了解VB，并深入的學習，在第二章掌握了VB 中一些基本的控件的屬性及一些常用事件，如標簽、窗體、文本框、命令按鈕、圖像框以及圖片框等. 在第三章中學習了變量和常量、數據類型、關鍵字及標識符等一些在編程中較為基礎但又必不可少的東西，其中學習了那些標識符是合法的、符號常量的聲明方法和一些系統常量，如顏色常量（vbRed ）等其次學習了算數運算符及其優先級、邏輯運算符和所有運算符的優先級。掌握了一些VB 的常用內部函數，包括數學函數、字符串函數、轉換函數、時間與日期函數以及隨機函數。在第四、五、六章中我們第 10 頁計算機學院綜合性實驗報告接觸了計算機程序設計中的三大結構，即順序結構、選擇結構和循環結構。在順序結構中 ，我們學習了一些基本的語句， 和一些常用的方法， 如賦值、結束和暫停語句， Print 方法、Format 函數、Inputbox 函數