2019年浙江選考信息技術Vb基礎專題

1、Vb基礎專題一、知識要點VisualBasic基本概念1、工程與窗體一個應用程序的總稱。工程文件名的后綴是.vbp。應用程序最終面向用戶的窗口。窗體文件名的后綴是.frm。窗體是VB設計時的名稱，當它在Windows下運行后就稱為窗口2、對象及對象的三要素-圖形框-文本框-命令按鈕單選按鈕-列表相-垂出滾動條-騏功器列表框-文件列及框-宜線-數據控制（1）常見的控件眄針（不是控件:標簽橫架檢件框組合相水平流動條時鐘目錄列表偃形狀圖像對象院接寫假人（2）常用控件簡介序號控件名控件簡介1Label（靜態(tài)標簽）顯示用戶不能直接改變的文本，一般與其他控件配合使用，或者作為提示內容出現。2TextBox

2、（文本框）供用戶輸入數據，主要應用其“Text”屬性，例如：="歡迎使用”。3Commandbutton（按鈕控件）用戶可以直接更改按鈕顯示文本，主要事件為Click（鼠標單擊）。4Image（圖像框）用戶可以在屬性窗口中自定義大小與默認加載圖像位置。也可以在程序運行階段使用函數LoadPicture（）來實現。Stretch屬性值為True時，圖像會自動調整大小以適應圖像控件的尺寸。5ListBox（列表框）用戶可以從列表框中的一系列的選項中選擇一個或多個選項。如果選項的數量超過可顯示的區(qū)域，列表框會自動增加滾動條。列表框可以是單列或多列的。主要事件為：DblClick（鼠標雙擊）

3、。6Timer（計時器）作用是定時產生一個時鐘（Timer）事件，利用這個事件可以定期地做一些程序處理。用戶可以自行設置每個計時器的時間問隔（Interal）。一般設置計時器控件的Enabled腐性為True或False來打開或關閉Timer事件的產生。（3）對象的屬性對象的屬性是標識一個對象的所有特征，它實際上就是對象所屬類的成員變量常用的公共屬性在舁廳P屬性名1Name名稱）用于設置控件的名稱，這個名稱是用來標識該控件。2Font（字體）用于設置控件中文字的所用的字體樣式，字號和特殊顯示方式等。3Text（文本）用于設置可接受輸入的控件中輸入或顯示的字符串。4Caption（標題）用于設置

4、控件的顯示標題。5BackColor（背景色）背景顏色。6Width（寬度）用于設置控件的寬度。7Height（高度）用于設置控件的高度。8interval（左邊距）用于設置計時器的時間間隔，單位為毫秒9enabled（頂邊距）用于設置是否可用10Visible（可視）設置控件是否可見，如果設置為False則控件會消失。屬性的調用：對象名.屬性名=屬性值（4）對象的方法對象的方法是指對象可以進行的操作、也就是對象的動作常見方法：print、clear、additem（5）對象響應的事件（事件驅動）事件是在某種特定狀態(tài)下由系統(tǒng)觸發(fā)的方法。事件驅動是指用VB開發(fā)的應用程序的運行，是通過事件來驅動的

5、。事件過程的一般格式如下：PrivateSub對象名稱事件名稱（）事件響應程序代碼，我們寫的EndSub3、VB常量、變量、數組及定義常用函數(1)常用的數據類型數據是信息的一種記錄形式。在VB中，數據可以按照本身的特性分為若干種不同的類型，常見類型見下表：數據類型名說明性質Integer整數型一3276832768內的整數Long長整數型一2】474836482147483647內的整數Single單精度實數型絕對值在1.401298£45-3.402823£38內的任何實數,有效數字約67位Double雙精度實數型絕對值在I0E-324-1.79E3OS內的仟何實數，有

6、效數字約14】5位String字符串型一段文字與符號Boolean邏輯型判斷的結果；其位為Tru?；騀alseDateH期型日期和時間(2)常量數據總是以常量或變量的形式出現在程序中。常量是在程序運行過程中值_不變的存儲單元或數據。在VB中，常量有整數常量、實數常量、字符串常量和邏輯常量等類型。常量的定義方法：Const常量名=數值假如："Constpi="，就是定義了一個常量pi,在這個程序中出現的所有pi都會被VB自動轉換成。(3)變量變量是用來表示數據的存儲區(qū)，也就是存放數據的容器。VB變量定義的方法：Dim變量名As數據類型例如：DimaAsInteger,即將a定

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

8、s元素的類二維數組變量定義的常用形式為：Dim數組變量名(a1Toa2,b1Tob2)As元素的類型一般情況下，數組變量都采用循環(huán)語句進行賦初伯。注意：注釋是以英文單引號d開頭的一串文字，可以出現在程序中需要說明的位置上，通過這一串文字，對附近的程序段進行簡要的說明，增加程序的可讀性。注釋對程序的執(zhí)行效果沒有任何影響，程序運行時自動跳過注釋。（5）常用的標準函數函數名函數功能應用舉例函數返回值Abs(x)求絕對值Abs(3.5)3.5lnt(x)求不大于K的最大整數4Sqr(x)求X的尊術平方根Sqr(l00)10Asc(x)字符轉換為ASCII編碼Asc(*、A")65|Chr(x

9、)ASCII編碼轉換為字符Chr(65)AVal(x)將數字字符串轉換為數值Val(“一170”)-170Str(x)將數值轉換為字符串Str(-170)“一170”Len(x)計竟字符串的長度Len('abc,f)3Mid(xfnfk)去字符串n中第n個字符起長度為k的子串MidCabcde,3,2)cdRnd()求0,1）之間的個隨機數,使用乏前需用Randomize語句初始化RandomizeA=Rnd()*100+1產生一個100以內的隨機iJeJ-數6、VB表達式及基本運算一個表達式中可能包括算術運算、關系運算和邏輯運算等多種基本運算,以及運算所涉及的數據（變量和常量）、常用

10、標準函數等。各種基本運算的符號及優(yōu)先級別見下表：基本運算運W符號優(yōu)先級表達式舉例示例表達式的值算術運算乘暴A12A38取負2aa的相反值乘法*33*2,575寞數除法/35/22.5整除4522取余數Mod55Mod21加法+6a+ba+b的值減法6a-b的侑關系運算相等711False不相等O7102True小于<71<2Tnic大于>71>2False小于等于<=710Mad2<=20Tnic大于等于>=710,2>=7False注意：關系運算和邏輯運算的結果只有True或False,其中邏輯運算中“1匕運算就是取反，比如NotTrue的結果

11、就是False?！芭c”運算只有運算符的兩邊都是True,結果才是True。就是說表達式aAndb,只有a和b都是True的情況下結果才是True,否則結果為False。"或；運算只要運算符的兩邊有一邊的值是True,則結果就是True。比如表達式aOrb,只要a、b中有一個是True,則結果就是True,只有a和b都是False,結果才是False。7、順序語句、選擇語句、循環(huán)語句(1)順序語句順序結構的執(zhí)行順序是自上而下，依次執(zhí)行。大多數情況下順序結構都是作為程序的一部分，與其他結構一起構成一個復雜的程序。賦值語句賦值語句的作用是把賦值號(等號)右邊表達式的計算結果存儲到賦值號左邊

12、的變量或某個特定的對象屬性中，其格式如下：變量名=表達式或對象名.屬性名=表達式例如有語句：A=1+2*3,執(zhí)行完該語句就將等號右邊表達式結果賦值給變量Ao注意：VB程序中，可以在一行上寫一個語句，也可以在一行上寫多個語句，一行上相鄰兩個語句之間用冒號(：)分隔。(2)選擇語句a、行If語句行If語句必須在一行內寫完。行If語句格式如下：If條件表達式Then語句1日se語句2或If條件表達式Then語句b、塊If語句If條件表達式1Then語句塊1Else語句塊0EndIf多條件：If條件表達式1Then語句塊1ElseIf條件表達式2Then語句塊2ElseIf條件表達式nThen語句塊n

13、Else語句塊0EndIf(3)循環(huán)語句a、For循環(huán)語句通過次數控制循環(huán)的計算過程。For語句主要用于循環(huán)次數已知的情況,因次，也被稱為計數循環(huán)。For語句的一般格式如下：For循環(huán)變量=初值To終值Step步長循環(huán)體語句塊Next循環(huán)變量For語句中步長可以是正數,也可以是負數，但不可為0。默認的步長為1,即“Step1"。Next后面的循環(huán)變量與For語句中的循環(huán)變量必須一致,執(zhí)行該語句時循環(huán)變量的值增加一個步長值。注意：一般不要在循環(huán)體內修改循環(huán)變量的值，否則會造成循環(huán)次數的不準確，而且程序調試也非常困難。如果在循環(huán)體內強行退出循環(huán)，可用“ExitFor”語句。b、Do循環(huán)語

14、句通過條件控制循環(huán)的計算過程。一般情況下，For語句都可以用Do語句來代替，而且在某些情況下，如果事先不知道循環(huán)應該執(zhí)行的次數，但知道在什么條件下需要循環(huán)，則不能用For語句而必須用Do語句。因此，Do語句的適用面比For語句要廣。Do語句的常用格式如下：DoWhile條件表達式循環(huán)體語句塊Loop注意：如果想在Do循環(huán)語句中強行退出循環(huán)，可用“ExitDo語句。8、解析算法解析算法是指用解析的方法找出問題的前提條件與所求結果之間關系的數學表達式，并通過表達式的計算來實現問題求解。例如：計算以速度作勻速直線運動的一個物體，在t秒內經過的距離s,可通過公式s=vt得到。9、枚舉算法枚舉算法也稱窮

15、舉算法，就是按照問題本身的性質，一一列舉該問題所有可能的解，并在逐一列舉的過程中，檢驗每個可能解是否問題真正的解。若是，就采納這個解，否則就拋棄它。在列舉的過程中，既不能遺漏，也不能重復。比如，要求一個二元一次不定方程的所有正整數解，就可以采用枚舉算法。1、（2015年10月）.編寫VB程序，實現如下功能：在文本框Textl和Text2中分別輸入一個整數，單擊命令按鈕Command標列表框Listl中顯示結果，運行效果如第14題-1圖所示。結果包含兩列數據，第1列為兩數之間的攝氏溫度值（間隔1度、升序），第2列為對應的華氏溫度值。第1題-1圖| C «iiini audl Corrm

16、ut ton- |技字母序I比力類序IBacKolor口 *J®OMOOOF*CancelJals*CaptionCommadndlCdttEGMVQi ddli. ozTruoDifadLtJal 虻一Width返回/診松寸象的寬度。屆性Cornmandl第1題-2圖（1）要使命令按鈕Command1顯示的文本改為“轉換”，可在其屬性窗口（第14題-2圖）中將屬性的屬性值修改為“轉換”。（2）為實現上述功能，請在劃線處填入合適代碼或選項。PrivateSubCommand1_Click（）Dimt1AsInteger,t2AsIntegerDimiAsInteger,tAsInte

17、gerDimfAsSinglet1=Valt2=ValIfThen'（選填字母，從下列ABC、D四個選項中選取一項）t=t1:t1=t2:t2=tEndIfi=t1DoWhile（選填字母，從下列A、B、CD四個選項中選取一項）f=i*9/5+32'攝氏溫度轉換為華氏溫度Str（i）+""+Str（f）（填程序代碼）LoopEndSub劃線、處的選項：<=t2<=t2>t2D.i<f2、（2016年4月）編寫VB程序，實現如下功能：在文本框Text1中輸入某一年份，單擊“天干地支與生肖”按鈕Command,1在列表框List1中輸出該

18、年份開始的12個年份及對應的“天干地支”與“生肖”，運行界面如圖所示，程序代碼如下。13天下蹤與函=1|Q年份天干地支生肖子普卯辰胃翳 丙:乙丙丁 一 |一 - - - -二. -I - - - 二 i二- 9697盟犯0001020304的0607 Iglal9l32020ZQ20ZO2O2020輸入年份15961天干地支與生肖！(1)代碼"PrivateSubCommand1_Click()”中的Click是。(單選,填字母：A.對象名/B.屬性名/C.事件互)(2)為實現上述功能，請在劃線處填入合適的代碼。PrivateSubCommand1_Click()DimaAsInte

19、ger,bAsIntegerDimiAsInteger,nAsIntegerDimc1AsString,s1AsStringDimc2AsString,s2AsStringDimc3AsString,s3AsStrings1="甲乙丙丁戊己庚辛壬癸"s2="子丑寅卯辰巳午未中酉戌亥"s3="鼠牛虎兔龍蛇馬羊猴雞狗豬"n=ValFori=nToa=(i+6)Mod10b=(i+8)Mod12c1=Mid(s1,a+1,1)c2=Mid(s2,b+1,1)c3=Mid(s3,b+1,1)+"年"+c1+c2+"

20、;"+c3NextiEndSub(3)由上述算法可知，2024年對應的“天干地支”為。3、（2016年10月）編寫“加法練習題生成器”程序，實現如下功能：在文本框Text1中輸入題數n,單擊“生成”按鈕Command,1在列表框List1中顯示n個兩數之和小于100的加法練習題。程序運行界面如圖a所示。5加；三等三題生成器CZ3圖a=3 = =1 = 2 8 4-22 聚鬻期12 3 4 5圖b(填寫相(1)在設計程序界面時，應使用圖b所示“控制工具箱”中的應編碼)添加“生成”按鈕。(2)實現上述功能的VB程序如下，請在劃線處填寫合適的代碼。PrivateSubCommand1_Cl

21、ick()DimnAsInteger,iAsInteger,aAsInteger,bAsIntegerRandomizen=Vali=DoWhilei<=na=Int(Rnd*100)b=Int(Rnd*100)IfThen"("+Str(i)+")"+Str(a)+"+"+Str(b)+"="i=i+1EndIfLoopEndSub4、(2017年4月)奇偶校驗是一種校驗數據傳輸正確性的方法。其中奇校驗方法：統(tǒng)計二進制數據的數位中“1”的個數，若個數為奇數，則校驗位值為0,否則校驗位值為1。小李編寫了一個計

22、算奇校驗位值得VB程序，功能如下：在文本框Text1中輸入1255十進制待校驗數，單擊“計算”按鈕Command1,在文本框Text2中顯示該數對應的二進制值，并在標簽Label3中顯示該數的校驗位值。程序運行界面如圖所示。(1)在設計程序界面時，要清空文本框中的顯示內容，應修改該文本框中的屬性。(2)實現上述功能的VB程序如下，請在劃線處填入合適代碼。PrivateSubCommand1_Click()DimaAsInteger,sAsString奇校蒙 -axDimnAsInteger,tAsInteger,vAsIntegern=Valt=0DoWhilen>0a=nMod2n=n

23、2t=S)s=Str(a)+sLoopv=tMod2=s="校驗位值："+EndSub5、（2017年11月）編”字符串生成”程序，實現如下功能：在文本框Textl中（字符位置）輸入多個正整數（以“，”為分割符和結束符），單擊“生成"按鈕Commandl程序以這些整數為位置信息，依次從文本框Text2中（字典內容）提取字符并連接成字符串，最后將字符串顯示在標簽Label1中（生成內容）。程序運行界面如下圖所示。&Forirl字符位置:1,3為g生成內容：pa能字典內答:pythonisapzogxajnmiaglanguage.（1）要使程序運行時，窗體F

24、orm1標題顯示“字符串生成"，可在Form_Load事件過程中添一加語句（單選，填字母：="字符串生成"/"字符串生成"/C.="字符串生成"）。（2）實現上述功能的VB程序如下，請在劃線處填入合適的代碼。PrivateSubCommand1_Click（）DimsAsString,tAsString,cAsStringDimiAsInteger,pAsIntegers="":t=""Fori=1ToLenc=Mid,i,1)Ifc=","Thenp=Val(t)

25、s=s+Mid,p,1)t=""Elset=EndIfNextiEndSub（3）若文本框Text1中輸人內容的結束符缺失（即輸人內容為1,18,9,9）,單擊“生成”按鈕后，標簽Label1中顯示的內容是。6、（2018年4月）某種編碼以4位二進制碼為一組，每組前兩位表示方向，后兩位表示距離。編寫一個程序，將編碼翻譯成方向和距離，距離值為每組編碼后兩位二進制碼轉換為十進制數的值。具體功能如下：在文本框Textl中輸入連續(xù)多組編碼，單擊“翻譯”按鈕Command結果顯示在列表框Listl中。程序運行界面如右圖所示。號編碼翻譯一口X00000101方向距離(1)要使程序運行時

26、，文本框Textl的Width屬性值為2018,可在Form_Load事件過程中添加語句(單選，填字母：A.Width=2018/.Width=2018/C.Width.Textl=2018)。(2)實現上述功能的VB程序如下，請在劃線處填入合適的代碼。PrivateSubCommand1_Click()DimsAsString,cAsString,dAsStringDimnAsInteger,blAsInteger,b2AsInteger,vAsInteger,iAsIntegers=:n=Len(s):i=1DoWhilei<=nc=Mid(s,i,2)Ifc="00&qu

27、ot;Thend="東"ElseIfc="01"Thend="南"ElseIfc="10"Thend="西"Elsed="北"EndIfb1=Val(Mid(s,i+2,1)b2=Val(Mid(s,i+3,1)v=d+""+Str(v)LoopEndSub1、運行下列VB程序，在文本框Textl中輸入15, 界面如圖所示。單擊“開始”按鈕Command1,標簽Labell中顯示的內容是,文本框Text2中顯示的內容是。PrivateSubCommand1

28、_Click()Constx="轉換成八進制數為"DimyAsIntegerDimsAsStringDimrAsIntegery=Vals=""DoWhiley<>0r=yMod8s=Str(r)+sy=y8Loop=+x用于存儲輸入的十進制自然數用于存儲轉換后的結果采用除八取余法=sEndSub2、某地出租車計價方式如下：3公里內(包括3公里)起步價10元；超過3公里，但10公里內，則3公里內收費10元，超出部分每公里2元；如果超過10公里，則10公里內收費24元，超出部分每公里3元。其程序實現如下：PrivateSubCommand1_C

29、lick()x=ValIfx<=3Theny=10ElselfTheny=10+(x-3)*2Elsey=（31=Str（y）EndSub請把上面程序補充完整。重（kg）,文本框Text2中輸入身高（m . 單擊“判定”按鈕Command勝標簽Labell 中輸出判斷結果。相應的 Visual Basic 程序如下，請在畫線處填入適當的語句或 表達式，把程序補充完整：注重（k5）颼福果;1. 6EiJL一,版“一1體質指數<>26結果偏瘦正常肥胖|=叵4jI巧卡更指靜3、體質指數（BMI）是目前國際上常用的衡量人體胖瘦程度以及是否健康的一個參考標準，其計算公式是：體質指數（B

30、MD=體重+身高2現要求編寫VBS序（運行界面如圖所示），實現如下功能：在文本框Text1中輸入體PrivateSubCommand1_Click()DimwAsSingle,hAsSingle,bAsSinglew=Valh=b=Then = “正常”力Ifb<Then=IfIfb>=26Then="肥胖EndSub4、有如下VB程序：PrivateSubCommand1_Click()DimsiAsString,s2AsString,iAsInteger,chAsStringsi=Fori=1ToLen(s1)ch=Mid(s1,i,1)IfAsc(ch)>=6

31、5AndAsc(ch)<=90Thench=Chr(Asc(ch)+3)EndIfs2=ch+s2Nexti=s2EndSub已知大寫字母A的ASCII碼為65。運行上述程序，若文本框Textl中的內容為“A1b2C&單擊命令按鈕Command1標簽Labell中顯示的是()A.A1b2c3B.3C2b1AC.D1b2F3D.3F2b1D5、有一個函數f,這個函數的參數是兩個字符串si、s2,這兩個字符串必須長度相同并且由小寫字母組成。函數的輸出是一個與si、s2長度相同的字符用s,字符串s的第i個字符為字符串si、s2的第i個字符中小的那個,比如：f("ab"

32、;,"ba")="aa",f("nzwzl","zizez")="niwel"。編寫VB1序，模擬上述函數的功能：在文本框Textl中輸入字符串參數X,在文本框Text2中輸入字符串參數y,單擊“計算”按鈕Command,1在文本框Text3中輸出函數f(x,y)的值。運行界面如第5題圖所示。第5題圖(1)在設計程序界面時，要使窗體的標題顯示為：有趣的函數，則應修改窗體的屬性。(2)實現上述功能的VB程序如下，請在劃線處填入合適代碼。PrivateSubCommand1_Click()DimfA

33、sString,xAsString,yAsStringx=y=f=""IfLen(x)<>Len(y)Then="請輸入符合要求的字符串！="請輸入符合要求的字符串！ElseFori=1ToLen(x)IfThenf=f+Mid(y,i,1)Elsef=f+Mid(x,i,1)EndIfNexti=fEndSub(3)運行該程序，在文本框Text1中輸入flash,在文本框Text2中輸入excel,單擊“計算”按鈕Command，1則文本框Text3中顯示。6、第一代二十世紀出生的由15位阿拉伯數字組成：1-2位省、自治區(qū)、直轄市代碼；3-

34、4位地級市、盟、自治州代碼；5-6位縣、縣級市、區(qū)代碼；7-12位出生年月日，例如670401代表1967年4月1日；其中第15位單數為男，雙數為現編寫VB程序，實現如下功能：在文本框Text1中輸入15位身份證號碼，單擊“判斷”按鈕Command，1在列表框Text2和Text3中分別輸出該身份證號碼對應的出生日期、性別，運行界面如圖所示第6題(1)在設計程序界面時，要使按鈕Command顯示“判斷”，應修改按鈕的屬性。(2)實現上述功能的VB程序如下，請在劃線處填入合適代碼。PrivateSubCommand1_Click()DimsfAsString,cAsInteger,sexAsSt

35、ringDimt1AsInteger,t2AsInteger,t3AsInteger,t4AsIntegersf=c=Len(sf)Ifc=15Thent1=Val(Mid(sf,c,1)t2=t3=Val(Mid(sf,9,2)t4=Val(Mid(sf,11,2)IfThensex="男"Elsesex="女"EndIfEndIf=Str(t2)+"年"+Str(t3)+"月"+Str(t4)+"日"=Val(sex)EndSub(3)運行該程序，出現錯誤提示“類型不匹配”，則處應修改為O7

36、、“四葉玫瑰數”是指一個四位自然數各位上數字的四次方之和等于四位數本身。如自然數1634就是一個“四葉玫瑰數”，因為14+64+34+44=1634。編寫一個程序，實現如下功能：單擊“找尋”按鈕Command后，在列表框List1中顯示找到的所有“四葉玫瑰數”，并在標簽Label3中顯示玫瑰數的個數。(1)在設計程序界面時，應使用圖b中的(填寫相應編號)添加按鈕。四葉塊瑰數16349474一Alibt-J.至找尋&口LJ國圖a圖b(2)實現上述功能的VB程序如下，請在劃線處填入合適代碼PrivateSubCommand1_Click()DimIAsInteger,countAsInte

37、gerDimaAsInteger,bAsInteger,cAsInteger,dAsIntegercount=0fori=1000to9999a=i1000b=®c=Int(i-a*1000-b*100)/10)d=i-a*1000-b*100-c*10IfThenStr(i)count=count+1EndIfNexti="共有四葉玫瑰數："+EndSub8、編寫VB程序，實現如下功能：在文本框Text1中輸入一個整數，單擊命令按鈕Command.1在文本框Text2中顯示對應的二進制編碼，運行界面如下圖所示，程序代碼如下。(1)為實現上述功能，請在劃線處填入合適代碼。PrivateSubCommand1_Click()DimxAsInteger,sAsIntegerDimyAsStringx=ei十迸國師換成二迸需j-ax清輸入十迸制敕：f轉揄為二送制枷|100 °Ifx=0ThenElseDoWhilex>0s=xMod2x=Int(x/2)y=Loop=yEndIfEndSub(2)“Command1_C