VB綜合實驗報告模板

1、精選優(yōu)質(zhì)文檔-傾情為你奉上實 驗 報 告 課程名稱 程序設(shè)計語言(VB) 實驗學期 至 學年 第 學期學生所在系部 年級 班級 學生姓名 學號 任課教師 實驗成績 計算機系制程序設(shè)計語言（VB） 課程綜合性實驗報告開課實驗室：基礎(chǔ)四 年 月 日實驗題目Visual Basic綜合應(yīng)用程序開發(fā)一、實驗?zāi)康?、 掌握數(shù)組的應(yīng)用：（1） 數(shù)組的定義（2） 數(shù)組的基本操作，包括數(shù)組的輸入輸出、數(shù)組元素的比較、求平均值、數(shù)組的排序等。2、 會使用過程編程和字符串操作（1） sub過程的定義與調(diào)用（2） function過程的定義調(diào)用（3） 字符串的大小寫轉(zhuǎn)換操作3、 掌握基本控件的使用包括常用標準控件的

2、使用，如標簽、按鈕、文本框、單選按鈕、滾動條等。4、 掌握菜單和工具欄的使用二、設(shè)備與環(huán)境硬件：多媒體計算機軟件：Windows 2000以上的操作系統(tǒng)、Visual Basic集成開發(fā)環(huán)境三、實驗內(nèi)容1. 先進入歡迎界面，在屏幕上顯示"歡迎您使用本程序"，并彈出密碼框，等待輸入密碼。（5）2. 密碼正確后進入系統(tǒng)主界面，主界面包括“數(shù)組應(yīng)用”、“過程應(yīng)用”、“控件應(yīng)用”和“退出”等菜單，并提供相關(guān)工具欄或命令按鈕。（10）3. “數(shù)組應(yīng)用”菜單中包括“數(shù)組操作”子菜單，單擊此菜單，彈出“數(shù)組操作”對話框，如圖1所示。（35，每個按鈕功能為5）。題目描述如下：在名稱為“數(shù)組

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

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

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

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

7、t;) If i <> 4 Then End Else Text2.Text = "" Text2.SetFocus End If End If Form1.Hide Form2.ShowEnd Sub2密碼正確后進入系統(tǒng)主界面，主界面包括“數(shù)組應(yīng)用”、“過程應(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ù)組操作”對話框。代碼如下：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個整數(shù)。若輸入為非數(shù)字符號，則給出警告“輸入數(shù)據(jù)無效，請重新輸入，請輸入第n個數(shù)”Private Sub Command1_Click()For i = 1 To 10 v = InputBox("請輸入第" & i & "個整數(shù) ") If Not IsNumer

10、ic(v) Then MsgBox "輸入數(shù)據(jù)無效，請重新輸入，請輸入第" & i & "個數(shù)。", vbInformation v = InputBox("請輸入第" & i & "個整數(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.“過程應(yīng)用”菜單中包括“字符轉(zhuǎn)換”子菜單，單擊此菜單，彈出“字符轉(zhuǎn)換”對話框，如圖。所示，要求必須將“大小寫轉(zhuǎn)換”功能定義為一個sub過程，通過調(diào)用該過程完成大小寫轉(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ù)學運算”對話框，如圖所示。代碼如下：Dim a As Integer, b As Integer, c As IntegerPrivate Sub HScroll1_Change()a = HScroll1.ValueLabel1.Caption = "運算數(shù)1:" & " " & aEnd SubPrivate Sub HScroll2_Change()b = HScroll2.ValueLabel2.Caption =

17、 "運算數(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