VB課后練習(xí)及答案(遼寧工業(yè)大學(xué))

第二篇計(jì)算機(jī)軟件基礎(chǔ)實(shí)驗(yàn)一熟悉VisualBasic6.0編程環(huán)境【實(shí)驗(yàn)?zāi)康摹?1)熟悉VB集成開(kāi)發(fā)環(huán)境。(2)掌握建立、編輯和運(yùn)行一個(gè)VB應(yīng)用程序的全過(guò)程。(3)掌握窗體、文本框、標(biāo)簽和命令按鈕控件的基本屬性及其設(shè)置。(4)掌握窗體、文本框、標(biāo)簽和命令按鈕的應(yīng)用。(5)掌握每個(gè)控件的常用事件和方法?！緦?shí)驗(yàn)內(nèi)容】用事例介紹在VB集成環(huán)境下操作的整個(gè)過(guò)程。【1-1】用VB設(shè)計(jì)一個(gè)應(yīng)用程序,用鼠標(biāo)單擊窗體顯示文字’‘歡迎使用VisualBasic6.0!”,運(yùn)行程序的結(jié)果如圖1-1所示。圖程序運(yùn)行結(jié)果操作步驟:(1)建立工程選擇“文件”菜單的“新建工程”命令，打開(kāi)“新建工程”對(duì)話框，界面如圖1-2所示。r不r不耳鼻示這個(gè)對(duì)話悔op圖1-2“新建工程”對(duì)話框選擇“新建”選項(xiàng)卡,再選擇“標(biāo)準(zhǔn)EXE”,最后單擊“打開(kāi)”按鈕,新建一個(gè)默認(rèn)名稱為選擇“新建”選項(xiàng)卡,再選擇“標(biāo)準(zhǔn)EXE”,最后單擊“打開(kāi)”按鈕,新建一個(gè)默認(rèn)名稱為Forml的窗體,如圖!-3所示。程源理窗エ資管器口(2)設(shè)計(jì)界面在屬性窗口中,參照表1T設(shè)置窗體Forml各個(gè)屬性的值。表1-1窗體屬性的設(shè)置對(duì)象名稱屬性名屬性值說(shuō)明FormlCaption第一個(gè)VB程序設(shè)置窗體標(biāo)題Width5000窗體的寬度Height4000窗體的高度BackColor&HFF00&窗口背景顏色(綠)ForeColor&HFF0000&窗口顯示文字的顏色(藍(lán))Font隸書(shū),小三號(hào)，粗體窗體文字的字體、字號(hào)和字型AutoRedrawTrue解決Print顯示問(wèn)題MaxButtonFalse最大化按鈕是否可用MinButtonFalse最小化按鈕是否可用(3)編寫(xiě)源代碼雙擊窗體空白處,進(jìn)入代碼窗口,為窗體的鼠標(biāo)單擊事件編寫(xiě)事件過(guò)程代碼。PrivateSubForm_Click()Form1.Print”歡迎使畝VisualBasic6.0!"EndSub(4)調(diào)試運(yùn)行選擇“運(yùn)行”菜單的“啟動(dòng)”命令,或者單擊“標(biāo)準(zhǔn)”工具欄中的“啟動(dòng)”按鈕?,或者直接按F5鍵,運(yùn)行程序，檢查運(yùn)行結(jié)果是否正確。(5)保存工程和窗體選擇“文件”菜單的“保存Forml”命令，出現(xiàn)“文件另存為”對(duì)話框,如圖1-4所示,選擇好保存位置,文件名輸入“Ll.frm”，然后單擊“保存”按鈕。圖L4"文件另存為”對(duì)話框選擇“文件”菜單的“保存工程”命令,出現(xiàn)“工程另存為”對(duì)話框，如圖1-5所示。選擇好保存位置后，文件名輸入“IJ.vbp”，然后單擊“保存”按鈕。工程另存為 團(tuán)図保存在Q) |ロ1常用控件 二|?由ず囲?出1.1vbp文件名⑨：fijfvS [保存9]保存突發(fā)慶)：I工程文件(*.dp) 3取消ー幫助QDJ圖1-5"工程另存為”對(duì)話框工程文件保存后,隨后彈出“SourceCodeControl’消息框,詢問(wèn)是否把當(dāng)前工程添加到微軟的版本管理器中，單擊“No”按鈕即可。如果計(jì)算機(jī)上沒(méi)有安裝VisualSourceSafe則不會(huì)出現(xiàn)uSourceCodeControlw消息框。注意:由于ー個(gè)工程可能會(huì)有多種文件，如工程文件和窗體文件，這些文件集合在ー起才能構(gòu)成一個(gè)完整的應(yīng)用程序。因此,建議在保存工程時(shí)將同ー工程所有類型的文件存放在同一文件夾中，以便于修改和管理工程文件。保存VB工程文件的默認(rèn)路徑是VB98。(6)生成可執(zhí)行文件選擇“文件”菜單中的“生成工程l.exe”命令，在打開(kāi)的“生成工程”對(duì)話框中使用“工程l.exe”文件名，則工程就生成可以脫離VB環(huán)境的擴(kuò)展名為EXE的可執(zhí)行文件。注意:窗體的MDIChild屬性設(shè)置為False。否則無(wú)法運(yùn)行。[1-2j用VB設(shè)計(jì)ー個(gè)應(yīng)用程序，運(yùn)行結(jié)果如圖1-6所示。,標(biāo)簽控件的使用宿舍管理系統(tǒng)研制人:夏天版權(quán)所有(C)2012圖1-6“宿舍管理系統(tǒng)”運(yùn)行結(jié)果操作步驟：(1)新建一個(gè)工程,在窗體中，使用控件工具箱中的“標(biāo)簽”按鈕，分別創(chuàng)建3個(gè)標(biāo)簽控件。提示：按住Ctrl鍵的同時(shí)單擊工具箱中的“標(biāo)簽”按鈕，然后在窗口中可以拖曳出無(wú)數(shù)個(gè)標(biāo)簽;按ESC鍵取消。(2)在屬性窗口中,參照表1-2,分別設(shè)置窗體和控件各個(gè)屬性的值。

(3)按F5功能鍵,運(yùn)行該程序,觀察運(yùn)行效果。表1-2窗體及各控件屬性值設(shè)置對(duì)象名稱屬性名屬性值說(shuō)明FormlCaption標(biāo)簽控件的使用設(shè)置窗體的標(biāo)題Label1Caption宿舍管理系統(tǒng)第一個(gè)標(biāo)簽的內(nèi)容Font幼圓,小ー,粗體第一個(gè)標(biāo)簽字體ForeColor紅色第一個(gè)標(biāo)簽文字的顏色BackColor白色第?個(gè)標(biāo)簽文字背景色BackStyle1-Opaque(不透明)第一個(gè)標(biāo)簽背景不透明AutoSizeFalse不自動(dòng)調(diào)整標(biāo)簽大小y ?日一木y依J二川亠,1、?叫Label2Caption研制人:夏天第二個(gè)標(biāo)簽的內(nèi)容Font隸書(shū),二號(hào),粗體第二個(gè)標(biāo)簽字體名BackStyle〇?透明第二個(gè)標(biāo)簽背景透明AutoSizeTrue自動(dòng)調(diào)整標(biāo)簽與字的大小?致Label3Caption版權(quán)所有(C)2012第三個(gè)標(biāo)簽的內(nèi)容Font隸書(shū),三號(hào),粗體第三個(gè)標(biāo)簽字體名BackStyle〇?透明第三個(gè)標(biāo)簽背景透明AutoSizeTrue自動(dòng)調(diào)整標(biāo)簽與字的大小?致(1-3I用VB設(shè)計(jì)ー個(gè)應(yīng)用程序,運(yùn)行結(jié)果如圖1-7所示。?文本框校件的使用 匕コ回図用產(chǎn)茸錄系紇用戶名,隹而密碼, I*******圖1-7"用戶登錄系統(tǒng)”運(yùn)行結(jié)果操作步驟:(1)新建一個(gè)工程，在窗體中創(chuàng)建2個(gè)標(biāo)簽控件和3個(gè)文本框控件。(2)在屬性窗口中,參照表1-3,分別設(shè)置窗體和控件各個(gè)屬性的值。(3)按F5功能鍵,運(yùn)行該程序,觀察運(yùn)行效果。表1-3窗體及各控件屬性值設(shè)置

對(duì)象名稱屬性名屬性值說(shuō)明FormlCaption文本框控件的使用設(shè)置窗體的標(biāo)題BackColor&H00C0FFC0&設(shè)置窗體背景顏色LablelCaption用戶名:第一個(gè)標(biāo)簽的內(nèi)容Font宋體,小四，常規(guī)第一個(gè)標(biāo)簽字體BackStyle0-Transparent（透明）第一個(gè)標(biāo)簽背景透明AutoSizeTrue自動(dòng)調(diào)整標(biāo)簽與字的大小一致Lable2Caption密碼:第二個(gè)標(biāo)簽的內(nèi)容Font宋體,小四,常規(guī)第二個(gè)標(biāo)簽字體BackStyle0-Transparent（透明）第二個(gè)標(biāo)簽背景透明AutoSizeTrue自動(dòng)調(diào)整標(biāo)簽與字的大小一致TextlText用戶登錄系統(tǒng)設(shè)置和返回文本框內(nèi)容Alignment2-Center設(shè)置文字對(duì)齊方式Font隸書(shū)，四號(hào),粗體設(shè)置文本框字體、字號(hào)和字型Text2Text空設(shè)置和返冋文本框內(nèi)容Text3Text空PasswordChar*輸入的字符不顯示,而顯示?號(hào)【1-4】窗體的背景色。設(shè)計(jì)ー個(gè)如圖1-8所示的界面,單擊對(duì)應(yīng)的命令按鈕后可以改變窗體的背景顏色。?命令按鈕控制的使用 國(guó)回國(guó)，窗體背景顏色黃包| 虹2 saCQ退出<i>圖1-8窗體的背景色操作步驟:(1)新建一個(gè)工程,在窗體中添加1個(gè)標(biāo)簽控件和4個(gè)命令按鈕控件。調(diào)整各控件的相互位置，參照表1-4設(shè)置窗體和控件的各個(gè)屬性的值。表!-4窗體及控件屬性值的設(shè)置對(duì)象名稱屬性名屬性值說(shuō)明FormlCaption命令按鈕控件的使用設(shè)置窗體的標(biāo)題

Label1Caption窗體背景顏色設(shè)置標(biāo)簽的顯示內(nèi)容AutoSizeTrue自動(dòng)調(diào)整標(biāo)簽大小BackStyle〇一Transparent(透明)標(biāo)簽背景透明Font幼圓,三號(hào),粗體標(biāo)簽字體、字號(hào)和字型Command1Caption黃色設(shè)置命令按鈕標(biāo)題Command?Caption紅色設(shè)置命令按鈕標(biāo)題CommandsCaption綠色設(shè)置命令按鈕標(biāo)題Command4Caption退出(&E)設(shè)置命令按鈕標(biāo)題Style1-Graphical同時(shí)顯示圖片和文字PictureBOOK04.ICO裝入圖片(2)在“窗體布局”窗口中,單擊鼠標(biāo)右鍵,依次選擇快捷菜單中的“啟動(dòng)位置''——"屏幕中心”命令,可設(shè)置程序執(zhí)行時(shí)窗口在屏幕中央的位置,如圖1-9所示(或在“窗體布局”窗口中宜接將窗體移動(dòng)到中央)。設(shè)置窗體背景為黃色設(shè)置窗體背景為紅色設(shè)置窗體背景為綠色結(jié)束程序設(shè)置窗體背景為黃色設(shè)置窗體背景為紅色設(shè)置窗體背景為綠色結(jié)束程序圖1-9“窗口布局”窗口和快捷菜單(3)為4個(gè)命令按鈕的單擊事件編寫(xiě)事件過(guò)程代碼。Rem單擊“黃色”命令按鈕,PrivateSubCommandl_Click()Forml.BackColor=vbYellowEndSubRem單擊“紅色”命令按鈕,PrivateSubCommand2_Click()FormI.BackColor=vbRedEndSubRem單擊“綠色”命令按鈕,PrivateSubCommand3_Click()FormI.BackColor=vbGreenEndSubRem單擊“退出”命令按鈕,PrivateSubCommand4_Click()EndEndSub[1-5]在窗體上創(chuàng)建2個(gè)命令按鈕和1個(gè)文本框,ー個(gè)命令按鈕放大文本框內(nèi)的文字,另ー個(gè)命令按鈕縮小文本框內(nèi)的文字,運(yùn)行結(jié)果界面如圖1-10所示。?文本框控件的使用 匚I回I又國(guó)寧工業(yè)大學(xué)||放大1縮小圖!-10運(yùn)行界面操作步驟:(1)在窗體上創(chuàng)建1個(gè)文本框和2個(gè)命令按鈕。(2)參照表1?5設(shè)置窗體和控件的屬性。表1-5窗體及控件屬性值的設(shè)置對(duì)象名稱屬性名屬性值說(shuō)明FormlCaption文本框控件的使用設(shè)置窗體的標(biāo)題TextlText遼寧工業(yè)大學(xué)文本框內(nèi)顯示的內(nèi)容Alignment2-Center文本框內(nèi)顯示的內(nèi)容居中Command1Caption放大設(shè)置命令按鈕的標(biāo)題Command2Caption縮小設(shè)置命令按鈕的標(biāo)題(3)為2個(gè)命令:皮鈕的單擊事件編寫(xiě)事件過(guò)程代碼。Rem單擊“放大”命令按鈕,設(shè)置文本框字號(hào)為30PrivateSubCommandl_Click()Text1.FontSize=30EndSubRem單擊“縮小”命令按鈕,設(shè)置文本框字號(hào)為18PrivateSubCommand2_Click()Text1.FontSize=18EndSub【1-6】用VB設(shè)計(jì)ー個(gè)應(yīng)用程序,完成以下功能。(1)單擊“文字”命令按鈕,顯示出紅色文字“面向?qū)ο蟮某绦蛟O(shè)計(jì)語(yǔ)言——VB”,如圖1-12所示。(2)單擊“計(jì)算”命令按鈕,計(jì)算并顯示該門(mén)課程的學(xué)時(shí),如圖1-13所示。(3)“文字”命令按鈕和“計(jì)算”命令按鈕可以多次使用。(4)單擊“結(jié)束”命令按鈕,則結(jié)束程序的運(yùn)行。操作步驟:(1)單擊工具箱中的控件,在窗體設(shè)計(jì)窗口中添加一個(gè)標(biāo)簽和3個(gè)命令按鈕，如圖1T1所示。?Forallabell圖!-11應(yīng)用程序界面（2）設(shè)置每個(gè)對(duì)象（控件）的屬性如表1-6。表!-6窗體及各控件屬性值設(shè)置對(duì)象名屬性名屬性值說(shuō)明FormlAutoRedrawTrue解決Print顯示問(wèn)題ForeColor&HFF0000&窗口顯示文字的顏色（藍(lán)）BackColor&HFF00&窗口背景顏色（綠）LabellForeColor&HFF&標(biāo)簽文字的顏色（紅）Font隸書(shū),二號(hào)，粗體標(biāo)簽文字的字體設(shè)置Caption空BackStyle0-Transparent（透明）標(biāo)簽背景透明AutoSizeTrue自動(dòng)調(diào)整標(biāo)簽與字的大小Command1Caption文字第一個(gè)命令按鈕標(biāo)題名Command2Caption計(jì)算第二個(gè)命令按鈕標(biāo)題名Command3Caption結(jié)束第三個(gè)命令按鈕標(biāo)題名（3）輸入代碼代碼又稱為命令或者語(yǔ)句。?雙擊“文字”按鈕,進(jìn)入代碼窗口。PrivateSubCommandl_Click（） *Command!的Click（單擊）事件過(guò)程Forml.Cis’或CisLabell.Caption="面向?qū)ο蟪绦蛟O(shè)計(jì)ーVB"EndSub說(shuō)明:Forml表示窗體這個(gè)對(duì)象。Cis是ー個(gè)方法,功能是清除。因?yàn)椤拔淖帧焙汀坝?jì)算”兩個(gè)命令按鈕允許多次使用,為了不使結(jié)果在窗口上重復(fù)顯示,用Forml.Cis方法,清屏。

圖1-14加法運(yùn)算器操作步驟:（1）在窗體上創(chuàng)建3個(gè)標(biāo)簽，3個(gè)文本框和2個(gè)命令按鈕。（2）參照表1-7設(shè)置窗體和控件的屬性。表1-7窗體及控件屬性值的設(shè)置對(duì)象名稱屬性名屬性值說(shuō)明FormlCaption加法器窗體的標(biāo)題Label1Caption加法運(yùn)算器標(biāo)簽的顯示內(nèi)容Font楷體ーGB2312,粗體,小四標(biāo)簽內(nèi)文字的字體Label2Caption+標(biāo)簽的顯示內(nèi)容Label3Caption標(biāo)簽的顯示內(nèi)容Text1-3Text空文本框內(nèi)顯示的內(nèi)容Alignment2-Center文本框內(nèi)容居中顯示Command1Caption計(jì)算設(shè)置命令按鈕的標(biāo)題Command2Caption清除設(shè)置命令按鈕的標(biāo)題(3)為2個(gè)命令按鈕的單擊事件編寫(xiě)事件過(guò)程代碼。Rem單擊“計(jì)算”按鈕,進(jìn)行加法運(yùn)算PrivateSubCommandl_Click()Text3.Text=Val(Textl.Text)+Val(Text2.Text)'Va!函數(shù)，將數(shù)字字符串轉(zhuǎn)換為數(shù)值EndSubRem單擊“清除”按鈕,將3個(gè)文本框內(nèi)容清空PrivateSubCommand2_Click()Textl.Text=MMText2.Text="”Text3.Text二””Textl.SetFocusEndSub【作業(yè)】（1）在窗體上使用標(biāo)簽控件顯示文字“VB程序設(shè)計(jì)”,通過(guò)屬性窗口完成設(shè)置,要求:字體為黑色、28號(hào),前景色為紅色,標(biāo)簽?zāi)茏詣?dòng)調(diào)整大小,背景透明并帶有邊框,效果如圖1-15所示。

圖!-15設(shè)置標(biāo)簽屬性及其效果(2)“數(shù)學(xué)計(jì)算”程序。在窗體上添加2個(gè)命令按鈕、3個(gè)文本框和3個(gè)標(biāo)簽,界面設(shè)計(jì)如圖1-14所示。運(yùn)行程序后,要求單擊Commandl按鈕可以清除3個(gè)文本框的文字,在文本框Textl中輸入半徑值后,單擊Command2按鈕可以計(jì)算出圓的周長(zhǎng)、面積，并分別顯示到Text2、Text3中?？丶膶傩詤⒄?qǐng)D1-16進(jìn)行設(shè)置,部分屬性分別如下:標(biāo)簽的Font屬性均為“粗體、小四號(hào)”。文本框Text2和Text3的Locked屬性均為T(mén)rue〇True〇圖!-16數(shù)學(xué)計(jì)算源代碼:PrivateSubCommandl_Click()Textl.Text廿’"，清空文本框內(nèi)容Text2.Text="*'Text3.Text=""EndSubPrivateSubCommand2_Click()Text2.Text=str(2*3.14*Val(Textl.Text)),str函數(shù)將數(shù)值轉(zhuǎn)換為字符串Text3.Text=str(3.14*Val(Text1.Text)A2)EndSub實(shí)驗(yàn)二VisualBasic語(yǔ)句基礎(chǔ)【實(shí)驗(yàn)?zāi)康摹?1)掌握變量的數(shù)據(jù)類型定義、賦值、表達(dá)式和內(nèi)部函數(shù)的應(yīng)用。(2)進(jìn)ー步了解窗體(Form)、命令按鈕(CommandButton)、キ薇(Label)、嵬|框(TextBox)的使用?！緦?shí)驗(yàn)內(nèi)容】1、嘗試編寫(xiě)下列程序【27】設(shè)計(jì)ー個(gè)能實(shí)現(xiàn)計(jì)算《大學(xué)計(jì)算機(jī)基礎(chǔ)》課程期末綜合成績(jī)的簡(jiǎn)單程序,綜合成績(jī)二平時(shí)成績(jī)X20%+考試成績(jī)X80%〇,計(jì)算綜合成績(jī) 二I回區(qū)I考生姓名 考試成績(jī) 平時(shí)成績(jī)廬殼 |98 卩0,亮的綜合成績(jī)是96.4分［1計(jì)基J2-1運(yùn)行結(jié)果界面OptionExplicit '強(qiáng)制變量顯式定義PrivateSubCommandl_Click()DimzongheAsSingle,psAsSingle,ksAsSingle,變量定義DimxmAsStringxm=Textl.Text '數(shù)據(jù)輸入ks=Vai(Text2.Text)ps=Vai(Text3)zonghe=ks*0.8+ps*0.2 '數(shù)據(jù)的運(yùn)算處理Labe14.Caption=xm&”的綜合成績(jī)是"&zonghe&"分"EndSub【2-2】設(shè)有變量x%和y%,隨機(jī)產(chǎn)生兩個(gè)［1,10］之間的數(shù),計(jì)算x/y和x\y的值,試設(shè)計(jì)ー個(gè)簡(jiǎn)單的窗體。窗體裝入界面如圖2-2-!所示,運(yùn)行結(jié)果界面如圖2-2-2所示。

*Fosl13回區(qū)］2-2-1窗體裝入界面源代碼:Dimx%,*Fosl13回區(qū)］2-2-1窗體裝入界面源代碼:Dimx%,y%PrivateSubForm_Load()x=Int(Rnd*10+1)Textl.Text=Str(x)y=Int(Rnd*10+1)Text2.Text=Str(y)Text3.Text=Text4.Text=""2-2-2窗體運(yùn)行結(jié)果界面’在“通用”狀態(tài)下定義模塊變量,供幾個(gè)過(guò)程使用’產(chǎn)生［1,10］之間的數(shù)'str函數(shù),將數(shù)值型數(shù)據(jù)轉(zhuǎn)換為字符型’清除文本框內(nèi)容EndSubPrivateSubCommand1_C1ick()Text3.Text=x/yText4.Text=x\yEndSubPrivateSubCommand2_Click()Text3.Text="",文本框,文本框textl重新獲得焦點(diǎn)

'每次產(chǎn)生的隨機(jī)數(shù)不同Textl.SetFocusRandomizex=Int(Rnd*10+1)Textl.Text=Str(x)y=Int(Rnd*10+1)Text2.Text=Str(y)EndSubPrivateSubCommand3_Click()EndEndSub【2-3】隨機(jī)產(chǎn)生一個(gè)3位的整數(shù),然后逆序輸出,要求產(chǎn)生的數(shù)與逆序數(shù)都顯示。窗體設(shè)計(jì)界面如圖2-3T所示。運(yùn)行結(jié)果界面如圖2-3-2所示。!逆序給出 [30S.逆序吟出 國(guó)回區(qū)2-3-1窗體設(shè)計(jì)界面 2-3-2運(yùn)行結(jié)果界面源代碼:方法一OptionExplicit ,強(qiáng)制變量顯式定義DimaAsIntegerPrivateSubCommandl_Click()a=Int(Rnd*900+100)Text1.Text=a '或Text1.Text=str(a)Text2.Text=EndSubPrivateSubCommand2_Click()DimbAsInteger,al%,a2%,a3%al=a\100a2=a\10Mod10a3=aMod10b=a3*100+a2*10+al如果al或a2或a3為〇,則不準(zhǔn)確Text2.Text=Str(b)EndSub源代碼:方法二OptionExplicit 弓雖制變量顯式定義DimaAsIntegerPrivateSubCommandl_Click()

a=Int(Rnd*900+100)域Textl.Text=str(a)域Textl.Text=str(a)Text2.Text='M,EndSubPrivateSubCommand2_Click()’將數(shù)值型轉(zhuǎn)換為字符串型再去掉前后的空格DimbAsString,al$,a2$,a3$,s$’將數(shù)值型轉(zhuǎn)換為字符串型再去掉前后的空格s=Trim(Str(a))al=Left(s,1)a2=Mid(s,2,1)a3=Right(s,1)b=a3&a2&alText2.Text=bEndSub請(qǐng)輸入一個(gè)字母:大寫(xiě)顯示:大寫(xiě)顯示:小寫(xiě)顯示:小寫(xiě)顯示:?轉(zhuǎn)換[2-4]任意輸入一個(gè)字母,分別以大寫(xiě)字母和請(qǐng)輸入一個(gè)字母:大寫(xiě)顯示:大寫(xiě)顯示:小寫(xiě)顯示:小寫(xiě)顯示:?轉(zhuǎn)換[2-4]任意輸入一個(gè)字母,分別以大寫(xiě)字母和小寫(xiě)字母形式顯示。運(yùn)行結(jié)果界面如圖2-4所示。淸輸入一個(gè)字母:’文本框可以輸入字符的最大’文本框可以輸入字符的最大數(shù)Text3.Text=""，小寫(xiě)字母轉(zhuǎn)換為大寫(xiě)字母，大寫(xiě)字母轉(zhuǎn)換為小寫(xiě)字母圖2-4運(yùn)行結(jié)果界面源代碼:PrivateSubForm_Load()Textl.MaxLength=1Text1.Text二"“：Text2.Text二””EndSubPrivateSubCommandl_Click()DimsAsString*1s二Textl.TextText2.Text二UCase(s)Text3.Text二LCase(s)EndSubPrivateSubCommand2_Click()Textl.Text二””Text2.Text二””Text3.Text二””Textl.SetFocusEndSubPrivateSubCommand3_Click()EndEndSub[2-5](選作)制作一個(gè)倒計(jì)時(shí)牌,計(jì)算當(dāng)前到暑假所剩下的時(shí)間,并將時(shí)間分別以天周、月等為單位顯示。運(yùn)行結(jié)果如圖2-5所示。暑假日期:>012距離放假還有:2-5運(yùn)行結(jié)果界面提示:計(jì)算兩個(gè)時(shí)間之差可以使用DateDiff()函數(shù)。形式：DateDiff(間隔日期形式,日期1,日期2)。其中：間隔日期形式有“d”、"w”、“m”等,分別表示以天、周、月等作為單位函數(shù)返回值為：日期2-日期1源代碼：DimtimAsDatePrivateSubForm_Load()Text1.Text="2012"Text2.Text="7"Text3.Text="20":Text4.Text=""

tim=Text1.Text& &Text2.Text&丁'&Text3.TextEndSubPrivateSubCommandl_Click()Text4.Text=DateDiff(Mdu,Now,tim)EndSubPrivateSubCommand2_Click()Text4.Text=DateDiff("w",Now,tim)EndSubPrivateSubCommand3_Click()Text4.Text=DateDiff("m",Now,tim)EndSub[2-6]（選作）假設(shè)某電話系統(tǒng)按秒計(jì)費(fèi)（0.02元/秒）,編程實(shí)現(xiàn)其通話計(jì)費(fèi)程序。要求能夠顯示通話開(kāi)始時(shí)間、通話結(jié)束時(shí)間、通話時(shí)間以及通話費(fèi)。窗體設(shè)計(jì)界面如圖通話開(kāi)始時(shí)間:通話時(shí)間:開(kāi)始通話通話開(kāi)始時(shí)間:通話時(shí)間:開(kāi)始通話源代碼:Rem在代碼窗口選擇“通用”,聲明幾個(gè)模塊級(jí)變量供幾個(gè)事件過(guò)程共同使用通話開(kāi)始時(shí)間：通話結(jié)束時(shí)間:通話結(jié)束時(shí)間:DimtlAsDate,t2AsDate,t3AsDateRem按鈕Commandl的Click事件(通話開(kāi)始)過(guò)程代碼:PrivateSubCommand1_C1ick()tl=Time ’讀取通話開(kāi)始時(shí)間,并存入變量tl中Textl.Text=tl ’顯示通話開(kāi)始時(shí)間Text2.Text=" ’將文本框內(nèi)容清空Text3.Text=Text4.Text=

EndSubRem按鈕Command2的Click事件(通話結(jié)束)過(guò)程代碼:PrivateSubCommand2_Click()t2=TimeText2.Text=t2t3=t2-t1Text3.Text=t3Text4.Text=Second(t3)*0.02EndSub’讀取通話結(jié)朿時(shí)間,并存入變量t2中’讀取通話結(jié)朿時(shí)間,并存入變量t2中’顯示通話結(jié)束時(shí)間’計(jì)算通話時(shí)間’顯示通話時(shí)間’計(jì)算通話費(fèi),用second函數(shù)將時(shí)間轉(zhuǎn)換為妙(1)設(shè)有變量x=35,y=20,試設(shè)計(jì)一個(gè)如圖所示的窗體界面2-7-1,運(yùn)行結(jié)果界面如圖2-7-2、2-7-3所示,顯示相應(yīng)的值。*FosI畠回區(qū)）已知x=35,y=202-7-2窗體裝入結(jié)果圖?FolbI2-7-3計(jì)算結(jié)果圖源代碼:PrivateSubForm_Load() 11]__EndSub[2]PrivateSubCommandl_Click()[2]Dimxx=35y=20Text1.Text=x>yText2.Text=x>=yText3.Text=x=y [3] EndSubPrivateSubCommand2_Click() [4] EndSub(2)輸入圓半徑,計(jì)算圓面積。運(yùn)行結(jié)果如圖2-8所示。* 畠回區(qū)］淸輸入圓半徑:3!計(jì)菖: 結(jié)束2?8運(yùn)行結(jié)果界面源代碼:PrivateSubForm_Load()Textl.Text二””Text2.Text二””EndSubPrivateSubCommandl_Ciick()DimrAsSingle,areaAsSingleConstpi[1]r二Val(Textl.Text)area二r*r*piText2.Text二Str(area)EndSubPrivateSubCommand3_Click()EndEndSub實(shí)驗(yàn)三順序結(jié)構(gòu)【實(shí)驗(yàn)?zāi)康摹?1)掌握順序結(jié)構(gòu)程序執(zhí)行方式。(2)掌握InputBoxO和MsgBoxO函數(shù)的使用方法。(3)掌握Print方法以及與之相關(guān)的函數(shù)的使用方法。【實(shí)驗(yàn)內(nèi)容】1、嘗試編寫(xiě)下列程序［3-1］設(shè)有如下的人員名冊(cè):姓名年齡 職務(wù) 單位籍貫李爽25 科長(zhǎng) 勞資科遼寧趙旭40 處長(zhǎng) 科研處上海編程序顯示上面的表格(不顯示橫線)。輸出結(jié)果如圖3-1所示。I?Foral13叵區(qū)］へ員名單姓名年齡 職務(wù) 單位稽貫手夾科長(zhǎng) 25 勞資科遼寧3-1運(yùn)行結(jié)果界面源代碼:PrivateSubForm_Click()’字體類型‘字體大小’字體類型‘字體大小'用逗號(hào)分隔'字體類型'字體大小FontName二”華文新魏”FontSize=18PrintTab(20);”人員”，”名單”P(pán)rintFontName=”隸書(shū)”FontSize=16PrintSpc(5);"姓名";Tab(14);"年齡";Tab(23);"職務(wù)"；’ー個(gè)漢字占兩個(gè)字節(jié)PrintTab(32);"單位";Tab(40);"籍貫"PrintPrintPrintSpace$(5)&”李爽”;Spc(4);"科長(zhǎng)";Tab(23);"25";Spc(6);"勞資科";PrintSpace$(3)&"遼寧"EndSub【3-2】從鍵盤(pán)上輸入4個(gè)數(shù),編寫(xiě)程序,計(jì)算并輸出這4個(gè)數(shù)的和及平均值。通過(guò)InputBox函數(shù)輸入數(shù)據(jù),在窗體上顯示和及平均值。運(yùn)行結(jié)果如圖3-2所示。?數(shù)值格式化，-x?一■3-2 1一3-23-23-2図輸入輸入第二輸入第三輸入第四個(gè)數(shù)丨目定1_啰消_回|67123|78?數(shù)值格式化 ,回國(guó)[4個(gè)數(shù)的和為:2134個(gè)數(shù)的平均值為:53.253-2運(yùn)行結(jié)果界面源代碼:PrivateSubForm_Click()Dima%,b%,c%,d%,sum%,aver!a=VaRInputBox("輸入第一個(gè)數(shù)"))b=VaRInputBox("輸入第二個(gè)數(shù)"))c=Val(lnputBox("輸入第三個(gè)數(shù)"))d=Val(InputBox("輸入第四個(gè)數(shù)"))sum=a+b+c+d:aver=sum/4Print"所輸入的4個(gè)數(shù)分別為:";a,b,c,dPrint"4個(gè)數(shù)的和為:";sumPrint"4個(gè)數(shù)的平均值為:";averEndSub[3-3]用InputBox函數(shù)替代文本框?qū)崿F(xiàn)[2-1I中的“考試姓名”、“考試成績(jī)”和“平時(shí)成績(jī)”數(shù)據(jù)的輸入,本題的功能與【2-1】相同。程序運(yùn)行結(jié)果如圖3-3W所示,其中包括ー個(gè)PictureBox和一個(gè)Command。該工程項(xiàng)目的名稱為“3-3”。

姓名:王曉明姓名:王曉明考試成績(jī):88平時(shí)成鑽:90王曉明的綜合成績(jī)是:88.4分3-3-3”考試成績(jī)輸入框”對(duì)話框計(jì)苴3-3-4運(yùn)行結(jié)果界面源代碼:OptionExplicit 強(qiáng)制顯示聲明PrivateSubCommandl_Click()DimzongheAsSingle,psAsSingle,ksAsSingleDimxmAsString,strslAsString,strs2$strsl="請(qǐng)輸入考生姓名”+Chr(13)+Chr(10)+”然后單擊確定”Chr(13)+Chr(10)回車(chē)換行strs2="請(qǐng)輸入考試成績(jī)"+Chr(13)+Chr(10)+"然后單擊確定"xm=InputBox(strsl,"考生姓名輸入框"，"王曉明"，100,100)ps=Val(InputBox(strs2,"請(qǐng)輸入平時(shí)成績(jī)","90",,400))ks=Val(InputBox("考試成績(jī)輸入框",，，300,200))zonghe=ps*0.2+ks*0.8Picture1.PrintTab(5);"姓名:xmPicturel.Print"考試成績(jī):"；ksPicture].Print"平時(shí)成績(jī):"；psPicture1.Printxm&"的綜合成績(jī)是:"&zonghe&"分"EndSub[3-4]輸入矩形的長(zhǎng)和寬,然后輸出矩形的面積。要求采用InputBox函數(shù)和MsgBox函數(shù)結(jié)合的方式進(jìn)行輸入和輸出。運(yùn)行結(jié)果界面如圖3-4所示。3-43-4鹵給變量X賦值給變量相值F 3-4量確定為ヨ形的面積是:確定!|1取消|5|93-4運(yùn)行結(jié)果界面源代碼：PrivateSubCommandl_Click()DimxAsInteger,yAsInteger,areaAsIntegerx=Val(InputBox("給變量x賦值"))y=Val(InputBox("給變量y賦值"))area=x*yMsgBox"矩形的面積是："&areaEndSub2.填空題(1)寫(xiě)出下面事件過(guò)程測(cè)試數(shù)據(jù)的格式化輸出ー[1]源代碼：PrivateSubForm_Click()PrintSpc(10);Format(23456,"########**),PrintSpc(lO);Format(23456,"OOOOOOOO*')PrintPrintSpc(lO);Format(234.56,"OOOO.OO1'),PrintSpc(lO);Format(234.567,"####.##")PrintPrintSpc(lO);Format。2345.67,”###,##)’不輸出小數(shù)PrintSpc(l0);Format(12345.67,”####,#.#")’千位分隔符不可以放在小數(shù)點(diǎn)和第一個(gè)字符的前面PrintPrintSpc(lO);Formats2345.67J####,0.0”)，PrintSpc(lO);Format(123.4,,,$###.00M) 在數(shù)值前加$PrintPrintSpc(lO);Formate123.4,''?〇〇〇〇.##1"), 在數(shù)值前加“二號(hào),注意輸岀時(shí)小數(shù)位數(shù)PrintSpc(lO);FormateO.123,”0.0〇%”) ，數(shù)值以百分?jǐn)?shù)形式顯示PrintPrintSpc(lO);Formate12345.6，”〇.00e+00”)，數(shù)值以指數(shù)形式表示PrintFormat(123);Format(123) ，比較這兩行輸出結(jié)果PrintStr(123);Str(123)EndSub(2)在運(yùn)行下面程序時(shí),先后在兩個(gè)輸入對(duì)話框中輸入456和123,則輸出結(jié)果及數(shù)據(jù)類型是11]源代碼:PrivateSubForm_Click()a=InputBox(”輸入第一個(gè)數(shù)”)b=InputBoxe”輸入第二個(gè)數(shù)”)Printa+bEndSub(3)假定有如下窗體事件過(guò)程,程序運(yùn)行后,信息框標(biāo)題欄中顯示的信息是一【1】一PrivateSubCommandl_Click()a$二”MicrosoftVisualBasic*'b$=Right(a$,5)c$=Mid(a$,1,9)MsgBoxa$,34,b$,c$,5EndSub實(shí)驗(yàn)四選擇結(jié)構(gòu)(一)【實(shí)驗(yàn)?zāi)康摹?1)掌握單分支與雙分支條件語(yǔ)句的使用方法。(2)掌握多分支條件語(yǔ)句的使用方法?！緦?shí)驗(yàn)內(nèi)容】1、嘗試編寫(xiě)下列程序【1、嘗試編寫(xiě)下列程序【4-1】編寫(xiě)ー個(gè)程序,程序初始界面如圖4-1-1所示。程序運(yùn)行時(shí),單擊“開(kāi)始”按鈕,彈出如圖4-1-2所示的對(duì)話框,要求用戶任意輸入ー個(gè)整數(shù),程序自動(dòng)判斷其奇偶性,程序運(yùn)行時(shí),界面如圖4-1-3所示。圖4-1-3程序運(yùn)行結(jié)果源代碼:PrivateSubCommandl_CIick()Dima%,s$a=Val(InputBox("請(qǐng)輸入ー個(gè)整數(shù)”,“數(shù)據(jù)輸入”))可以省略Vai函數(shù)Ifa/2=a\2Then’或a/2=int(a/2)或amod2=0s=”整數(shù)”&a&”是偶數(shù)”MsgBoxs,65,”奇偶數(shù)判斷"’65=1+64,即顯示“確定”、“取消”按鈕和消息圖標(biāo)ElseMsgBox“整數(shù)"&a&”是奇數(shù)”,65,"奇偶數(shù)判斷"

EndSuhEndSuh源代碼:PrivateSubForm_Load()Text1.Text= 文本框內(nèi)容清空Text2.Text="”：Text3.Text=EndSubPrivateSubCommandl_Click()Dimx%,y%,t%x=Val(TextDimx%,y%,t%x=Val(Text1.Text)y=Val(Text2.Text)Ifx<yThent=x:將文本框中輸入的字符轉(zhuǎn)換為數(shù)值賦給x變量x=y:y=tText3.Text=nx=*&x&EndSub‘兩個(gè)變量?jī)?nèi)容交換&"yニ〃&y【4-3】任意輸入3個(gè)數(shù),比較其大小,并輸出其中最大值。執(zhí)行結(jié)果界面如圖4-3。實(shí)驗(yàn)四選擇結(jié)構(gòu)(一) 把源代碼:方法一PrivateSubForm_Load()Text1.Text二"“：Text2.Text二"”：Text3.Text="”：Text4.Text二””EndSubPrivateSubCommandl_Click()Dima%,b%,c%,max%a=Val(Textl.Text)’將文本框中輸入的字符轉(zhuǎn)換為數(shù)值賦給a變量b二Val(Text2.Text)c二Val(Text3.Text)Ifa>bThenmax二aElsemax二bEndIfIfc>maxThenmax二cText4.Text二Str(max)EndSub源代碼:方法二PrivateSubForm_Load()Textl.Text二””：Text2.Text二””：Text3.Text二””：Text4.Text二””EndSubPrivateSubCommandl_Click()Dima%,b%,c%,max%a=Val(Textl.Text)’將文本框中輸入的字符轉(zhuǎn)換為數(shù)值賦給a變量b二Val(Text2.Text)c二Vai(Text3.Text)max=IIf(a>b,a,b)max二Hf(c>max,c,max)Text4.Text二Str(max)EndSub【4-4】字符分類,輸入一個(gè)字符,判斷輸入的字符屬于哪ー類別,并在相應(yīng)的文本框中顯示。要限制文本框中只輸入長(zhǎng)度為1的字符。運(yùn)行結(jié)果界面如圖4-4所示。?字符分類 |3回區(qū)］圖4-4字符分類運(yùn)行界面源代碼:PrivateSubForm_Load()Text1.Text= 文本框內(nèi)容清空Text2.Text=Text3.Text=Text4.Text二””Text1.MaxLength=「文本框中輸入長(zhǎng)度為1的字符EndSubPrivateSubCommandl_Click()Dims$s=Text1.Text ，將文本框中輸入的字符賦給s變量Ifs>=”a”Andsv=”z”O(jiān)rs>=”A"Ands<=HZHThenText2.Text=sElselfs>=”〇”Andsv=”9"ThenText3.Text=sElseText4.Text=sEndIfEndSub2、程序填空(1)在購(gòu)買(mǎi)某物品時(shí),若所花的錢(qián)數(shù)x在下述范圍內(nèi),所付錢(qián)數(shù)y按對(duì)應(yīng)折扣支付如下:rX, X<1000I0.9x, 1000くXV20000.8x, 2000Wxく30000.7x,x23000輸入顧客的購(gòu)物金額,計(jì)算并顯示顧客的實(shí)際應(yīng)付金額。運(yùn)行結(jié)果界面如圖4-5所示。;商品貨款系統(tǒng) 匚I回ス輸入折扣前貨款:3000折扣后貨款:寫(xiě)十篁貨款;圖4-5運(yùn)行結(jié)果界面源代碼:方法一PrivateSubForm_Load()Text1.Text=""：Text2.Text二"”EndSubPrivateSubCommandl_Click()Dimx!,y!x=Val(Textl.Text)’將文本框中輸入的字符轉(zhuǎn)換為數(shù)值賦給a變量Ifx<1000Theny=xElseIfx<2000Theny=0.9*xElseIfx<3000Theny=0.8*xElsey=0.7*xEndIfText2.Text=str(y)EndSub源代碼:方法二PrivateSubForm_Load()Text1.Text= Text2.Text=m,EndSubPrivateSubCommandl_Click()Dimx!,y!x=Val(Textl.Text)’將文本框中輸入的字符轉(zhuǎn)換為數(shù)值賦給a變量Ifx<1000Theny二xElself[1]Theny=0.9*xElself12]Theny=0.8*xElsey=0.7*xEndIfText2.Text=yEndSub⑵利用InputBox。函數(shù)輸入三角形三條邊的長(zhǎng)度a,b,c?如果能構(gòu)成三角形,計(jì)算并顯示三角形的面積。提示:三角形面積公式:s= area=s(s-a)(s-b)(s-c)雙擊窗體,編寫(xiě)窗體的Click事件過(guò)程代碼:PrivateSubForm_Click()DimaAsSingle,bAsSingle,cAsSingleDimsAsSingle,areaAsSinglea=Val(InputBox("請(qǐng)輸入邊長(zhǎng)a:"))b=Val(InputBox(“請(qǐng)輸入邊長(zhǎng)b:"))c=Val(InputBox("請(qǐng)輸入邊長(zhǎng)c:''))If[1]Thens=(a+b+c)/2area=[2]PrintTab(5);"a"；Tab(13);"b"；Tab(21);ncn;Tab(29);narea"PrintTab(4);a;Tab(12);b;Tab(20);c;Tab(28);areaElsePrint”不能構(gòu)成三角形”EndIfEndSub⑶輸入一個(gè)年份,判斷它是否為閏年,并顯示是否是閏年的有關(guān)信息。判斷閏年的條件是：年份能被4整除但不能被100整除,或者能被400整除。源代碼:PrivateSubCommandl_Click()Dimy%y=InputBox（"任意輸入一個(gè)年份"）If[1]OryMod400=0ThenMsgBoxy&"年是閨年",64ElseMsgBoxy&”年是平年”,48EndIfEndSub實(shí)驗(yàn)五選擇結(jié)構(gòu)(二)【實(shí)驗(yàn)?zāi)康摹?1)掌握SelectCase語(yǔ)句的使用方法。(2)掌握SelectCase語(yǔ)句與多分支條件語(yǔ)句的區(qū)別?！緦?shí)驗(yàn)內(nèi)容】1、嘗試編寫(xiě)下列程序[5-1]將實(shí)驗(yàn)四填空1第一種方法使用SelectCase/EndSelect來(lái)完成。源代碼:PrivateSubForm_Load()Text1.Text二"“：Text2.Text=””EndSubPrivateSubCommandl_Click()Dimx!?y!x=Val(Textl.Text)SelectCasexCaseIs<1000y=xCaseIs<2000y=0.9*xCaseIs<3000y=0.8*xCaseElsey=0.7*xEndSelectText2.Text=yEndSub【5-2】從鍵盤(pán)上輸入ー個(gè)字母或ー個(gè)。~9的數(shù)字,編寫(xiě)程序?qū)ζ溥M(jìn)行分類。運(yùn)行界面如圖5-1所示。5-2?字符分類系統(tǒng) 匚石図「対字椅分獎(jiǎng)J?入ー個(gè)字符盤(pán)AMー個(gè)大寫(xiě)字母AL對(duì)字符分類1IA 1 5-1運(yùn)行結(jié)果界面

源代碼:PrivateSubCommandl_CIick（）DimmgCis’再次輸入數(shù)據(jù)前,清除原來(lái)窗體上顯示的結(jié)果mg=InputBox（"輸入一個(gè)字符”）SelectCasemgCaseHaMToPrint”輸入的是ー個(gè)小寫(xiě)字母”&mgCase”A“To”Z”P(pán)rint”輸入的是ー個(gè)大寫(xiě)字母”&mgCase”〇”To”9”P(pán)rint”輸入的是ー個(gè)數(shù)字”&mgEndSelectEndSubPrivateSubCommandl_Click()Dimx!,y!x=Val(Text1.Text)SelectCasexCaseIs>20y=X*X+3*X+2Case10to20y=Sqr(3*x)-2Caseelsey=1/x+Abs(x)EndSelectMsgBox("y="&y)EndSub[5-4選作】任意輸入一個(gè)月份,根據(jù)月份來(lái)判斷是什么季節(jié)。運(yùn)行結(jié)果界面如圖5-3所示。5-4 懸?Foi! 底］叵!區(qū)!5-3運(yùn)行結(jié)果界面源代碼:PrivateSubForm_Click()Dimmm%mm=InputBox("輸入月份”)SelectCasemmCase3,4,5Printmm&”月份是春季"Case6To8Printmm&”月份是夏季"Case9To11Printmm&"月份是秋季"Case12,1,2 ，注意這里不能寫(xiě)成!2to2Printmm&"月份是冬季"EndSelectEndSub2、程序填空⑴根據(jù)輸入的學(xué)生成績(jī),判斷其成績(jī)等級(jí):10〇?90分為優(yōu)秀,89?80分為良好,79?70分成績(jī)?yōu)橹械?69-60分成績(jī)?yōu)榧案瘢?0分以下成績(jī)?yōu)椴患案?。運(yùn)行結(jié)果界面如圖5-5所示。?學(xué)生成例斷 |3回図判斷學(xué)生成噴的等鈑學(xué)生的成潰 89成雄良好圖5?5運(yùn)行結(jié)果界面PrivateSubTextl_KeyPress(KeyAsciiAsInteger)Dims%s=Vai(Textl.Text)IfKeyAscii=13Then ，表示按回車(chē)鍵時(shí),輸入結(jié)束Ifs>=90ThenLabel3.Caption=”成績(jī)優(yōu)秀”Elselfs>=80ThenLabe13.Caption="成績(jī)良好"Elselfs>=70ThenLabel3.Caption="成績(jī)中等”Elselfs>=60ThenLabel3.Caption="成績(jī)及格”ElseLabel3.Caption="成績(jī)不及格”EndIfEndIfEndSub下面用SelectCase結(jié)構(gòu)改寫(xiě)上述程序,實(shí)現(xiàn)同樣的功能。PrivateSubTextl_KeyPress(KeyAsciiAsInteger)Dims%s=Val(Textl.Text)IfKeyAscii=13Then 判斷是否按回車(chē)SelectCasesCase[11>=90Label3.Caption="成績(jī)優(yōu)秀"Case80to89Label3.Caption="成績(jī)良好"Case70to79Label3.Caption="成績(jī)中等"

Case[2]>=60Label3.Caption="成績(jī)及格"CaseElseLabel3.Caption="成績(jī)不及格"EndSelectEndIfEndSub(2)邊輸入字母,邊分別統(tǒng)計(jì)元音字母和其他字母的個(gè)數(shù),宜到按下Enter健結(jié)束,并顯示統(tǒng)計(jì)結(jié)果，不區(qū)分字母大小寫(xiě)。運(yùn)行結(jié)果界面如下圖5-6所示。其中x存放元音字母?jìng)€(gè)數(shù),y存放其他字母?jìng)€(gè)數(shù)。兀音字母有:耳它字母有:兀音字母有:耳它字母有:圖5-6運(yùn)行結(jié)果界面Dimx%,y%'定義全局變量PrivateSubTextl_KeyPress(KeyAsciiAsInteger)DimcAsString*1c=UCase(Chr(KeyAscii))'Chr(KeyAscii)功能為;將KeyAscii轉(zhuǎn)換為字符Ifc>=“A”Andcv= ThenSelectCasecCase [1]x=x+1Case[2]y=y+1EndSelectEndIfIf[3]Then，如果輸入的是EnterPrint”元音字母有:";x;“個(gè)“Print”其它字母有:";y;”個(gè)“EndIfEndSub實(shí)驗(yàn)六循環(huán)結(jié)構(gòu)（一）【實(shí)驗(yàn)?zāi)康摹浚?）熟悉掌握f(shuō)or……next循環(huán)語(yǔ)句的結(jié)構(gòu)、執(zhí)行過(guò)程;（2）學(xué)會(huì)確定循環(huán)條件和循環(huán)體;（3）理解死循環(huán)的概念?！緦?shí)驗(yàn)內(nèi)容】1、嘗試編寫(xiě)下列程序【例6-1】求1+2+3+4+……+100的和。程序運(yùn)行界面如圖6-1所示;現(xiàn)に100的和 E0叵］岡s= 5050圖6-1程序運(yùn)行界面源代碼:PrivateSubForm_Click()Dims%,i%s=0Fori=1To100s=s+iNextiPrint"s=,,?sEndSub舉一反三【64】求!+3+5+7+ +99的和。結(jié)果2500〇【例6-2】求1ー丄+丄ー丄+ —L的值。程序運(yùn)行界面如圖6-2所示;357 996-2程序運(yùn)行界面源代碼:PrivateSubCommandl_Click()DimsAsSingle,nAsInteger,fAsIntegers=0f=1Forn=1To99Step2s=s+f/nf=-fNextnPrint"s=”,sEndSub舉一反三L6-2］求 1 F 的值,結(jié)果:.1337543。5101520 100【例6-3］求1!+2!+3!+ +n!的和。程序運(yùn)行界面如圖6-3所示:曇階乗和 口叵國(guó),n值 卩 結(jié)果嚴(yán)計(jì)苴6-3程序運(yùn)行界面源代碼：

PrivateSubCommandl_Click()DimsAsLong,iAsInteger,nAsInteger,tAsLongs=0t=1n=Val(Text1.Text)Fori=1Tont=t*iNextiText2.Text=Str(s)EndSub【6-3】求1!dH F…H的和,如當(dāng)n為9時(shí),結(jié)果為1.718281〇2!3!n\【例6?】輸入任意一個(gè)三位正整數(shù),輸出1ー該數(shù)中能被3和5同時(shí)整除的數(shù)及其個(gè)數(shù)。程序運(yùn)行界面如圖6-4所示:?For*l輸入ー個(gè)任意三位正整數(shù):輸入ー個(gè)任意三位正整數(shù):滿足條件的數(shù)的滿足條件的數(shù)的個(gè)數(shù):1530456075901051201351501651801952102252402552702853003153303456-4程序運(yùn)行界面對(duì)窗體上控件的屬性進(jìn)行設(shè)置,如表6-1所示。表6?1控件屬性設(shè)置控件屬性屬性值Text2MultilineTrue源代碼:

PrivateSubCommandl_Click()Dimx%,i%,n%Text2.Text=,H,n=0x=Val(Text1.Text)Fori=1ToxIfiMod3=0AndiMod5=0ThenText2.Text=Text2.Text+Str(i)n=n+1EndIfNextText3=Str(n)EndSub【6-4】輸入任意一個(gè)三位正整數(shù),輸出1?該數(shù)以內(nèi)所有能同時(shí)滿足用3除余2,用5除余3,用7除余2的所有整數(shù)并統(tǒng)計(jì)出個(gè)數(shù)。(例(例6-5I求s=a+aa+aaa+aaaa+（最后一項(xiàng)為n個(gè)a）,加a,n由文本框輸入。如n為n為5,則s=2+22+222+2222+22222。程序運(yùn)行界面如圖6-5所示:a為2,源代碼:PrivateSubCommandl_Click()Dimn%,i%DimsAsLong,tAsLong,aAsLongn=Val(Textl.Text)a=Val(Text2.Text)s=0t=aFori=1Tont=t*10+aNextiText3.Text=Str（s）EndSub⑨舉一反三[6-5I編寫(xiě)ー個(gè)程序,將一個(gè)3位的十進(jìn)制整數(shù)按倒序形式輸出。例如,若輸入569,則輸出965〇2、程序填空（1）分別求100以內(nèi)奇數(shù)和ワ偶數(shù)和。程序運(yùn)行界面如圖6-6所示:PrivateSubCommandl_Click()Dims%,i%s=0Fori=1To99Step[1] [2] Text1.Text=Str(s)EndSubPrivateSubCommand2_Click()Dims%,i% [3] Fori=1To100If[4]Thens=s+iEndIf實(shí)驗(yàn)六循環(huán)結(jié)構(gòu)(一)Text2.Text=Str(s)EndSub(3)輸入一行字符,分別統(tǒng)計(jì)出其中英文字母、空格、數(shù)字和其他字符的個(gè)數(shù)。程序?qū)嶒?yàn)六循環(huán)結(jié)構(gòu)(一)Text2.Text=Str(s)EndSub(3)輸入一行字符,分別統(tǒng)計(jì)出其中英文字母、空格、數(shù)字和其他字符的個(gè)數(shù)。程序運(yùn)行界面如圖6-8所示Nexti(2)求fibonacci數(shù)列前20項(xiàng)及其和值。Fibonacci數(shù)列:11235813程序運(yùn)行界面如圖6?7所示:源代碼圖6-7程序運(yùn)行界面PrivateSubCommandl_Click()DimflAsLong,f2AsLong,sAsLongfl= [1] Text1.Text=Textl.Text+Str(fl)+Str(f2)s=s+f1+f2Text2.Text=Str(s)EndSub白bonacci數(shù)列前20項(xiàng)1771011235813213455891442333776109871597258441816765源代碼:PrivateSubCommand1_Click()DimcAsString*1,tAsStringDimletters%,space%,digit%,others%,i%letters=0space=0digit=Oothers=0t=Text1.TextFori=lto[1]c=Mid(t,i,l)IfLcase(c)>=''a''AndLcase(c)くゴz"Thenletters=letters+lElselfcゴ"Thenspace=[2]Elself[3]Thendigit=digit+l—[4]others=others+1EndIf [5] Text2.Text=Str(letters)Text3.Text=Str(space)Text4.Text=Str(digit):Text5.Text=Str(others)EndSub

【實(shí)驗(yàn)?zāi)康摹繉?shí)驗(yàn)七循環(huán)結(jié)構(gòu)（二）熟練掌握d~loop循環(huán)語(yǔ)句的結(jié)構(gòu)、執(zhí)行過(guò)程?！緦?shí)驗(yàn)?zāi)康摹繉?shí)驗(yàn)七循環(huán)結(jié)構(gòu)（二）熟練掌握d~loop循環(huán)語(yǔ)句的結(jié)構(gòu)、執(zhí)行過(guò)程。學(xué)會(huì)確定循環(huán)條件和循環(huán)體。掌握while和unti!語(yǔ)句的區(qū)別。熟練掌握while-Wend循環(huán)語(yǔ)句的結(jié)構(gòu)、執(zhí)行過(guò)程?！緦?shí)驗(yàn)內(nèi)容】1、嘗試編寫(xiě)下列程序如圖7-1所示:源代碼:PrivateSubCommandl_Click()DimsAsSingle,nAsInteger,iAsInteger,fAsIntegers=0f=1i二!n=Val(Text1.Text)DoWhilei<=ns=s+f/if=-fi=i+2LoopText2.Text=Str(s)EndSub—（如n為9,則輸出:0.3728174。2【例7-2]根據(jù)公式求ル值:一=14 F—x1"—X—XF2 33小于10.6為止。程序運(yùn)行界面如圖7?2所示:源代碼:PrivateSubCommandl_Click()DimsAsSingle,iAsInteger,tAsSingles=0t=1i=1DoUntilt<0.000001t=t*i/（2*i+1）i=i+1LoopText1.Text=Str（2*s）EndSub舉一反三13 5 7[7-2]^s=—+-+—+--+……,直到最后ー項(xiàng)的值小于10一5為止,程序1x22x33x44x5運(yùn)行結(jié)果:22.56547?！纠?-3】輸入ー批學(xué)生的成績(jī)（以負(fù)數(shù)為結(jié)束標(biāo)志）,計(jì)算平均分并統(tǒng)計(jì)不及格成績(jī)的人數(shù)。（輸入數(shù)據(jù)用InputBox函數(shù)）。程序運(yùn)行界面如圖7-3所示：源代碼:PrivateSubCommand1_Click()DimxAsSingle,averAsSingle,nAsInteger,mAsIntegerx=InputBox(”請(qǐng)輸入成績(jī):")aver=0n=0m=0Whilex>=0aver=aver+xIfx<60Thenn=n+1EndIfm=m+1x=InputBox(”請(qǐng)輸入下ー個(gè)成績(jī):n)Wendaver=aver/mText1.Text=Str(aver)Text2.Text=Str(n)EndSub[7-3]讀入ー批正整數(shù)（以零或負(fù)數(shù)為結(jié)束標(biāo)志）,求其中的奇數(shù)和?！纠?イ】輸入ー個(gè)正整數(shù),求它的位數(shù)。程序運(yùn)行界面如圖7-4所示:與Fosl 畠回區(qū)）輸入n： 987n的位數(shù)，統(tǒng)計(jì)圖7?4程序運(yùn)行界面源代碼:PrivateSubCommandl_Click()DimnAsLong,mAsInteger,aAsIntegerm=0n=Val(Text1.Text)Doa=nmod10m=m+1n=n\10LoopWhilenText2.Text=Str(m)EndSub舉一反三[7-4j輸入ー個(gè)正整數(shù),求它的位數(shù)及各位數(shù)字之和。2、程序填空(1)編寫(xiě)程序求sum=l+2+3+……n,求使其和值剛好大于等于1000時(shí)的n值并輸出。程序運(yùn)行界面如圖7-5所示:實(shí)驗(yàn)七循環(huán)結(jié)構(gòu)(二)

圖7-5程序運(yùn)行界面PrivateSubCommandl_Click()DimSumAsInteger,nAsInteger [1] n=lDo[2]Sum=Sum+n ⑶ LoopText1.Text=str(n-1)EndSub(2)輸入若干學(xué)生成績(jī),統(tǒng)計(jì)并輸出最高分和最低分,當(dāng)輸入負(fù)數(shù)時(shí)結(jié)朿輸入。當(dāng)輸入:78,90,67,74,34,68,52,-5時(shí),程序運(yùn)行界面如圖7-6所示:金最低分 |3回區(qū)］最高分,, 最低分:廣統(tǒng)計(jì)源代碼:PrivateSubCommandl_Click()DimxAsSingle,maxAsSingle,minAsSinglex=InputBox(”請(qǐng)輸入成績(jī):")max=[1]min=12]DoWhile[3]Ifx>maxThenmax=xEndIfIf[4]Thenmin=xEndIfx=InputBox("請(qǐng)輸入下ー個(gè)成績(jī):M) [5] Text!.Text=Str(max)Text2.Text=Str(min)EndSub實(shí)驗(yàn)ハ循環(huán)結(jié)構(gòu)(三)【實(shí)驗(yàn)?zāi)康摹?1)進(jìn)ー步掌握用循環(huán)編寫(xiě)程序的方法;(2)熟練掌握循環(huán)嵌套的程序設(shè)計(jì)方法;(3)掌握exitfor和exitdo語(yǔ)句的使用?！緦?shí)驗(yàn)內(nèi)容】1、嘗試編寫(xiě)下列程序【例8-1］運(yùn)行程序使之輸出如下圖形。程序運(yùn)行界面如圖8-1所示:＞打印圖形 ゴ回區(qū);****************顯ホ圖形圖8-!程序運(yùn)行結(jié)果源代碼:PrivateSubCommandl_Click()PrintFori=IT08PrintSpace(10+i);‘實(shí)現(xiàn)字母前面的空格數(shù)Forj=1To8PrintH*M;NextjPrintNextiEndSub。舉一反三[8-1j運(yùn)行程序使之輸出如下8-2圖形。,打印圖形畠同岡**************** !顯示圖形********圖8-2打印圖形程序運(yùn)行界面【例8-2】運(yùn)行程序使之輸出如下圖形。程序運(yùn)行界面如圖8-3所示:導(dǎo)打印圖形 。間區(qū)************* 顯示圖形圖8?3打印圖形程序運(yùn)行界面源代碼:PrivateSubCommand1_Click()Fori=1To9Forj=lto20ービ實(shí)現(xiàn)字母前面的空格數(shù),使輸出呈梯形Print64NextjForj=1To2*i-1Printn*";NextjPrintNextiEndSubFori實(shí)驗(yàn)ハ循環(huán)結(jié)構(gòu)（三）舉一反三[8-2I運(yùn)行程序使之輸出如下圖形。程序運(yùn)行界面如圖8-4所示:圖8-4打印圖形程序運(yùn)行界面【例8-3】輸入ー個(gè)數(shù),判斷該數(shù)是否為素?cái)?shù)。程序運(yùn)行界面如圖8-5所示:Fori實(shí)驗(yàn)ハ循環(huán)結(jié)構(gòu)（三）舉一反三[8-2I運(yùn)行程序使之輸出如下圖形。程序運(yùn)行界面如圖8-4所示:圖8-4打印圖形程序運(yùn)行界面【例8-3】輸入ー個(gè)數(shù),判斷該數(shù)是否為素?cái)?shù)。程序運(yùn)行界面如圖8-5所示:源代碼:PrivateSubCommandl_Click()Dimn%,i%n=val(Textl.Text)IfnModi=0ThenExitForEndIfNext圖8-5程序運(yùn)行界面Ifi>=nThenText2.Text="該數(shù)是素?cái)?shù)!”BBBCCCCCDDDDDDDEEEEEEEEEFFFFFFFFFFFGGGGGGGGGGGGGHHHHHHHHMHHHMHH輸入ー個(gè)數(shù)?打印圖形13回區(qū)）?判斷素?cái)?shù)Text2.Text二”該數(shù)不是素?cái)?shù)!”EndIfEndSub。舉一反三[8-3!輸出100?999之間的第一個(gè)水仙花數(shù)。2、程序填空(1)編寫(xiě)程序找出1000以內(nèi)的所有完數(shù)。所謂完數(shù),就是它所有因子之和等于其本身。如6=1+2+3,則6是完數(shù)。程序運(yùn)行界面如圖8-6所示:源代碼:PrivateSubCommandl_Click()Dimn%,i%,s%Forn=1To1000[1]―Fori=1Ton-1ThenThenIf[2]s=s+iThenThenEndIfNextIf[3]―Textl.Text=Text1.Text+Str(n)EndIf—[4]EndSub(2)運(yùn)行下列程序使之輸出如圖8-7所示圖形。*

*************

?圖8-7程序輸出結(jié)果源代碼:PrivateSubCommandl_Click()PrintFori=1To5PrintSpace(20-i);Forj=1To Printn*M;PrintNextiFori=1To4Print;Forj=1To PrintNextjNextiEndSub(3)求1?100之間所有整數(shù)的和。和值:5050源代碼:PrivateSubForm_Click()DimiAsIntegerDimsumAsIntegeri=1sum=0Dosum=sum+ii=i+1Ifi>100ThenLoopPrintsumEndSub實(shí)驗(yàn)九循環(huán)結(jié)構(gòu)(四)圖9-1程序運(yùn)行界面實(shí)驗(yàn)九循環(huán)結(jié)構(gòu)(四)【實(shí)驗(yàn)?zāi)康摹?1)熟練使用for—next,do—loop循環(huán)語(yǔ)句,理解它們的相同和不同之處;(2)進(jìn)ー步掌握用循環(huán)編寫(xiě)程序的方法?！緦?shí)驗(yàn)內(nèi)容】1、嘗試編寫(xiě)下列程序[9-1I求*+3+巳+2+……前20項(xiàng)和。程序運(yùn)行界面如圖9-1所示:1235源代碼:PrivateSubCommandl_Click()/*************************s(c^cbegin************************/EndSub[9-2I輸入ー個(gè)數(shù)eps,求1+*+*+最?+……,直到最后ー項(xiàng)的值小于eps為止。程序運(yùn)行界面如圖9-2所示:2/1+3/2+5/3+8Z5+ 前20項(xiàng)和求和?FoebI1+1/2-2+1/32+1ハヘ2+圖9?2程序運(yùn)行界面源代碼:PrivateSubCommandl_Click()EndSub[9-3]求100以內(nèi)能被5或7整除的數(shù)及其個(gè)數(shù)。程序運(yùn)行界面如圖9-3所示:.Foml 畠回區(qū)!100以內(nèi)能被5或7整除的數(shù)：5306090個(gè)數(shù):1101415202125285306090個(gè)數(shù):11014152021252835404245495055566365707577808485919598100圖9?3程序運(yùn)行界面源代碼:PrivateSubCommandl_Click()EndSub[9-4]求三位數(shù)中所有的水仙花數(shù),水仙花數(shù)是指各位數(shù)字的立方和等于其自身的數(shù)。in：153=13+53+3\程序運(yùn)行界面如圖9-4所示:

?水仙花數(shù)三位數(shù)中所有的水仙花數(shù):153370371407153370371407圖9-4程序運(yùn)行界面源代碼:PrivateSubCommandl_Click()EndSub2、程序填空隨機(jī)產(chǎn)生n個(gè)1?100（包括1和100）的整數(shù),求它們的最大值、最小值和平均值。程序運(yùn)行界面如圖9-5所示:圖9-5程序運(yùn)行界面源代碼:PrivateSubForm_Click()Dimn%,i%,min%,max%,num%,aver!n=Val(InputBox("輸入隨機(jī)產(chǎn)生數(shù)據(jù)個(gè)數(shù):"))Randomizenum=Int(Rnd*100+1)max=nummin=numaver=numPrint”第1個(gè)數(shù)是:"&numFori=2To num=Int(Rnd*100+1)Print"第“&i&”