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

1、精選優(yōu)質(zhì)文檔-傾情為你奉上實(shí) 驗(yàn) 報(bào) 告 課程名稱 程序設(shè)計(jì)語(yǔ)言(VB) 實(shí)驗(yàn)學(xué)期 至 學(xué)年 第 學(xué)期學(xué)生所在系部 年級(jí) 班級(jí) 學(xué)生姓名 學(xué)號(hào) 任課教師 實(shí)驗(yàn)成績(jī) 計(jì)算機(jī)系制程序設(shè)計(jì)語(yǔ)言（VB） 課程綜合性實(shí)驗(yàn)報(bào)告開(kāi)課實(shí)驗(yàn)室：基礎(chǔ)四 年 月 日實(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)控件的

2、使用，如標(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)入歡迎界面，在屏幕上顯示"歡迎您使用本程序"，并彈出密碼框，等待輸入密碼。（5）2. 密碼正確后進(jìn)入系統(tǒng)主界面，主界面包括“數(shù)組應(yīng)用”、“過(guò)程應(yīng)用”、“控件應(yīng)用”和“退出”等菜單，并提供相關(guān)工具欄或命令按鈕。（10）3. “數(shù)組應(yīng)用”菜單中包括“數(shù)組操作”子菜單，單擊此菜單，彈出“數(shù)組操作”對(duì)話框，如圖1所示。（35，每個(gè)按鈕功能為5）。題目描述如下：在名稱為“數(shù)組

3、操作”的窗體上有一個(gè)label控件，4個(gè)text控件及7個(gè)命令按鈕，功能如下：(1) 開(kāi)始啟動(dòng)工程時(shí)，界面上除“輸入”及“返回”按鈕之外，其他按鈕均不可用（灰色顯示）。(2) 單擊“輸入”按鈕之后，利用inputbox讓用戶連續(xù)且必須輸入10個(gè)整數(shù)。若輸入為非數(shù)字符號(hào)，則給出警告“輸入數(shù)據(jù)無(wú)效，請(qǐng)重新輸入，請(qǐng)輸入第n個(gè)數(shù)”。(3) 輸入完畢后，“輸入”按鈕變灰，其他變?yōu)榭捎脿顟B(tài)。(4) 按相應(yīng)的按鈕可分別將輸入的數(shù)據(jù)升序或降序排列，及求最大、最小值，并在右側(cè)對(duì)應(yīng)的文本框中顯示（注意用A（10）存放最大數(shù)，A（1）存放最小數(shù)）。(5) 單擊“清空”按鈕將所有文本框清空。4. “過(guò)程應(yīng)用”菜單中包

4、括“字符轉(zhuǎn)換”子菜單，單擊此菜單，彈出“字符轉(zhuǎn)換”對(duì)話框，如圖2所示，要求必須將“大小寫轉(zhuǎn)換”功能定義為一個(gè)sub過(guò)程，通過(guò)調(diào)用該過(guò)程完成大小寫轉(zhuǎn)換。（25）題目描述如下：在“字符轉(zhuǎn)換”窗體上有兩個(gè)文本框、三個(gè)單選按鈕和一個(gè)命令按鈕。運(yùn)行時(shí)，在text1中輸入若干個(gè)大寫和小寫字母，并選中一個(gè)單選按鈕，再單擊“轉(zhuǎn)換”按鈕，則按選中的單選按鈕的標(biāo)題進(jìn)行轉(zhuǎn)換，結(jié)果放入text2。5. 單擊“控件應(yīng)用”菜單，彈出“數(shù)學(xué)運(yùn)算”對(duì)話框，如圖3所示。（25%）題目描述如下：在“數(shù)學(xué)運(yùn)算”窗體上有一個(gè)名稱為cmd1、標(biāo)題為“計(jì)算”的命令按鈕；兩個(gè)水平滾動(dòng)條，名稱為hs1和hs2，其max屬性均為100，min

5、屬性為1；四個(gè)標(biāo)簽，名稱為lab1、lab2、lab3和lab4，標(biāo)題分別為“運(yùn)算數(shù)1”、“運(yùn)算數(shù)2”、“運(yùn)算結(jié)果”和空白；此外還有一個(gè)包含四個(gè)單選按鈕的控件數(shù)組，名稱為opt1，標(biāo)題為“+”、“-”、“*”和“/”。程序運(yùn)行后，移動(dòng)兩個(gè)滾動(dòng)條中的滾動(dòng)框，用滾動(dòng)條的當(dāng)前值作為運(yùn)算數(shù)，如果選中一個(gè)單選按鈕，然后單擊命令按鈕，相應(yīng)的計(jì)算結(jié)果將顯示在lab4中。6. 單擊“退出”菜單，退出程序運(yùn)行。四實(shí)驗(yàn)結(jié)果及分析設(shè)計(jì)步驟如下1. 先進(jìn)入歡迎界面，在屏幕上顯示"歡迎您使用本程序"，并彈出密碼框，等待輸入密碼。設(shè)計(jì)界面如下圖所示：代碼如下：Private Sub Text1_Los

6、tFocus() If Text1.Text <> "*" Then MsgBox "賬號(hào)必須為*", , "警告" Text1.Text = "" Text1.SetFocus End IfEnd SubPrivate Sub Command1_Click() Dim i As Integer If Text2.Text <> "1234" Then i = MsgBox("密碼錯(cuò)誤", 5 + vbExclamation, "警告&quo

7、t;) If i <> 4 Then End Else Text2.Text = "" Text2.SetFocus End If End If Form1.Hide Form2.ShowEnd Sub2密碼正確后進(jìn)入系統(tǒng)主界面，主界面包括“數(shù)組應(yīng)用”、“過(guò)程應(yīng)用”、“控件應(yīng)用”和“退出”等菜單，并提供相關(guān)工具欄或命令按鈕。代碼如下：Private Sub kongjianyingyong_Click()Form5.ShowEnd SubPrivate Sub shuzucaozuo_Click()Form3.ShowEnd SubPrivate Sub tui

8、chu_Click()Form2.HideEnd SubPrivate Sub zifuzhuanhuan_Click()Form4.ShowEnd Sub3.“數(shù)組應(yīng)用”菜單中包括“數(shù)組操作”子菜單，單擊此菜單，彈出“數(shù)組操作”對(duì)話框。代碼如下：Dim mark(1 To 10) As IntegerPrivate Sub Command3_Click()Form3.HideForm2.ShowEnd SubPrivate Sub Form_Load()Command1.Enabled = TrueCommand2.Enabled = FalseCommand3.Enabled = True

9、Command4.Enabled = FalseCommand5.Enabled = FalseCommand6.Enabled = FalseCommand7.Enabled = FalseEnd Sub（1）單擊“輸入”按鈕之后，利用inputbox讓用戶連續(xù)且必須輸入10個(gè)整數(shù)。若輸入為非數(shù)字符號(hào)，則給出警告“輸入數(shù)據(jù)無(wú)效，請(qǐng)重新輸入，請(qǐng)輸入第n個(gè)數(shù)”Private Sub Command1_Click()For i = 1 To 10 v = InputBox("請(qǐng)輸入第" & i & "個(gè)整數(shù) ") If Not IsNumer

10、ic(v) Then MsgBox "輸入數(shù)據(jù)無(wú)效，請(qǐng)重新輸入，請(qǐng)輸入第" & i & "個(gè)數(shù)。", vbInformation v = InputBox("請(qǐng)輸入第" & i & "個(gè)整數(shù) ") End If mark(i) = vNext i Command1.Enabled = FalseCommand2.Enabled = TrueCommand3.Enabled = TrueCommand4.Enabled = TrueCommand5.Enabled = TrueComm

11、and6.Enabled = TrueCommand7.Enabled = TrueEnd Sub（2）升序排列Private Sub Command4_Click()n = UBound(mark)For i = 1 To n - 1For j = i + 1 To nIf mark(j) < mark(i) Then t = mark(i): mark(i) = mark(j): mark(j) = tEnd IfNext jNext iFor i = 1 To n Text1 = Text1 & mark(i) & ","Next iEnd Su

12、b（3）降序排列Private Sub Command5_Click()n = UBound(mark)For i = 1 To n - 1For j = i + 1 To nIf mark(j) > mark(i) Then t = mark(i): mark(i) = mark(j): mark(j) = tEnd IfNext jNext iFor i = 1 To n Text2 = Text2 & mark(i) & ","Next iEnd Sub（4）最大值Private Sub Command6_Click() Max = mark(1

13、0)For i = 1 To 10If mark(i) > Max Then Max = mark(i)Next iText3.Text = Val(Max)End Sub（5）最小值Private Sub Command7_Click()Min = mark(1)For i = 1 To 10If mark(i) < Min Then Min = mark(i)Next iText4.Text = Val(Min)End Sub（6）清空Private Sub Command2_Click()Text1.Text = ""Text2.Text = "

14、"Text3.Text = ""Text4.Text = ""End Sub4.“過(guò)程應(yīng)用”菜單中包括“字符轉(zhuǎn)換”子菜單，單擊此菜單，彈出“字符轉(zhuǎn)換”對(duì)話框，如圖。所示，要求必須將“大小寫轉(zhuǎn)換”功能定義為一個(gè)sub過(guò)程，通過(guò)調(diào)用該過(guò)程完成大小寫轉(zhuǎn)換代碼如下：Dim a, bPrivate Sub Option2_Click()a = Text1.Textb = UCase(a)End SubPrivate Sub Option3_Click()a = Text1.Textb = LCase(a)End SubPrivate Sub Comman

15、d1_Click()Dim n% If Option1 Then n = Len(Text1) For i = 1 To n k = Mid(Text1, i, 1) If "a" < k And k < "z" Then b = UCase(k) ElseIf "A" < k And k < "Z" Then b = LCase(k) End If Text2 = Text2 & b Next i End IfIf Option2 Then Text2.Text = bEnd If

16、If Option3 ThenText2.Text = bEnd IfEnd Sub5.單擊“控件應(yīng)用”菜單，彈出“數(shù)學(xué)運(yùn)算”對(duì)話框，如圖所示。代碼如下：Dim a As Integer, b As Integer, c As IntegerPrivate Sub HScroll1_Change()a = HScroll1.ValueLabel1.Caption = "運(yùn)算數(shù)1:" & " " & aEnd SubPrivate Sub HScroll2_Change()b = HScroll2.ValueLabel2.Caption =

17、 "運(yùn)算數(shù)2:" & " " & bEnd 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