VB實驗報告7參考模板

1、臺州學(xué)院VB程序設(shè)計實驗報告實驗七：常用控件班級：10物理2學(xué)號：姓名： 實驗日期：20111 / 12一、實驗?zāi)康暮鸵?掌握基本控件的重要屬性、事件；2熟練掌握在窗體上建立上述控件的操作方法；3熟練掌握事件過程代碼的編寫；4初步掌握建立基于圖形界面的應(yīng)用程序的過程。二、實驗主要儀器和設(shè)備計算機一臺，Windows XP操作系統(tǒng)，Visual Basic環(huán)境。三、實驗內(nèi)容實驗7.1 設(shè)計一個字體修飾的程序，界面如圖7-1所示。要求：框架1中有兩個復(fù)選框，可以選擇粗體和斜體對標簽中的文字進行修飾；框架2中有兩個單選按鈕，可以選擇宋體或楷體對標簽中的文字進行修飾；標簽Label1的文字內(nèi)容為“V

2、isual Basic 程序設(shè)計”，宋體，常規(guī)，三號；文字對齊方式為居中。圖7-1 字體修飾實驗7.2 設(shè)計一個點菜的程序，界面如圖7-2所示。要求：框架中的復(fù)選框提供可選擇的三種套餐，右邊的文本框中可以輸入數(shù)量；輸入時文本框只接受數(shù)字鍵；并且只有選取了相應(yīng)的套餐后才可以進行輸入；如果沒有選取套餐，那么文本框不能編輯并清空；單擊“確定”按鈕，統(tǒng)計點餐的金額，并用消息框顯示出來；圖7-2 點菜實驗7.3 設(shè)計一密碼修改程序，要求。1） 當單擊“確定”按鈕后，首先比較“用戶名”和“原密碼”是否一致，若一致且都為“admin”，則繼續(xù)執(zhí)行步驟2；否則彈出消息框，提示用戶出錯，并讓用戶重新輸入。2）

3、比較“新密碼(N) ”和“新密碼(S) ”，若兩者一致，彈出密碼修改成功消息框，程序終止執(zhí)行。否則彈出錯誤消息，并讓用戶重新輸入。3） 當單擊“取消”按鈕后，程序終止執(zhí)行。圖7-3 密碼修改實驗7.4（選做）設(shè)計一個撥號盤的程序。界面如圖7-4所示。要求：命令按鈕數(shù)組構(gòu)成數(shù)字鍵，單擊數(shù)字鍵按鈕，將撥號的內(nèi)容顯示在文本框Text1中；單擊“重撥”按鈕，再現(xiàn)原來的撥號過程；（提示：再現(xiàn)過程由定時器實現(xiàn)）定時器的時間間隔為0.5秒；設(shè)置文本框最多接受10個字符。圖7-4 撥號盤四、實驗原始紀錄實驗7.1程序的界面設(shè)計。程序代碼。 Private Sub Check1_Click()If Check1

4、.Value = 1 ThenLabel1.FontBold = TrueElseLabel1.FontBold = FalseEnd IfEnd SubPrivate Sub Check2_Click()If Check2.Value = 1 ThenLabel1.FontItalic = TrueElseLabel1.FontItalic = FalseEnd IfEnd SubPrivate Sub Option1_Click()Label1.FontName = Option1.CaptionEnd SubPrivate Sub Option2_Click()Label1.FontNa

5、me = Option2.CaptionEnd Sub實驗7.2程序的界面設(shè)計。程序代碼。Private Sub Check1_Click()If Check1.Value = 1 ThenText1.Enabled = TrueElseText1.Enabled = FalseText1.Text = ""End IfEnd SubPrivate Sub Check2_Click()If Check2.Value = 1 ThenText2.Enabled = TrueElseText2.Enabled = FalseText2.Text = ""En

6、d IfEnd SubPrivate Sub Check3_Click()If Check3.Value = 1 ThenText3.Enabled = TrueElseText3.Enabled = FalseText3.Text = ""End IfEnd SubPrivate Sub Command1_Click()Dim a As Integer, b As Integera = Val(Text1.Text) * 13 + Val(Text2.Text) * 18 + Val(Text3.Text) * 25b = MsgBox("總金額為"

7、& a & "元", vbInformation, "金額")End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0End SubPrivate Sub Text2_KeyPress(KeyAscii As Integer)If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0End SubPrivate Sub

8、Text3_KeyPress(KeyAscii As Integer)If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0End Sub實驗7.3程序的界面設(shè)計。程序代碼。Private Sub Command1_Click()a = Text1.Textb = Text2.Textc = Text3.Textd = Text4.TextIf (a = "admin") And (b = "admin") ThenIf c = d ThenMsgBox "密碼修改成功"El

9、seMsgBox "密碼輸入不一致，請重新輸入"Text3.Text = ""Text4.Text = ""End IfElseMsgBox "用戶名與密碼不一致，請重新輸入"Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""End IfEnd SubPrivate Sub Command2_Click()EndEnd Sub實驗7.4（選做）程序的界面設(shè)計。程序代碼

10、。Dim b As String, i As Integer, d As String, c As IntegerPrivate Sub Command1_Click(Index As Integer)Select Case IndexCase 0a = Text1.Text & 1Text1.Text = aCase 1a = Text1.Text & 2Text1.Text = aCase 2a = Text1.Text & 3Text1.Text = aCase 3a = Text1.Text & 4Text1.Text = aCase 4a = Text

11、1.Text & 5Text1.Text = aCase 5a = Text1.Text & 6Text1.Text = aCase 6a = Text1.Text & 7Text1.Text = aCase 7a = Text1.Text & 8Text1.Text = aCase 8a = Text1.Text & 9Text1.Text = aCase 9a = Text1.Text & 0Text1.Text = aEnd SelectEnd SubPrivate Sub Timer1_Timer()k = Len(b)i = i + 1c = Mid(b, i, 1)d = d & cIf i Mod k = 0 Then Timer1.Enabled = FalseText1.Text = dEnd SubPrivate Sub Command2_Click()b = Text1.TextText1