VB綜合實驗報告.doc

華北科技學院計算機學院綜合性實驗報告華北科技學院計算機學院綜合性實驗實 驗 報 告課程名稱 程序設計語言(VB) 實驗學期 2011 至 2012 學年 第 二 學期學生所在系部 安全工程學院 年級 11級 專業(yè)班級 安全B113 學生姓名 胡良兆 學號 201110044314 任課教師 崔新偉 實驗成績 計算機學院制程序設計語言(VB)課程綜合性實驗報告開課實驗室： 基礎實驗室 2012年 6 月 29日實驗題目Visual Basic綜合應用程序開發(fā)一、實驗目的1、 掌握數(shù)組的應用：（1） 數(shù)組的定義（2） 數(shù)組的基本操作，包括數(shù)組的輸入輸出、數(shù)組元素的比較、求平均值、數(shù)組的排序等。2、 會使用過程編程和字符串操作（1） sub過程的定義與調(diào)用（2） function過程的定義調(diào)用（3） 字符串的大小寫轉(zhuǎn)換操作3、 掌握基本控件的使用包括常用標準控件的使用，如標簽、按鈕、文本框、單選按鈕、滾動條等。4、 掌握菜單和工具欄的使用二、設備與環(huán)境硬件：多媒體計算機軟件：Windows 2000以上的操作系統(tǒng)、Visual Basic集成開發(fā)環(huán)境三、實驗內(nèi)容1、 先進入歡迎界面，在屏幕上顯示歡迎您使用本程序，并彈出密碼框，等待輸入密碼。2、 密碼正確后進入系統(tǒng)主界面，主界面包括“數(shù)組應用”、“過程應用”、“控件應用”和“退出”等菜單。3、“數(shù)組應用”菜單中包括“數(shù)組操作”子菜單，單擊此菜單，彈出“數(shù)組操作”窗體。4、“過程應用”菜單中包括“字符轉(zhuǎn)換”子菜單，單擊此菜單，彈出“字符轉(zhuǎn)換”窗體。5、單擊“控件應用”菜單，彈出“數(shù)學運算”窗體。6、單擊“退出”菜單，退出程序運行。四、實驗結(jié)果及分析設計步驟如下所示。 1、設計系統(tǒng)歡迎界面。通過設置窗體的picture屬性，為窗體添加背景圖片。在窗體上添加兩個標簽，分別修改其caption屬性。設計界面如下圖所示。圖：系統(tǒng)歡迎界面編寫代碼，單擊窗體開始系統(tǒng)登陸。Form1的click事件代碼如下所示：Sub Form_click()Form2.show End Sub2、密碼框界面設計。在窗體上添加一個標簽，一個文本框，一個命令按鈕。設計界面如下圖所示。圖：系統(tǒng)登陸界面如果在文本框中輸入的用戶名和密碼都正確，則成功登陸系統(tǒng)主界面；假若用戶名或密碼錯誤，則給出相應錯誤提示?！按_定”按鈕的click事件代碼如下所示：If Text1.Text = 12345 ThenForm3.ShowElseMsgBox (密碼錯誤，請重新輸入)End If3、 系統(tǒng)主界面設計。在菜單編輯器中編輯數(shù)組應用、過程應用、控件應用及她們的子菜單數(shù)組操作、字符轉(zhuǎn)換、數(shù)學運算。設計界面如下圖所示： 圖3：系統(tǒng)主界面若單擊數(shù)組應用下的數(shù)組操作，則彈出數(shù)組操作界面若單擊過程應用下的字符轉(zhuǎn)換，則彈出字符轉(zhuǎn)換界面若單擊控件應用下的數(shù)組操作，則彈出數(shù)學運算界面數(shù)組應用的數(shù)組操作的click事件代碼如下所示：Form4.Show過程應用的字符轉(zhuǎn)換的click事件代碼如下所示：Form5.Show控件應用的數(shù)學運算的click事件代碼如下所示：Form6.Show4.數(shù)組操作界面設計。在窗體上添加七個命令按鈕，一個標簽，四個文本框。設計界面如下圖所示：首先單擊輸入按鈕，輸入十個數(shù)，再單擊升序、降序、最大值、最小值、清空、返回等按鈕進行操作，可得到不同的結(jié)果。設計界面如下圖所示： 圖4：數(shù)組操作界面“輸入”按鈕的click事件代碼如下所示：For i = 1 To 10 Do X = InputBox(輸入數(shù)組) If IsNumeric(X) = True Then Exit Do Else MsgBox 請輸入數(shù)字 End If Loop a(i) = X Next iCommand5.Enabled = FalseCommand1.Enabled = TrueCommand2.Enabled = TrueCommand3.Enabled = TrueCommand6.Enabled = TrueCommand4.Enabled = True“升序排列”按鈕的click事件代碼如下所示For i = 1 To 10 max = a(i) m = i For j = i + 1 To 10 If a(j) max Then max = a(j) m = (j) End If Next j t = a(i) a(i) = a(m) a(m) = t Next i For i = 1 To 10 Text2.Text = Text2.Text & & a(i) Next i“最大值”按鈕的click事件代碼如下所示Dim maxa! mina = a(1) For i = 1 To 10 If a(i) maxa Then maxa = a(i) End If Next i Text3.Text = maxa“最小值”按鈕的click事件代碼如下所示mina = a(1) For i = 1 To 10 If a(i) = 97 And Asc(s) = 97 And Asc(s) = 65 And Asc(s) = 90 Then s = Chr(Asc(s) + 32) End If End If Y = Y & s6.數(shù)學運算界面設計。在窗體上添加六個標簽，兩個滾動條，一個命令按鈕，四個option按鈕。設計界面如下圖所示： 圖6：數(shù)學運算界面拖動滾動條一和二，再選擇一個option，單擊計算命令按鈕，運算結(jié)果顯示在標簽四?！坝嬎恪卑粹o的click事件代碼如下所示Dim a, b, c As SinglePrivate Sub HScroll1_Change()a = HScroll1.ValueLabel5.Caption = HScroll1.ValueEnd SubPrivate Sub HScroll2_Change()b = HScroll2.ValueLabel6.Caption = HScroll2.ValueEnd SubPrivate Sub Option1_Click()c = a + bEnd SubPrivate Sub Option2_Click()c = a - bEnd SubPrivate Sub Option3_Click()c = a * bEnd SubPrivate Sub Option4_Click()c = a / bEnd SubPrivate Sub Command1_Click()Label4.Caption = If Option1 Then Label4.Caption = a & + & b & = & cEnd IfIf Option2 Then Label4.Caption = a & - & b & = & cEnd IfIf Option3 Then Label4.Caption = a & * & b & = & cEnd If