實(shí)驗(yàn)4分支程序設(shè)計(jì)

《實(shí)驗(yàn)4分支程序設(shè)計(jì)》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在工程資料-天天文庫(kù)。

1、實(shí)驗(yàn)4分支程序設(shè)計(jì)實(shí)驗(yàn)?zāi)康模?.掌握VisualBasic的常量、變量的定義和使用。2.掌握各種表達(dá)式的使用。3.掌握各種標(biāo)準(zhǔn)函數(shù)的使用。4.常握分支結(jié)構(gòu)程序設(shè)計(jì)方法。實(shí)驗(yàn)4.1計(jì)算面積實(shí)驗(yàn)任務(wù)：1.設(shè)計(jì)程序界面如圖4?1所示，在窗體上先放置框架一個(gè)，然后將三個(gè)單選按鈕放置在框架中，放置兩個(gè)標(biāo)簽框、兩個(gè)文本框和兩個(gè)命令按鈕。2.選擇某種形狀的同時(shí)Label1動(dòng)態(tài)顯示相應(yīng)的“半徑”或“邊長(zhǎng)”。3.在Textl中輸入數(shù)值后，按確定按鈕，在Text2中顯示計(jì)算的面積。4.形狀轉(zhuǎn)換時(shí)，要清除前次結(jié)果(兩個(gè)文本框清空)，光標(biāo)聚焦Tex

2、tE5.按“退出”按鈕，結(jié)束運(yùn)行。圖4-1程序界面提示：可以根據(jù)單選按鈕的Value屬性進(jìn)行判斷，當(dāng)某個(gè)按鈕值為真時(shí)，則進(jìn)行與之相應(yīng)的計(jì)算。因此，可以使用分支結(jié)構(gòu)(If...Then)來(lái)實(shí)現(xiàn)條件判斷功能。實(shí)驗(yàn)步驟：1?屬性設(shè)置如下:控件名稱屬性名稱屬性值Label1Caption空Label2Caption面積TextlText空Text2Text空FrameCaption選擇形狀Option1Caption圓形Option2Caption正二角形Option3Caption正方形Command1Caption計(jì)算Comma

3、nd2Caption退出2.添加代碼OptionExplicitConstPiAsSingle=3.141593，Pi為“符號(hào)常量”類型，不可再次賦值PrivateSubOptionl_Click()Label1二”半徑“Textl=”“Text2=Text1.SetFocusEndSubPrivateSubOption2_Click()Label1=”邊長(zhǎng)“Textl=”“Text2=,n,Textl.SetFocusEndSubPrivateSubOption3_Click()'填寫(xiě)一段程序(可以模仿Oplion2_Cl

4、ick()中的代碼)EndSubPrivateSubCommand1_Click()DimrAsSingle,sAsSingler=Vai(Textl)IfOption1.Value二TrueThens=Pi*rA2IfOption2.Value=TrueThens=rA2*Sqr(3)/4IfThens=rA2Text2=sEndSubPrivateSubCommand3_Click()EndEndSub3.保存文件，調(diào)試運(yùn)行并記錄結(jié)果。提示：請(qǐng)妥善保存該程序，待到學(xué)會(huì)使用控件數(shù)組后，將三個(gè)Option按鈕用控件數(shù)組生成，

5、可以簡(jiǎn)化程序代碼。實(shí)驗(yàn)4.2登錄檢測(cè)實(shí)驗(yàn)任務(wù)：建立一個(gè)登錄窗口，要求輸入口令，假定口令為“Basic1234"0要求：1.輸入的口令在文本框中不可見(jiàn)，以替代；單擊“退出”按鈕時(shí)，結(jié)束運(yùn)行。2.單擊“確定”按鈕時(shí)，若輸入口令正確，顯示信息“祝賀你，成功登錄！”；否則顯示“對(duì)不起，口令錯(cuò)誤，無(wú)法登錄！”。圖4-2登錄界面及各種提示信息1.若三次登錄均不正確，顯示“對(duì)不起，你無(wú)權(quán)登錄該系統(tǒng)！”后結(jié)束整個(gè)應(yīng)用程序。注意：將文本框的PasswordChar屬性值設(shè)為“*”（只要一個(gè)星號(hào)），就可以星號(hào)替代鍵入的字符。實(shí)現(xiàn)上述功能不僅要使

6、用分支判斷語(yǔ)句對(duì)文本框的內(nèi)容進(jìn)行判斷，還需要定義一個(gè)整型變量N用作計(jì)數(shù)，其初值為0,登錄一次不正確，N就加1,如果N=3,則結(jié)束整個(gè)應(yīng)用程序。操作步驟：1.窗體設(shè)計(jì)，在窗體上放置一個(gè)Label控件、一個(gè)TextBox控件和兩個(gè)CommandButton按鈕，按照?qǐng)D4-2排列控件，設(shè)置控件大小。2.屬性設(shè)置缺省名稱屬性名稱屬性值窗體1Caption登錄nameLoginBorderStyle1-FixedSingle標(biāo)簽1NamelblPasswordAutoSizeTrueCaption輸入口令文本框1NametxtPass

7、wordText空PasswordChar*命令按鈕1NamecmdOkCaption確定DefaultTrue命令按鈕2NamecmdExitCaption退出3.添加代碼：OptionExplicitDimNAsInteger'N用來(lái)統(tǒng)計(jì)登錄次數(shù)，注意不能在過(guò)程中定義PrivateSubcmdOk_Click()Iftxtpassword.Text="Basic1234"ThenMsgBox”祝賀你，成功登錄！“’彈出消息框ElseN=N+1IfN=3ThenMsgBoxu對(duì)不起，你無(wú)權(quán)登錄該系統(tǒng)！”,vbExclama

8、lion'彈出消息框EndEndIfMsgBoxH對(duì)不起，口令錯(cuò)誤，無(wú)法登錄！",vbExclamation，彈出消息框txtpassword.Text=u"txtpassword.SetFocusEndIfEndSubPrivateSubcmdExit_Click()'退出EndEndS