VB綜合實(shí)驗(yàn)報(bào)告.doc

華北科技學(xué)院計(jì)算機(jī)學(xué)院綜合性實(shí)驗(yàn)報(bào)告華北科技學(xué)院計(jì)算機(jī)學(xué)院綜合性實(shí)驗(yàn)實(shí) 驗(yàn) 報(bào) 告課程名稱 程序設(shè)計(jì)語(yǔ)言(VB) 實(shí)驗(yàn)學(xué)期 2011 至 2012 學(xué)年 第 二 學(xué)期學(xué)生所在系部 安全工程學(xué)院 年級(jí) 11級(jí) 專業(yè)班級(jí) 安全B113 學(xué)生姓名 胡良兆 學(xué)號(hào) 201110044314 任課教師 崔新偉 實(shí)驗(yàn)成績(jī) 計(jì)算機(jī)學(xué)院制程序設(shè)計(jì)語(yǔ)言(VB)課程綜合性實(shí)驗(yàn)報(bào)告開(kāi)課實(shí)驗(yàn)室： 基礎(chǔ)實(shí)驗(yàn)室 2012年 6 月 29日實(shí)驗(yàn)題目Visual Basic綜合應(yīng)用程序開(kāi)發(fā)一、實(shí)驗(yàn)?zāi)康?、 掌握數(shù)組的應(yīng)用：（1） 數(shù)組的定義（2） 數(shù)組的基本操作，包括數(shù)組的輸入輸出、數(shù)組元素的比較、求平均值、數(shù)組的排序等。2、 會(huì)使用過(guò)程編程和字符串操作（1） sub過(guò)程的定義與調(diào)用（2） function過(guò)程的定義調(diào)用（3） 字符串的大小寫轉(zhuǎn)換操作3、 掌握基本控件的使用包括常用標(biāo)準(zhǔn)控件的使用，如標(biāo)簽、按鈕、文本框、單選按鈕、滾動(dòng)條等。4、 掌握菜單和工具欄的使用二、設(shè)備與環(huán)境硬件：多媒體計(jì)算機(jī)軟件：Windows 2000以上的操作系統(tǒng)、Visual Basic集成開(kāi)發(fā)環(huán)境三、實(shí)驗(yàn)內(nèi)容1、 先進(jìn)入歡迎界面，在屏幕上顯示歡迎您使用本程序，并彈出密碼框，等待輸入密碼。2、 密碼正確后進(jìn)入系統(tǒng)主界面，主界面包括“數(shù)組應(yīng)用”、“過(guò)程應(yīng)用”、“控件應(yīng)用”和“退出”等菜單。3、“數(shù)組應(yīng)用”菜單中包括“數(shù)組操作”子菜單，單擊此菜單，彈出“數(shù)組操作”窗體。4、“過(guò)程應(yīng)用”菜單中包括“字符轉(zhuǎn)換”子菜單，單擊此菜單，彈出“字符轉(zhuǎn)換”窗體。5、單擊“控件應(yīng)用”菜單，彈出“數(shù)學(xué)運(yùn)算”窗體。6、單擊“退出”菜單，退出程序運(yùn)行。四、實(shí)驗(yàn)結(jié)果及分析設(shè)計(jì)步驟如下所示。 1、設(shè)計(jì)系統(tǒng)歡迎界面。通過(guò)設(shè)置窗體的picture屬性，為窗體添加背景圖片。在窗體上添加兩個(gè)標(biāo)簽，分別修改其caption屬性。設(shè)計(jì)界面如下圖所示。圖：系統(tǒng)歡迎界面編寫代碼，單擊窗體開(kāi)始系統(tǒng)登陸。Form1的click事件代碼如下所示：Sub Form_click()Form2.show End Sub2、密碼框界面設(shè)計(jì)。在窗體上添加一個(gè)標(biāo)簽，一個(gè)文本框，一個(gè)命令按鈕。設(shè)計(jì)界面如下圖所示。圖：系統(tǒng)登陸界面如果在文本框中輸入的用戶名和密碼都正確，則成功登陸系統(tǒng)主界面；假若用戶名或密碼錯(cuò)誤，則給出相應(yīng)錯(cuò)誤提示?！按_定”按鈕的click事件代碼如下所示：If Text1.Text = 12345 ThenForm3.ShowElseMsgBox (密碼錯(cuò)誤，請(qǐng)重新輸入)End If3、 系統(tǒng)主界面設(shè)計(jì)。在菜單編輯器中編輯數(shù)組應(yīng)用、過(guò)程應(yīng)用、控件應(yīng)用及她們的子菜單數(shù)組操作、字符轉(zhuǎn)換、數(shù)學(xué)運(yùn)算。設(shè)計(jì)界面如下圖所示： 圖3：系統(tǒng)主界面若單擊數(shù)組應(yīng)用下的數(shù)組操作，則彈出數(shù)組操作界面若單擊過(guò)程應(yīng)用下的字符轉(zhuǎn)換，則彈出字符轉(zhuǎn)換界面若單擊控件應(yīng)用下的數(shù)組操作，則彈出數(shù)學(xué)運(yùn)算界面數(shù)組應(yīng)用的數(shù)組操作的click事件代碼如下所示：Form4.Show過(guò)程應(yīng)用的字符轉(zhuǎn)換的click事件代碼如下所示：Form5.Show控件應(yīng)用的數(shù)學(xué)運(yùn)算的click事件代碼如下所示：Form6.Show4.數(shù)組操作界面設(shè)計(jì)。在窗體上添加七個(gè)命令按鈕，一個(gè)標(biāo)簽，四個(gè)文本框。設(shè)計(jì)界面如下圖所示：首先單擊輸入按鈕，輸入十個(gè)數(shù)，再單擊升序、降序、最大值、最小值、清空、返回等按鈕進(jìn)行操作，可得到不同的結(jié)果。設(shè)計(jì)界面如下圖所示： 圖4：數(shù)組操作界面“輸入”按鈕的click事件代碼如下所示：For i = 1 To 10 Do X = InputBox(輸入數(shù)組) If IsNumeric(X) = True Then Exit Do Else MsgBox 請(qǐng)輸入數(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ù)學(xué)運(yùn)算界面設(shè)計(jì)。在窗體上添加六個(gè)標(biāo)簽，兩個(gè)滾動(dòng)條，一個(gè)命令按鈕，四個(gè)option按鈕。設(shè)計(jì)界面如下圖所示： 圖6：數(shù)學(xué)運(yùn)算界面拖動(dòng)滾動(dòng)條一和二，再選擇一個(gè)option，單擊計(jì)算命令按鈕，運(yùn)算結(jié)果顯示在標(biāo)簽四?！坝?jì)算”按鈕的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