2019浙江選考信息技術(shù)Vb基礎(chǔ)專題

1、Vb基礎(chǔ)專題一、知識要點VisualBasic基本概念1、工程與窗體一個應(yīng)用程序的總稱。工程文件名的后綴是.vbp。應(yīng)用程序最終面向用戶的窗口。窗體文件名的后綴是frm。窗體是VB設(shè)計時的名稱，當它在Windows下運行后就稱為窗口。2、對象及對象的三要素1）常見的控件指針（不是控件）標簽框架檢査框組合框水平滾動條時鐘指針（不是控件）標簽框架檢査框組合框水平滾動條時鐘I錄列走框形狀圖像對象鏈接與嵌入4胃=jj豈（5|iiS、圖形框文本框命令按鈕一單選按鈕一列表握-唾直滾動條馳動器列表框文件列表框直線-數(shù)擔控制（2）常用控件簡介-序號一控件名控件簡介1Label（靜態(tài)標簽）顯示用戶不能直接改變的

2、文本，一般與其他控件配合使用，或者作為提示內(nèi)容出現(xiàn)。2TextBox（文本框）供用戶輸入數(shù)據(jù)，主要應(yīng)用其“Text”屬性，例如：Textl.Text=”歡迎使用”。3Commandbutton（按鈕控件）用戶可以直接更改按鈕顯示文本，主要事件為Click（鼠標單擊）。4Image（圖像框）用戶可以在屬性窗口中自定義大小與默認加載圖像位置。也可以在程序運行階段使用函數(shù)LoadPicture（）來實現(xiàn)。Stretch屬性值為True時，圖像會自動調(diào)整大小以適應(yīng)圖像控件的尺寸。5ListBox（列表框）用戶可以從列表框中的一系列的選項中選擇一個或多個選項。如果選項的數(shù)量超過可顯示的區(qū)域，列表框會自動

3、增加滾動條。列表框可以是單列或多列的。主要事件為：DblClick（鼠標雙擊）。6Timer（計時器）作用是定時產(chǎn)生一個時鐘（Timer）事件，利用這個事件可以定期地做一些程序處理。用戶可以自行設(shè)置每個計時器的時間間隔（Interal）。一般設(shè)置計時器控件的Enabled屬性為True或False來打開或關(guān)閉Timer事件的產(chǎn)生。（3）對象的屬性對象的屬性是標識一個對象的所有特征，它實際上就是對象所屬類的成員變量。常用的公共屬性序號屬性名1Name（名稱）用于設(shè)置控件的名稱，這個名稱是用來標識該控件。2Font（字體）用于設(shè)置控件中文字的所用的字體樣式，字號和特殊顯示方式等。3Text（文本）

4、用于設(shè)置可接受輸入的控件中輸入或顯示的字符串。4Caption（標題）用于設(shè)置控件的顯示標題。5BackColor（背景色）背景顏色。6Width（寬度）用于設(shè)置控件的寬度。7Height（高度）用于設(shè)置控件的高度。8interval（左邊距）用于設(shè)置計時器的時間間隔，單位為毫秒9enabled（頂邊距）用于設(shè)置是否可用10Visible（可視）設(shè)置控件是否可見，如果設(shè)置為False則控件會消失。屬性的調(diào)用：對象名屬性名二屬性值（4）對象的方法對象的方法是指對象可以進行的操作，也就是對象的動作常見方法：print、clear、additem（5）對象響應(yīng)的事件（事件驅(qū)動）事件是在某種特定狀態(tài)下

5、由系統(tǒng)觸發(fā)的方法。事件驅(qū)動是指用VB開發(fā)的應(yīng)用程序的運行，是通過事件來驅(qū)動的。事件過程的一般格式如下：PrivateSub對象名稱_事件名稱（）事件響應(yīng)程序代碼，我們寫的EndSub3、VB常量、變量、數(shù)組及定義常用函數(shù)（1）常用的數(shù)據(jù)類型數(shù)據(jù)是信息的一種記錄形式。在VB中，數(shù)據(jù)可以按照本身的特性分為若干種不同的類型，常見類型見下表：數(shù)據(jù)類型名說明性質(zhì)Integer整數(shù)型-32768-32768內(nèi)的整數(shù)Long長罄數(shù)型-2147483648-2147483647內(nèi)的整數(shù)Single單精度實數(shù)型絕對值在J,401298E-45-3402823E38內(nèi)的任何實數(shù).有效數(shù)字約67位Double雙精度

6、實數(shù)型絕對值在10E-324-L79E30S內(nèi)的任何實數(shù)有效數(shù)字約14-15位String字符串型一段文字與符號Boolean邏輯型判斷的結(jié)果：其值為Tnw或用1窕DateH期型H期和吋間2）常量數(shù)據(jù)總是以常量或變量的形式出現(xiàn)在程序中。常量是在程序運行過程中值不變的存儲單元或數(shù)據(jù)。在VB中，常量有整數(shù)常量、實數(shù)常量、字符串常量和邏輯常量等類型。常量的定義方法：Const常量名=數(shù)值假如：“Constpi二3.14”，就是定義了一個常量pi,在這個程序中出現(xiàn)的所有pi都會被VB自動轉(zhuǎn)換成3.14。（3）變量變量是用來表示數(shù)據(jù)的存儲區(qū)，也就是存放數(shù)據(jù)的容器。VB變量定義的方法：Dim變量名As數(shù)據(jù)

7、類型例如：DimaAsInteger，即將a定義為整數(shù)型變量。如果定義兩個或兩個以上的同類型變量，可以用語句：Dima,bAsInteger，就是定義了a，b兩個整數(shù)型變量。變量定義時，變量的取名有一定的限制，變量的名稱跟對象名取名規(guī)則相同，都是由字母、數(shù)字和下劃線組成，必須是字母開頭,VB系統(tǒng)中已使用的字符不能作為變量名，比如:DimStringAsInteger，該語句錯誤，因為String是數(shù)據(jù)類型名，不能再作為變量名了（4）數(shù)組變量數(shù)據(jù)是由一批同類型的變量構(gòu)成的一個序列,組成數(shù)組的每一個變量被稱為數(shù)組的元素，也稱為下標變量，下標是一個整數(shù)，用來指出某個元素在數(shù)組中的位置。一維數(shù)組變量定

8、義的常用形式為：Dim數(shù)組變量名（alToa2）As元素的類型二維數(shù)組變量定義的常用形式為：Dim數(shù)組變量名（alToa2，blTob2）As元素的類型一般情況下，數(shù)組變量都釆用循環(huán)語句進行賦初值。注意：注釋是以英文單引號（）開頭的一串文字，可以出現(xiàn)在程序中需要說明的位置上，通過這一串文字，對附近的程序段進行簡要的說明，增加程序的可讀性。注釋對程序的執(zhí)行效果沒有任何影響，程序運行時自動跳過注釋。5）常用的標準函數(shù)函數(shù)名函數(shù)功能應(yīng)用舉例函數(shù)返回值A(chǔ)bs(x)求絕對值A(chǔ)b$(3.5)3*5Int(x)求不大于x的最大整數(shù)Int(4.1)4Sqr(x)求X的算術(shù)平方根Sqr(lOO)10Asc(x)

9、字符轉(zhuǎn)換為ACII編碼Asc(A/z)65Chr(x)ASC編碼轉(zhuǎn)換為字符Chr(65)AVal(x)將數(shù)字字符串轉(zhuǎn)換為數(shù)值W1(“一17(T)-170Str(x)將數(shù)值轉(zhuǎn)換為字符串Str(170)盒一17Len(x)計算字符出的長度Len(Aabc,f)3Mid(xmk)去字符串X中第D個字符起長度為k的子串a(chǎn)bode3,2)cdRnd()求CU）之間的一個隨機數(shù)，使用之前崙用Randomize語句初始化RandomizeA=Rnd()*100產(chǎn)生一個100以內(nèi)的隨機數(shù)6、VB表達式及基本運算一個表達式中可能包括算術(shù)運算、關(guān)系運算和邏輯運算等多種基本運算，以及運算所涉及的數(shù)據(jù)（變量和常量）、

10、常用標準函數(shù)等。各種基本運算的符號及優(yōu)先級別見下表：相等71=2False不相等O7102True小于71712False小于等于=710Mod2=71077False注意：關(guān)系運算和邏輯運算的結(jié)果只有True或False，其中邏輯運算中“非”運算就是取反，比如NotTrue的結(jié)果就是False?！芭c”運算只有運算符的兩邊都是True，結(jié)果才是True。就是說表達式aAndb，只有a和b都是True的情況下結(jié)果才是True，否則結(jié)果為False?！盎颉边\算只要運算符的兩邊有一邊的值是True，則結(jié)果就是True。比如表達式aOrb,只要a、b中有一個是True，則結(jié)果就是True，只有a和b都

11、是False，結(jié)果才是False。7、順序語句、選擇語句、循環(huán)語句（1）順序語句順序結(jié)構(gòu)的執(zhí)行順序是自上而下,依次執(zhí)行。大多數(shù)情況下順序結(jié)構(gòu)都是作為程序的一部分，與其他結(jié)構(gòu)一起構(gòu)成一個復(fù)雜的程序。賦值語句賦值語句的作用是把賦值號（等號）右邊表達式的計算結(jié)果存儲到賦值號左邊的變量或某個特定的對象屬性中，其格式如下：變量名=表達式或?qū)ο竺麑傩悦?表達式例如有語句:A=l+2*3,執(zhí)行完該語句就將等號右邊表達式結(jié)果賦值給變量A。注意：VB程序中，可以在一行上寫一個語句，也可以在一行上寫多個語句，一行上相鄰兩個語句之間用冒號（：）分隔。（2）選擇語句a、行f語句行f語句必須在一行內(nèi)寫完。行f語句格式如

12、下：If條件表達式Then語句1Else語句2或If條件表達式Then語句b、塊f語句If條件表達式1Then語句塊1Else語句塊0EndIf多條件：If條件表達式1Then語句塊1ElseIf條件表達式2Then語句塊2ElseIf條件表達式nThen語句塊nElse語句塊0EndIf（3）循環(huán)語句a、For循環(huán)語句通過次數(shù)控制循環(huán)的計算過程。For語句主要用于循環(huán)次數(shù)已知的情況，因次，也被稱為計數(shù)循環(huán)。For語句的一般格式如下：For循環(huán)變量二初值To終值Step步長循環(huán)體語句塊Next循環(huán)變量For語句中步長可以是正數(shù)，也可以是負數(shù)，但不可為0。默認的步長為1,即“Step1”。Nex

13、t后面的循環(huán)變量與For語句中的循環(huán)變量必須一致，執(zhí)行該語句時循環(huán)變量的值增加一個步長值。注意:一般不要在循環(huán)體內(nèi)修改循環(huán)變量的值，否則會造成循環(huán)次數(shù)的不準確，而且程序調(diào)試也非常困難。如果在循環(huán)體內(nèi)強行退出循環(huán)，可用“Exitor”語句。b、Do循環(huán)語句通過條件控制循環(huán)的計算過程。一般情況下,For語句都可以用Do語句來代替，而且在某些情況下，如果事先不知道循環(huán)應(yīng)該執(zhí)行的次數(shù)，但知道在什么條件下需要循環(huán)，則不能用For語句而必須用Do語句。因此,Do語句的適用面比For語句要廣。Do語句的常用格式如下：DoWhile條件表達式循環(huán)體語句塊Loop注意：如果想在Do循環(huán)語句中強行退出循環(huán)，可用“

14、ExitDo”語句。8、解析算法解析算法是指用解析的方法找出問題的前提條件與所求結(jié)果之間關(guān)系的數(shù)學(xué)表達式，并通過表達式的計算來實現(xiàn)問題求解。例如：計算以速度作勻速直線運動的一個物體，在t秒內(nèi)經(jīng)過的距離s，可通過公式s=vt得到。9、枚舉算法枚舉算法也稱窮舉算法，就是按照問題本身的性質(zhì)，一一列舉該問題所有可能的解，并在逐一列舉的過程中，檢驗每個可能解是否問題真正的解。若是，就采納這個解，否則就拋棄它。在列舉的過程中，既不能遺漏，也不能重復(fù)。比如，要求一個二元一次不定方程的所有正整數(shù)解，就可以采用枚舉算法。真題再現(xiàn)真題再現(xiàn)1、（2015年10月）.編寫VB程序，實現(xiàn)如下功能:在文本框Textl和T

15、ext2中分別輸入一個整數(shù)，單擊命令按鈕Command1，在列表框List1中顯示結(jié)果，運行效果如第14題-1圖所示。結(jié)果包含兩列數(shù)據(jù)，第1列為兩數(shù)之間的攝氏溫度值（間隔1度、升序），第2列為對應(yīng)的華氏溫度值。第1題-1圖第1題-2圖（1）要使命令按鈕Command1上顯示的文本改為“轉(zhuǎn)換”可在其屬性窗口（第14題-2圖）中將屬性的屬性值修改為“轉(zhuǎn)換”（2）為實現(xiàn)上述功能，請在劃線處填入合適代碼或選項。PrivateSubCommand1_Click（）Dimt1AsInteger，t2AsIntegerDimiAsInteger，tAsIntegerDimfAsSingleList1.Cle

16、art1=Val（Text1.Text）t2=Val（Text2.Text）IfThen（選填字母，從下列A、B、C、D四個選項中選取一項）t二t1:t1二t2:t2=tEndIfi=t1DoWhile（選填字母，從下列A、B、C、D四個選項中選取一項）f=i*9/5+32攝氏溫度轉(zhuǎn)換為華氏溫度List1.AddItemStr（i）+Str（f）（填程序代碼）LoopEndSub劃線、處的選項：A.i=t2B.ft2D.if2、（2016年4月）編寫VB程序，實現(xiàn)如下功能：在文本框Text1中輸入某一年份，單擊“天干地支與生肖按鈕Command1，在列表框List1中輸出該年份開始的12個年份

17、及對應(yīng)的“天干地支”與“生肖”，運行界面如圖所示，程序代碼如下。(單選,代碼PrivateSubCommandl_Click()中的Click是填字母：A.對象名。(單選,代碼PrivateSubCommandl_Click()中的Click是填字母：A.對象名/B.屬性名/C.事件名)為實現(xiàn)上述功能,請在劃線處填入合適的代碼。PrivateSubCommand1_Click()輸入年份天干地支生肖子曹卯辰乙丙丁-二一二一-_-_二-67no9-uL234567_y_y_y_y-un-_u_un-_u_u_u_y_y_y_yo_uo_u_uoo_u111122222222DimaAsInteg

18、er,bAsIntegerDimiAsInteger,nAsIntegerDimc1AsString,s1AsStringDimc2AsString,s2AsStringDimc3AsString,s3AsStringList1.Clears1=甲乙丙丁戊己庚辛壬癸s2=子丑寅卯辰巳午未申酉戌亥s3=鼠?；⑼谬埳唏R羊猴雞狗豬n=Val(Text1.Text)TOC o 1-5 h zFori=nToa=(i+6)Mod10b=(i+8)Mod12c1=Mid(s1,a+1,1)c2=Mid(s2,b+1,1)c3=Mid(s3,b+1,1)List1.AddItem+年+cl+c2+c3Nex

19、tiEndSub由上述算法可知,2024年對應(yīng)的“天干地支”為3、(2016年10月)編寫“加法練習(xí)題生成器”程序,實現(xiàn)如下功能：在文本框Textl中輸入題數(shù)n,單擊“生成按鈕Commandl，在列表框Listl中顯示n個兩數(shù)之和小于100的加法練習(xí)題。程序運行界面如圖a所示。圖a圖a圖b在設(shè)計程序界面時，應(yīng)使用圖b所示“控制工具箱”中的(填寫相應(yīng)編碼)添加“生成”按鈕。實現(xiàn)上述功能的VB程序如下，請在劃線處填寫合適的代碼。PrivateSubCommand1_Click()DimnAsInteger,iAsInteger,aAsInteger,bAsIntegerRandomizen=Val

20、(Text1.Text)i=DoWhilei0a=nMod2n=n2t=s=Str(a)+sLoopv=tMod2Text2.Text=sLabel3.Caption=校驗位值：+EndSub5、（2017年11月）編“字符串生成”程序，實現(xiàn)如下功能：在文本框Text1中（字符位置）輸入多個正整數(shù)（以“，”為分割符和結(jié)束符），單擊“生成”按鈕Command,程序以這些整數(shù)為位置信息，依次從文本框Text2中（字典內(nèi)容）提取字符并連接成字符串，最后將字符串顯示在標簽Label1中（生成內(nèi)容）。程序運行界面如下圖所示。（1）要使程序運行時，窗體Forml標題顯示“字符串生成，可在Form_Load

21、事件過程屮添加語句（單選，填字母:A.Forml=字符串生成/B.Forml.Text二字符串生成/C.Form1.Caption=字符串生成）。（2）實現(xiàn)上述功能的VB程序如下，請在劃線處填入合適的代碼。PrivateSubCommand1_Click()DimsAsString,tAsString,cAsStringDimiAsInteger,pAsIntegers=:t=Fori=1ToLen(Text1.Text)c=Mid(Text1.Text,i,1)Ifc=,Thenp=Val(t)s=s+Mid(Text2.Text,p,1)t=ElseTOC o 1-5 h zt=EndIf

22、NextiLabell.Caption二EndSub（3）若文本框Textl中輸人內(nèi)容的結(jié)束符缺失（即輸人內(nèi)容為1,18,9,9），單擊“生成”按鈕后，標簽Labell中顯示的內(nèi)容是。6、（2018年4月）某種編碼以4位二進制碼為一組，每組前兩位表示方向，后兩位表示距離。編寫一個程序，將編碼翻譯成方向和距離，距離值為每組編碼后兩位二進制碼轉(zhuǎn)換為十進制數(shù)的值。具體功能如下：在文本框Textl中輸入連續(xù)多組編碼，單擊“翻譯”按鈕Commandl，結(jié)果顯示在列表框List1中。程序運行界面如右圖所示。要使程序運行時，文本框Text1的Width屬性值為2018，可在Form_Load事件過程中添加語

23、句(單選，填字母：A.Width=2018/B.Textl.Width=2018/C.Width.Textl=2018)。實現(xiàn)上述功能的VB程序如下，請在劃線處填入合適的代碼。PrivateSubCommand1_Click()DimsAsString,cAsString,dAsStringDimnAsInteger,blAsInteger,b2AsInteger,vAsInteger,iAsIntegers=Textl.Text:n二Len(s):i=1DoWhilei=nc=Mid(s,i,2)Ifc=00Thend=東ElseIfc=01Thend=南ElseIfc=10Thend=西E

24、lsed=北EndIfb1=Val(Mid(s,i+2,1)b2=Val(Mid(s,i+3,1)v二List1.AddItemd+Str(v)LoopEndSub鞏固練習(xí)鞏固練習(xí)1、運行下列VB程序，在文本框Textl中輸入15,界面如圖所示。單擊“開始按鈕1、運行下列VB程序，在文本框Textl中輸入15,界面如圖所示。Text2中顯示的內(nèi)容是。PrivateSubCommand1_Click()Constx=轉(zhuǎn)換成八進制數(shù)為DimyAsIntegerDimsAsString用于存儲輸入的十進制自然數(shù)DimyAsIntegerDimsAsString用于存儲轉(zhuǎn)換后的結(jié)果DoWhiley0采

25、用除八取余法DimrAsIntegery=Val(Text1.Text)sDoWhiley0采用除八取余法r=yMod8s=Str(r)+sy=y8LoopLabel1.Caption=Text1.Text+xText2.Text=sEndSub2、某地出租車計價方式如下：3公里內(nèi)(包括3公里)起步價10元；超過3公里，但10公里內(nèi)，則3公里內(nèi)收費10元，超出部分每公里2元；如果超過10公里，則10公里內(nèi)收費24元，超出部分每公里3元。其程序?qū)崿F(xiàn)如下：PrivateSubCommand1_Click()x=Val(Text1.Text)Ifx=3Theny=10Elself(1)Theny=1

26、0+(x-3)*2Elsey=(3)Labell.Caption二Str(y)EndSub請把上面程序補充完整。3、體質(zhì)指數(shù)（BMI）是目前國際上常用的衡量人體胖瘦程度以及是否健康的一個參考標準，其計算公式是：體質(zhì)指數(shù)（BMI）=體重-F身高2體質(zhì)指數(shù)Vl8.5l8.5-2626結(jié)果偏瘦正常肥胖現(xiàn)要求編寫VB程序（運行界面如圖所示）,實現(xiàn)如下功能：在文本框Textl中輸入體重（kg）,文本框Text2中輸入身高（m）,單擊判定按鈕Commandl,在標簽Labell中輸出判斷結(jié)果。相應(yīng)的VisualBasic程序如下，請在畫線處填入適當?shù)恼Z句或表達式，把程序補充完整：PrivateSubCom

27、mandl_Click()DimwAsSingle,hAsSingle,bAsSinglew=Val(Textl.Text)h=b二Ifb=26ThenLabell.Caption二“肥胖EndSub4、有如下VB程序：PrivateSubCommandl_Click()DimslAsString,s2AsString,iAsInteger,chAsStringsl=Textl.TextFori=lToLen(sl)ch=Mid(sl,i,l)IfAsc(ch)=65AndAsc(ch)=90Thench=Chr(Asc(ch)+3)EndIfs2=ch+s2NextiLabell.Capti

28、on=s2EndSubAAlb2C3B3C2blACDlb2F3D3F2blD已知大寫字母A的ASCII碼為65。運行上述程序，若文本框Textl中的內(nèi)容為“A1b2C3”單擊命令按鈕Command】，標簽Label1中顯示的是()5、有一個函數(shù)f,這個函數(shù)的參數(shù)是兩個字符串sl、s2,這兩個字符串必須長度相同并且由小寫字母組成。函數(shù)的輸出是一個與sl、s2長度相同的字符串s,字符串s的第i個字符為字符串sl、s2的第i個字符中小的那個，比如：(ab，ba)=aa,f(nzwzl,zizez)=niwel。編寫VB程序，模擬上述函數(shù)的功能:在文本框Textl中輸入字符串參數(shù)x,在文本框Text

29、2中輸入字符串參數(shù)y,單擊“計算按鈕Commandl,在文本框Text3中輸出函數(shù)f(x,y)的值。運行界面如第5題圖所示。第5題圖AAlb2C3B3C2blACDlb2F3D3F2blD在設(shè)計程序界面時，要使窗體的標題顯示為：有趣的函數(shù)，則應(yīng)修改窗體的屬性。實現(xiàn)上述功能的VB程序如下，請在劃線處填入合適代碼。PrivateSubCommandl_Click()DimfAsString,xAsString,yAsStringx=Textl.Texty=Text2.TextIfLen(x)Len(y)ThenTextl.Text=請輸入符合要求的字符串！Text2.Text=請輸入符合要求的字符

30、串！ElseFori=lToLen(x)IfThenf=f+Mid(y,i,l)Elsef=f+Mid(x,i,l)EndIfNextiText3.Text二fEndSub(3)運行該程序，在文本框Textl中輸入flash,在文本框Text2中輸入excel,單擊“計算按鈕Commandl，則文本框Text3中顯示。6、第一代二十世紀出生的公民身份證號碼由l5位阿拉伯數(shù)字組成：l-2位省、自治區(qū)、直轄市代碼；3-4位地級市、盟、自治州代碼；5-6位縣、縣級市、區(qū)代碼；7-l2位出生年月日，例如67040l代表l967年4月l日；其中第l5位單數(shù)為男，雙數(shù)為女?，F(xiàn)編寫VB程序，實現(xiàn)如下功能：在

31、文本框Textl中輸入l5位身份證號碼,單擊“判斷按鈕Commandl,在列表框Text2和Text3中分別輸出該身份證號碼對應(yīng)的出生日期、性別，運行界面如圖所示&身fiHiE信亙-Xholos?looses堆日朋性別立第6題在設(shè)計程序界面時，要使按鈕Commandl顯示“判斷”，應(yīng)修改按鈕的屬性。實現(xiàn)上述功能的VB程序如下，請在劃線處填入合適代碼。PrivateSubCommand1_Click()DimsfAsString,cAsInteger,sexAsStringDimt1AsInteger,t2AsInteger,t3AsInteger,t4AsIntegersf=Text1.Tex

32、tc=Len(sf)Ifc=15Thent1=Val(Mid(sf,c,1)t2二t3=Val(Mid(sf,9,2)t4=Val(Mid(sf,11,2)IfThensElsesex=女EndIfEndIfText2.Text=Str(t2)+年+Str(t3)+月+Str(t4)+日Text3.Text=Val(sex)EndSub(3)運行該程序，出現(xiàn)錯誤提示“類型不匹配”，則處應(yīng)修改為。7、四葉玫瑰數(shù)”是指一個四位自然數(shù)各位上數(shù)字的四次方之和等于四位數(shù)本身。如自然數(shù)1634就是一個“四葉玫瑰數(shù)”，因為14+64+34+44=1634。編寫一個程序，實現(xiàn)如下功能：單擊“找尋”按鈕Comm

33、andl后，在列表框Listl中顯示找到的所有“四葉玫瑰數(shù)”并在標簽Label3中顯示玫瑰數(shù)的個數(shù)。(1)在設(shè)計程序界面時，應(yīng)使用圖b中的(填寫相應(yīng)編號)添加按鈕。Giri-eralGiri-eral口四l+iiisa數(shù)|=II回|【田|四葉玫瑰數(shù)1S3482089474山匕11S3482089474山匕11Z1匸fa&I:_1(2)實現(xiàn)上述功能的VB程序如下，請在劃線處填入合適代碼。PrivateSubCommand1_Click()DimIAsInteger,countAsIntegerDimaAsInteger,bAsInteger,cAsInteger,dAsIntegercount=

34、0fori=1000to9999a=i1000b二c=Int(i-a*1000-b*100)/10)d=i-a*1000-b*100-c*10IfThenList1.AddItemStr(i)count=count+1EndIfNextiLabel3.Caption二共有四葉玫瑰數(shù)：+EndSub8、編寫VB程序，實現(xiàn)如下功能：在文本框Text1中輸入一個整數(shù)，單擊命令按鈕Command1，在文本框Text2中顯示對應(yīng)的二進制編碼，運行界面如下圖所示，程序代碼如下。(1)為實現(xiàn)上述功能，請在劃線處填入合適代碼。PrivateSubCommand1_Click()DimxAsInteger,sAsIntegerDimyAsStringPrivateSubCommand1_Click()DimxAsInteger,sAsIntegerDimyAsStringx=Ifx=0ThenText2.Text二ElseDoWhilex0s=xMod2x=Int(x/2)y=3十済制轉(zhuǎn)換成二進制一x請輸入+遴蜩：椅執(zhí)為二邊制歎：I1000LoopText2.Text=yEn