VB實驗報告7臺州學(xué)院.doc

臺州學(xué)院VB程序設(shè)計實驗報告實驗七：常用控件班級： 學(xué)號：姓名： 實驗日期： 一、實驗?zāi)康暮鸵?掌握基本控件的重要屬性、事件；2熟練掌握在窗體上建立上述控件的操作方法；3熟練掌握事件過程代碼的編寫；4初步掌握建立基于圖形界面的應(yīng)用程序的過程。二、實驗主要儀器和設(shè)備計算機(jī)一臺，Windows XP操作系統(tǒng)，Visual Basic環(huán)境。三、實驗內(nèi)容實驗7.1 設(shè)計一個字體修飾的程序，界面如圖7-1所示。要求：框架1中有兩個復(fù)選框，可以選擇粗體和斜體對標(biāo)簽中的文字進(jìn)行修飾；框架2中有兩個單選按鈕，可以選擇宋體或楷體對標(biāo)簽中的文字進(jìn)行修飾；標(biāo)簽Label1的文字內(nèi)容為“Visual Basic 程序設(shè)計”，宋體，常規(guī)，三號；文字對齊方式為居中。圖7-1 字體修飾實驗7.2 設(shè)計一個點菜的程序，界面如圖7-2所示。要求：框架中的復(fù)選框提供可選擇的三種套餐，右邊的文本框中可以輸入數(shù)量；輸入時文本框只接受數(shù)字鍵；并且只有選取了相應(yīng)的套餐后才可以進(jìn)行輸入；如果沒有選取套餐，那么文本框不能編輯并清空；單擊“確定”按鈕，統(tǒng)計點餐的金額，并用消息框顯示出來；圖7-2 點菜實驗7.3 設(shè)計一密碼修改程序，要求。1） 當(dāng)單擊“確定”按鈕后，首先比較“用戶名”和“原密碼”是否一致，若一致且都為“admin”，則繼續(xù)執(zhí)行步驟2；否則彈出消息框，提示用戶出錯，并讓用戶重新輸入。2） 比較“新密碼(N) ”和“新密碼(S) ”，若兩者一致，彈出密碼修改成功消息框，程序終止執(zhí)行。否則彈出錯誤消息，并讓用戶重新輸入。3） 當(dāng)單擊“取消”按鈕后，程序終止執(zhí)行。圖7-3 密碼修改實驗7.4（選做）設(shè)計一個撥號盤的程序。界面如圖7-4所示。要求：命令按鈕數(shù)組構(gòu)成數(shù)字鍵，單擊數(shù)字鍵按鈕，將撥號的內(nèi)容顯示在文本框Text1中；單擊“重?fù)堋卑粹o，再現(xiàn)原來的撥號過程；（提示：再現(xiàn)過程由定時器實現(xiàn)）定時器的時間間隔為0.5秒；設(shè)置文本框最多接受10個字符。圖7-4 撥號盤四、實驗原始紀(jì)錄實驗7.1程序的界面設(shè)計。程序代碼。Private Sub Check1_Click() If Check1.Value = 1 Then Label1.FontBold = True Else Label1.FontBold = False End IfEnd SubPrivate Sub Check2_Click() If Check2.Value = 1 Then Label1.FontItalic = True Else Label1.FontItalic = False End IfEnd SubPrivate Sub Option1_Click() Label1.FontName = 宋體End SubPrivate Sub Option2_Click() Label1.FontName = 楷體_GB2312End Sub 實驗7.2程序的界面設(shè)計。程序代碼。Private Sub Check1_Click(Index As Integer) If Check1(Index).Value = 0 Then Text1(Index).Enabled = FalseElse Text1(Index).Enabled = True Text1(Index).SetFocus End IfEnd SubPrivate Sub Command1_Click() Dim n As Integer, i As Integer For i = 0 To 2 If Check1(i).Value = 1 Then n = n + 13 * Val(Text1(i).Text) End If Next i MsgBox (您要付: & n & 元!)End SubPrivate Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer) If KeyAscii 57 Then KeyAscii = 0 End IfEnd Sub實驗7.3程序的界面設(shè)計。程序代碼。Private Sub Command1_Click() If Text1.Text = admin And Text2.Text = admin Then If Text3.Text = Text4.Text Then MsgBox 密碼修改成功。 End ElseMsgBox 輸入的新密碼不一致，請重新輸入。 End If Else MsgBox 用戶名或密碼錯誤，請重新輸入。 End IfEnd SubPrivate Sub Command2_Click() EndEnd Sub實驗7.4（選做）程序的界面設(shè)計。程序代碼。Dim s As String, step As IntegerPrivate Sub Command1_Click(Index As Integer) Text1.Text = Text1.Text + Command1(Index).CaptionEnd SubPrivate Sub Command2_Click() s = Text1.Text Text1.Text = step = 0 Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer() step = step + 1 If step = Len(s) Then Text1.Text = Text1.Text + Mid(s, step, 1) End IfEnd Sub五、實驗結(jié)果及分析實驗7.1運(yùn)行結(jié)果。實驗7.2運(yùn)行結(jié)果。實驗7.3運(yùn)行結(jié)果。 實驗7.4運(yùn)行結(jié)果。（選做）六、實驗總結(jié)與思考（主要寫一些在實驗過