資源描述：
《VB程序設(shè)計(jì)-第4章VisualBasic語言程序結(jié)構(gòu)》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在教育資源-天天文庫。
1、VB程序設(shè)計(jì)第四章VisualBasic語言程序結(jié)構(gòu)第四章VisualBasic語言程序結(jié)構(gòu)本章知識(shí)點(diǎn)：順序結(jié)構(gòu)、選擇結(jié)構(gòu)和循環(huán)結(jié)構(gòu)，常用算法的應(yīng)用等。第四章VisualBasic語言程序結(jié)構(gòu)4.1順序結(jié)構(gòu)程序設(shè)計(jì)4.2選擇結(jié)構(gòu)程序設(shè)計(jì)4.3循環(huán)結(jié)構(gòu)程序設(shè)計(jì)4.4常用算法舉例第四章VisualBasic語言程序結(jié)構(gòu)4.1順序結(jié)構(gòu)程序設(shè)計(jì)4.1.1賦值語句賦值語句一般形式如下：變量名=表達(dá)式對(duì)象.屬性=表達(dá)式功能：完成表達(dá)式的計(jì)算，將計(jì)算結(jié)果賦值給等號(hào)左側(cè)的變量或?qū)ο蟮膶傩?。例如：x=1'把1賦給變量xText1.text="hello!"‘把字符串
2、"hello!"賦給文本框Text1的text屬性第四章VisualBasic語言程序結(jié)構(gòu)4.1順序結(jié)構(gòu)程序設(shè)計(jì)4.1.2數(shù)據(jù)輸入用戶主要通過三種方式實(shí)現(xiàn)數(shù)據(jù)輸入：使用文本框控件，使用系統(tǒng)提供的InputBox函數(shù)，使用磁盤數(shù)據(jù)文件。本節(jié)主要介紹InputBox函數(shù)。函數(shù)格式如下：變量名$=InputBox(提示信息，對(duì)話框標(biāo)題，缺省值)功能：彈出輸入對(duì)話框，供用戶輸入一個(gè)數(shù)據(jù)。其中：提示信息：是一個(gè)字符串表達(dá)式，最大長(zhǎng)度不超過1024個(gè)字符，要來提示用戶輸入相關(guān)內(nèi)容，可使用chr(13)+chr(10)實(shí)現(xiàn)換行。對(duì)話框標(biāo)題：是字符串表達(dá)式，可省略
3、，默認(rèn)為應(yīng)用程序名。缺省值：是顯示在對(duì)話框輸入?yún)^(qū)的默認(rèn)值。例如，Dimx%x=Val(InputBox("請(qǐng)輸入一個(gè)數(shù)","輸入框","100"))在屏幕上顯示如圖4.2所示的對(duì)話框:圖4.2InputBox對(duì)話框第四章VisualBasic語言程序結(jié)構(gòu)4.1順序結(jié)構(gòu)程序設(shè)計(jì)4.1.3數(shù)據(jù)輸出1）Print方法Print方法的一般格式如下：[對(duì)象名.]Print［Spc(n)
4、Tab(n)］[<輸出項(xiàng)>］[{，
5、；}]例如：PrintFormat(1234.5,"00000.00")PrintFormat(3.14159,"###.###")Pri
6、ntFormat(3.14159,"##%")PrintFormat(3.14159,"$(###.##)")PrintFormat(12345.6,"###.##E+")PrintFormat(0.123,"###.###e-")PrintFormat(date,"mm-dd-yy")PrintFormat(date,"yy年mm月dd")圖43例4.2執(zhí)行結(jié)果2.MsgBox函數(shù)和MsgBox方法函數(shù)形式：變量[%]=MsgBox（提示信息[，對(duì)話框類型][，標(biāo)題])（1）“標(biāo)題”和“提示信息”與InputBox函數(shù)中對(duì)應(yīng)的參數(shù)相同；（2）對(duì)話
7、框類型由“按鈕＋圖標(biāo)+缺省按鈕+模式”4項(xiàng)組成，是整型表達(dá)式，決定信息框按鈕數(shù)目、出現(xiàn)在信息框上的圖標(biāo)類型及操作模式如表4.1所示。表4.1分組內(nèi)部常數(shù)取值描述按鈕數(shù)目VBOKONLYVBokcancelVBabortretryignreVByesnocancelVByesnoVBretrycancel012345只顯示“確定”按鈕顯示“確定”及“取消”按鈕顯示“終止”、“重試”及“忽略”按鈕顯示“是”、“否”及“取消”按鈕顯示“是”及“否”按鈕顯示“重試”及“取消”按鈕圖標(biāo)類型VBCriticalVBQuestionVBExclamationVB
8、Information16324864“停止”圖標(biāo)“X”“問號(hào)”圖標(biāo)?“驚嘆號(hào)”圖標(biāo)!“信息”圖標(biāo)i默認(rèn)按鈕VBDefaultButton1VBDefaultButton2VBDefaultButton30256512第1個(gè)按鈕為默認(rèn)按鈕第2個(gè)按鈕為默認(rèn)按鈕第3個(gè)按鈕為默認(rèn)按鈕模式VBApplicationModelVBSystemModel04096應(yīng)用模式系統(tǒng)模式例如：i=Msgbox(“注意：你輸入的數(shù)據(jù)不正確”，2+48+0+0，“錯(cuò)誤提示”)，結(jié)果如圖4.4所示。圖4.4Msgbox對(duì)話框第四章VisualBasic語言程序結(jié)構(gòu)4.2選擇
9、結(jié)構(gòu)程序設(shè)計(jì)4.2.1IF語句1）If…Then語句(單分支結(jié)構(gòu))If<表達(dá)式>Then語句塊EndIf或：If<表達(dá)式>Then<語句>圖4.5選擇結(jié)構(gòu)流程圖例4.4設(shè)密碼。用IF語句來判定輸入密碼的正確性。PrivateSubCommand1_Click()DimaAsString,bAsStringa="111111"b=InputBox("請(qǐng)輸入密碼：","密碼對(duì)話框")Ifa=bThenMsgBox("密碼正確")EndIfEndSub2）If…Then…Else語句(雙分支結(jié)構(gòu))格式1：If<表達(dá)式>Then<語句塊1>Else<語句塊
10、2>EndIf格式2：If<表達(dá)式>Then<語句1>Else<語句2>例4.5計(jì)算下列分段函數(shù)的值分析：對(duì)于此分段函數(shù)，
