VB實(shí)驗(yàn)報(bào)告7臺(tái)州學(xué)院.docVIP

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