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

1、Vb基礎(chǔ)專(zhuān)題一、 知識(shí)要點(diǎn)Visual Basic基本概念1、工程與窗體一個(gè)應(yīng)用程序的總稱(chēng)。工程文件名的后綴是vbp。應(yīng)用程序最終面向用戶的窗口。窗體文件名的后綴是frm。窗體是VB設(shè)計(jì)時(shí)的名稱(chēng)，當(dāng)它在Windows下運(yùn)行后就稱(chēng)為窗口。2、對(duì)象及對(duì)象的三要素 （1）常見(jiàn)的控件（2）常用控件簡(jiǎn)介序號(hào)控件名控件簡(jiǎn)介1Label(靜態(tài)標(biāo)簽)顯示用戶不能直接改變的文本，一般與其他控件配合使用，或者作為提示內(nèi)容出現(xiàn)。2TextBox(文本框)供用戶輸入數(shù)據(jù)，主要應(yīng)用其“Text”屬性，例如：Text1.Text”歡迎使用”。3Commandbutton(按鈕控件)用戶可以直接更改按鈕顯示文本，主要事件為

2、Click(鼠標(biāo)單擊)。4Image(圖像框)用戶可以在屬性窗口中自定義大小與默認(rèn)加載圖像位置。也可以在程序運(yùn)行階段使用函數(shù)LoadPicture()來(lái)實(shí)現(xiàn)。Stretch屬性值為T(mén)rue時(shí)，圖像會(huì)自動(dòng)調(diào)整大小以適應(yīng)圖像控件的尺寸。5ListBox(列表框)用戶可以從列表框中的一系列的選項(xiàng)中選擇一個(gè)或多個(gè)選項(xiàng)。如果選項(xiàng)的數(shù)量超過(guò)可顯示的區(qū)域，列表框會(huì)自動(dòng)增加滾動(dòng)條。列表框可以是單列或多列的。主要事件為：DblClick(鼠標(biāo)雙擊)。6Timer(計(jì)時(shí)器)作用是定時(shí)產(chǎn)生一個(gè)時(shí)鐘(Timer)事件，利用這個(gè)事件可以定期地做一些程序處理。用戶可以自行設(shè)置每個(gè)計(jì)時(shí)器的時(shí)間間隔(Interal)。一般設(shè)

3、置計(jì)時(shí)器控件的Enabled屬性為T(mén)rue或False來(lái)打開(kāi)或關(guān)閉Timer事件的產(chǎn)生。（3）對(duì)象的屬性對(duì)象的屬性是標(biāo)識(shí)一個(gè)對(duì)象的所有特征，它實(shí)際上就是對(duì)象所屬類(lèi)的成員變量。 常用的公共屬性 序號(hào)屬性名1Name(名稱(chēng))用于設(shè)置控件的名稱(chēng)，這個(gè)名稱(chēng)是用來(lái)標(biāo)識(shí)該控件。2Font(字體)用于設(shè)置控件中文字的所用的字體樣式，字號(hào)和特殊顯示方式等。3Text(文本)用于設(shè)置可接受輸入的控件中輸入或顯示的字符串。4Caption(標(biāo)題)用于設(shè)置控件的顯示標(biāo)題。 5BackColor(背景色)背景顏色。6Width(寬度)用于設(shè)置控件的寬度。7Height(高度)用于設(shè)置控件的高度。8interval(左

4、邊距)用于設(shè)置計(jì)時(shí)器的時(shí)間間隔，單位為毫秒9enabled(頂邊距)用于設(shè)置是否可用10Visible(可視)設(shè)置控件是否可見(jiàn)，如果設(shè)置為False則控件會(huì)消失。屬性的調(diào)用：對(duì)象名.屬性名屬性值（4）對(duì)象的方法對(duì)象的方法是指對(duì)象可以進(jìn)行的操作，也就是對(duì)象的動(dòng)作常見(jiàn)方法：print、clear、additem（5）對(duì)象響應(yīng)的事件(事件驅(qū)動(dòng))事件是在某種特定狀態(tài)下由系統(tǒng)觸發(fā)的方法。事件驅(qū)動(dòng)是指用VB開(kāi)發(fā)的應(yīng)用程序的運(yùn)行，是通過(guò)事件來(lái)驅(qū)動(dòng)的。事件過(guò)程的一般格式如下：PrivateSub 對(duì)象名稱(chēng)事件名稱(chēng)（）事件響應(yīng)程序代碼，我們寫(xiě)的EndSub3、VB常量、變量、數(shù)組及定義 常用函數(shù)（1） 常用的數(shù)

5、據(jù)類(lèi)型數(shù)據(jù)是信息的一種記錄形式。在VB中，數(shù)據(jù)可以按照本身的特性分為若干種不同的類(lèi)型，常見(jiàn)類(lèi)型見(jiàn)下表：（2）常量 數(shù)據(jù)總是以常量或變量的形式出現(xiàn)在程序中。常量是在程序運(yùn)行過(guò)程中值不變的存儲(chǔ)單元或數(shù)據(jù)。在VB中，常量有整數(shù)常量、實(shí)數(shù)常量、字符串常量和邏輯常量等類(lèi)型。 常量的定義方法：Const 常量名數(shù)值 假如：“Const pi 3.14”，就是定義了一個(gè)常量pi，在這個(gè)程序中出現(xiàn)的所有pi都會(huì)被VB自動(dòng)轉(zhuǎn)換成3.14。（3）變量 變量是用來(lái)表示數(shù)據(jù)的存儲(chǔ)區(qū)，也就是存放數(shù)據(jù)的容器。VB變量定義的方法：Dim 變量名 As 數(shù)據(jù)類(lèi)型例如：Dim a As Integer，即將a 定義為整數(shù)型變量

6、。如果定義兩個(gè)或 兩個(gè)以上的同類(lèi)型變量，可以用語(yǔ)句：Dim a, b As Integer，就是定義了a，b兩個(gè)整數(shù)型變量。 變量定義時(shí)，變量的取名有一定的限制，變量的名稱(chēng)跟對(duì)象名取名規(guī)則相同，都是由字母、數(shù)字和下劃線組成，必須是字母開(kāi)頭，VB系統(tǒng)中已使用的字符不能作為變量名，比如：Dim String As Integer，該語(yǔ)句錯(cuò)誤，因?yàn)镾tring是數(shù)據(jù)類(lèi)型名，不能再作為變量名了（4）數(shù)組變量 數(shù)據(jù)是由一批同類(lèi)型的變量構(gòu)成的一個(gè)序列，組成數(shù)組的每一個(gè)變量被稱(chēng)為數(shù)組的元素，也稱(chēng)為下標(biāo)變量，下標(biāo)是一個(gè)整數(shù)，用來(lái)指出某個(gè)元素在數(shù)組中的位置。 一維數(shù)組變量定義的常用形式為：Dim 數(shù)組變量名(a

7、1 To a2) As 元素的類(lèi)型 二維數(shù)組變量定義的常用形式為：Dim 數(shù)組變量名(a1 To a2， b1 To b2) As 元素的類(lèi)型一般情況下，數(shù)組變量都采用循環(huán)語(yǔ)句進(jìn)行賦初值。 注意：注釋是以英文單引號(hào)(')開(kāi)頭的一串文字，可以出現(xiàn)在程序中需要說(shuō)明的位置上，通過(guò)這一串文字，對(duì)附近的程序段進(jìn)行簡(jiǎn)要的說(shuō)明，增加程序的可讀性。注釋對(duì)程序的執(zhí)行效果沒(méi)有任何影響，程序運(yùn)行時(shí)自動(dòng)跳過(guò)注釋。（5）常用的標(biāo)準(zhǔn)函數(shù)6、VB表達(dá)式及基本運(yùn)算 一個(gè)表達(dá)式中可能包括算術(shù)運(yùn)算、關(guān)系運(yùn)算和邏輯運(yùn)算等多種基本運(yùn)算，以及運(yùn)算所涉及的數(shù)據(jù)(變量和常量)、常用標(biāo)準(zhǔn)函數(shù)等。各種基本運(yùn)算的符號(hào)及優(yōu)先級(jí)別見(jiàn)下表：注

8、意：關(guān)系運(yùn)算和邏輯運(yùn)算的結(jié)果只有True或False，其中邏輯運(yùn)算中“非”運(yùn)算就是取反，比如Not True的結(jié)果就是False?！芭c”運(yùn)算只有運(yùn)算符的兩邊都是True，結(jié)果才是True。就是說(shuō)表達(dá)式a And b，只有a和b都是True的情況下結(jié)果才是True，否則結(jié)果為False?！盎颉边\(yùn)算只要運(yùn)算符的兩邊有一邊的值是True，則結(jié)果就是True。比如表達(dá)式a Or b，只要a、b中有一個(gè)是True，則結(jié)果就是True，只有a和b都是False，結(jié)果才是False。7、順序語(yǔ)句、選擇語(yǔ)句、循環(huán)語(yǔ)句 （1）順序語(yǔ)句 順序結(jié)構(gòu)的執(zhí)行順序是自上而下，依次執(zhí)行。大多數(shù)情況下順序結(jié)構(gòu)都是作為程序的一

9、部分，與其他結(jié)構(gòu)一起構(gòu)成一個(gè)復(fù)雜的程序。 賦值語(yǔ)句 賦值語(yǔ)句的作用是把賦值號(hào)(等號(hào))右邊表達(dá)式的計(jì)算結(jié)果存儲(chǔ)到賦值號(hào)左邊的變量或某個(gè)特定的對(duì)象屬性中，其格式如下： 變量名表達(dá)式 或 對(duì)象名.屬性名表達(dá)式例如有語(yǔ)句：A12*3，執(zhí)行完該語(yǔ)句就將等號(hào)右邊表達(dá)式結(jié)果賦值給變量A。注意：VB程序中，可以在一行上寫(xiě)一個(gè)語(yǔ)句，也可以在一行上寫(xiě)多個(gè)語(yǔ)句，一行上相鄰兩個(gè)語(yǔ)句之間用冒號(hào)(：)分隔。 （2）選擇語(yǔ)句a、行If語(yǔ)句行If語(yǔ)句必須在一行內(nèi)寫(xiě)完。行If語(yǔ)句格式如下： If 條件表達(dá)式 Then 語(yǔ)句1 Else 語(yǔ)句2 或 If 條件表達(dá)式 Then 語(yǔ)句b、塊If語(yǔ)句If 條件表達(dá)式1 Then語(yǔ)句塊

10、1Else語(yǔ)句塊0End If多條件：If 條件表達(dá)式1 Then語(yǔ)句塊1ElseIf 條件表達(dá)式2 Then語(yǔ)句塊2ElseIf 條件表達(dá)式n Then語(yǔ)句塊nElse語(yǔ)句塊0End If （3）循環(huán)語(yǔ)句a、For循環(huán)語(yǔ)句 通過(guò)次數(shù)控制循環(huán)的計(jì)算過(guò)程。For語(yǔ)句主要用于循環(huán)次數(shù)已知的情況，因次，也被稱(chēng)為計(jì)數(shù)循環(huán)。For語(yǔ)句的一般格式如下：For 循環(huán)變量初值 To 終值 Step 步長(zhǎng)循環(huán)體語(yǔ)句塊Next 循環(huán)變量 For語(yǔ)句中步長(zhǎng)可以是正數(shù)，也可以是負(fù)數(shù)，但不可為0。默認(rèn)的步長(zhǎng)為1，即“Step 1”。Next后面的循環(huán)變量與For語(yǔ)句中的循環(huán)變量必須一致，執(zhí)行該語(yǔ)句時(shí)循環(huán)變量的值增加一個(gè)

11、步長(zhǎng)值。注意：一般不要在循環(huán)體內(nèi)修改循環(huán)變量的值，否則會(huì)造成循環(huán)次數(shù)的不準(zhǔn)確，而且程序調(diào)試也非常困難。如果在循環(huán)體內(nèi)強(qiáng)行退出循環(huán)，可用“Exit For”語(yǔ)句。b、Do循環(huán)語(yǔ)句通過(guò)條件控制循環(huán)的計(jì)算過(guò)程。一般情況下，F(xiàn)or語(yǔ)句都可以用Do語(yǔ)句來(lái)代替，而且在某些情況下，如果事先不知道循環(huán)應(yīng)該執(zhí)行的次數(shù)，但知道在什么條件下需要循環(huán)，則不能用For語(yǔ)句而必須用Do語(yǔ)句。因此，Do語(yǔ)句的適用面比For語(yǔ)句要廣。Do語(yǔ)句的常用格式如下：Do While 條件表達(dá)式循環(huán)體語(yǔ)句塊Loop注意：如果想在Do循環(huán)語(yǔ)句中強(qiáng)行退出循環(huán)，可用“Exit Do”語(yǔ)句。8、解析算法 解析算法是指用解析的方法找出問(wèn)題的前提

12、條件與所求結(jié)果之間關(guān)系的數(shù)學(xué)表達(dá)式，并通過(guò)表達(dá)式的計(jì)算來(lái)實(shí)現(xiàn)問(wèn)題求解。例如：計(jì)算以速度作勻速直線運(yùn)動(dòng)的一個(gè)物體，在t秒內(nèi)經(jīng)過(guò)的距離s，可通過(guò)公式svt得到。9、枚舉算法 枚舉算法也稱(chēng)窮舉算法，就是按照問(wèn)題本身的性質(zhì)，一一列舉該問(wèn)題所有可能的解，并在逐一列舉的過(guò)程中，檢驗(yàn)每個(gè)可能解是否問(wèn)題真正的解。若是，就采納這個(gè)解，否則就拋棄它。在列舉的過(guò)程中，既不能遺漏，也不能重復(fù)。比如，要求一個(gè)二元一次不定方程的所有正整數(shù)解，就可以采用枚舉算法。 1、（2015年10月）.編寫(xiě)VB程序，實(shí)現(xiàn)如下功能:在文本框Textl和Text2中分別輸入一個(gè)整數(shù)，單擊命令按鈕Command1,在列表框List1中顯示結(jié)

13、果，運(yùn)行效果如第14題-1圖所示。結(jié)果包含兩列數(shù)據(jù)，第1列為兩數(shù)之間的攝氏溫度值（間隔1度、升序），第2列為對(duì)應(yīng)的華氏溫度值。第1題-1圖第1題-2圖（1）要使命令按鈕Command1上顯示的文本改為“轉(zhuǎn)換”，可在其屬性窗口（第14題-2圖) 中將 屬性的屬性值 修改為“轉(zhuǎn)換”。（2）為實(shí)現(xiàn)上述功能，請(qǐng)?jiān)趧澗€處填入合適代碼或選項(xiàng)。Private Sub Command1_Click()Dim t1 As Integer, t2 As IntegerDim i As Integer, t As IntegerDim f As SingleList1.Cleart1 = Val(Text1.Tex

14、t)t2 = Val(Text2.Text)If Then '(選填字母,從下列A、B、C、D四個(gè)選項(xiàng)中選取一項(xiàng)） t = t1: t1 = t2: t2 = tEnd Ifi = t1Do While '(選填字母,從下列A、B、C、D四個(gè)選項(xiàng)中選取一項(xiàng)）f = i * 9 / 5 + 32 '攝氏溫度轉(zhuǎn)換為華氏溫度List1.AddItem Str(i) + " " + Str(f) '（填程序代碼）LoopEnd Sub劃線、處的選項(xiàng):A.i <= t2B.f <= t2C.t1 > t2D. i < f2、（2

15、016年4月）編寫(xiě)VB程序，實(shí)現(xiàn)如下功能：在文本框Text1中輸入某一年份，單擊“天干地支與生肖”按鈕Command1，在列表框List1中輸出該年份開(kāi)始的12個(gè)年份及對(duì)應(yīng)的“天干地支”與“生肖”，運(yùn)行界面如圖所示，程序代碼如下。（1）代碼“Private Sub Command1_Click()”中的Click是 。（單選，填字母：A.對(duì)象名/B.屬性名/C.事件名）（2）為實(shí)現(xiàn)上述功能，請(qǐng)?jiān)趧澗€處填入合適的代碼。Private Sub Command1_Click()Dim a As Integer, b As IntegerDim i As Integer, n As IntegerDi

16、m c1 As String, s1 As StringDim c2 As String, s2 As StringDim c3 As String, s3 As StringList1.Clears1 = "甲乙丙丁戊己庚辛壬癸"s2 = "子丑寅卯辰巳午未申酉戌亥"s3 = "鼠?；⑼谬埳唏R羊猴雞狗豬"n = Val(Text1.Text)For i = n To a = (i + 6) Mod 10 b = (i + 8) Mod 12 c1 = Mid(s1, a + 1, 1) c2 = Mid(s2, b + 1, 1)

17、c3 = Mid(s3, b + 1, 1) List1.AddItem + "年" + c1 + c2 + " " + c3Next iEnd Sub（3）由上述算法可知，2024年對(duì)應(yīng)的“天干地支”為 。3、（2016年10月）編寫(xiě)“加法練習(xí)題生成器”程序，實(shí)現(xiàn)如下功能：在文本框Text1中輸入題數(shù)n，單擊“生成”按鈕Command1，在列表框List1中顯示n個(gè)兩數(shù)之和小于100的加法練習(xí)題。程序運(yùn)行界面如圖a所示。圖a 圖b（1）在設(shè)計(jì)程序界面時(shí)，應(yīng)使用圖b所示“控制工具箱”中的 （填寫(xiě)相應(yīng)編碼）添加“生成”按鈕。（2）實(shí)現(xiàn)上述功能的VB程序如下

18、，請(qǐng)?jiān)趧澗€處填寫(xiě)合適的代碼。Private Sub Command1_Click()Dim n As Integer, i As Integer, a As Integer, b As IntegerRandomizen = Val(Text1.Text)i = Do While i <= na = Int(Rnd * 100)b = Int(Rnd * 100)If ThenList1.AddItem "(" + Str(i) + " )" + Str(a) + "+" + Str(b) + "="i =

19、i + 1End IfLoopEnd Sub4、（2017年4月）奇偶校驗(yàn)是一種校驗(yàn)數(shù)據(jù)傳輸正確性的方法。其中奇校驗(yàn)方法：統(tǒng)計(jì)二進(jìn)制數(shù)據(jù)的數(shù)位中“1”的個(gè)數(shù)，若個(gè)數(shù)為奇數(shù)，則校驗(yàn)位值為0，否則校驗(yàn)位值為1。小李編寫(xiě)了一個(gè)計(jì)算奇校驗(yàn)位值得VB程序，功能如下：在文本框Text1中輸入1255十進(jìn)制待校驗(yàn)數(shù)，單擊“計(jì)算”按鈕Command1后，在文本框Text2中顯示該數(shù)對(duì)應(yīng)的二進(jìn)制值，并在標(biāo)簽Label3中顯示該數(shù)的校驗(yàn)位值。程序運(yùn)行界面如圖所示。（1）在設(shè)計(jì)程序界面時(shí)，要清空文本框中的顯示內(nèi)容，應(yīng)修改該文本框中的 屬性。（2）實(shí)現(xiàn)上述功能的VB程序如下，請(qǐng)?jiān)趧澗€處填入合適代碼。Private S

20、ub Command1_Click() Dim a As Integer, s As String Dim n As Integer, t As Integer, v As Integer n = Val(Text1.Text) t = 0 s = "" Do While n > 0 a = n Mod 2 n = n 2 t = s = Str(a) + s Loop v = t Mod 2 Text2.Text = s Label3.Caption = "校驗(yàn)位值：" + End Sub5、（2017年11月）編“字符串生成”程序，實(shí)現(xiàn)如下功能

21、：在文本框Text1中（字符位置)輸入多個(gè)正整數(shù) (以“，”為分割符和結(jié)束符），單擊“生成”按鈕Command1,程序以這些整數(shù)為位置信息，依次從文本框Text2中（字典內(nèi)容）提取字符并連接成字符串，最后將字符串顯示在標(biāo)簽Label1中（生成內(nèi)容）。程序運(yùn)行界面如下圖所示。(1)要使程序運(yùn)行時(shí)，窗體Form1標(biāo)題顯示“字符串生成”，可在Form_Load事件過(guò)程屮添加語(yǔ)句 (單選，填字母:A.Form1 = "字符串生成" / ="字符串生成"/ C. Form1.Caption="字符串生成"）。（2）實(shí)現(xiàn)上述功能的VB程序如下，請(qǐng)

22、在劃線處填入合適的代碼。Private Sub Command1_Click()Dim s As String, t As String, c As StringDim i As Integer, p As Integers = "": t = ""For i = 1 To Len(Text1.Text) c = Mid(Text1.Text, i, 1) If c = "," Then p = Val(t) s = s + Mid(Text2.Text, p, 1) t = "" Else t = End IfN

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

24、d事件過(guò)程中添加語(yǔ)句 （單選，填字母：A. Width=2018 / B.Textl. Width = 2018 / C. Width. Textl=2018）。（2）實(shí)現(xiàn)上述功能的VB程序如下，請(qǐng)?jiān)趧澗€處填入合適的代碼。Private Sub Command1_Click()Dim s As String, c As String, d As StringDim n As Integer, bl As Integer, b2 As Integer, v As Integer, i As Integers = Textl.Text: n = Len(s): i = 1Do While i &l

25、t;= n c = Mid(s, i, 2) If c = "00" Then d = "東" ElseIf c = "01" Then d = "南" ElseIf c = "10" Then d = "西" Else d = "北" End If b1 = Val(Mid(s, i + 2, 1) b2 = Val(Mid(s, i + 3, 1) v= List1.AddItem d + " " + Str(v) LoopEnd

26、Sub1、運(yùn)行下列VB程序，在文本框Text1中輸入15，,界面如圖所示。單擊“開(kāi)始”按鈕Command1后，標(biāo)簽Label1中顯示的內(nèi)容是 ，文本框Text2中顯示的內(nèi)容是 。Private Sub Command1_Click()Const x = "轉(zhuǎn)換成八進(jìn)制數(shù)為"Dim y As Integer '用于存儲(chǔ)輸入的十進(jìn)制自然數(shù)Dim s As String '用于存儲(chǔ)轉(zhuǎn)換后的結(jié)果Dim r As Integery = Val(Text1.Text)s = ""Do While y <> 0 '采用除八取余法 r

27、 = y Mod 8 s = Str(r) + s y = y 8LoopLabel1.Caption = Text1.Text + xText2.Text = sEnd Sub2、某地出租車(chē)計(jì)價(jià)方式如下：3公里內(nèi)（包括3公里）起步價(jià)10元； 超過(guò)3公里，但10公里內(nèi)，則3公里內(nèi)收費(fèi)10元，超出部分每公里2元；如果超過(guò)10公里，則10公里內(nèi)收費(fèi)24元，超出部分每公里3元。其程序?qū)崿F(xiàn)如下：Private Sub Command1_Click( )x=Val(Text1.Text)If x<=3 Then y = 10ElseIf (1) Then y=10+(x-3)*2Elsey = (

28、2) _(3)_ Label1.Caption = Str(y)End Sub 請(qǐng)把上面程序補(bǔ)充完整。3、體質(zhì)指數(shù)（BMI）是目前國(guó)際上常用的衡量人體胖瘦程度以及是否健康的一個(gè)參考標(biāo)準(zhǔn)，其計(jì)算公式是：體質(zhì)指數(shù)（BMI）= 體重 ÷ 身高2體質(zhì)指數(shù)18.518.5-2626結(jié)果偏瘦正常肥胖現(xiàn)要求編寫(xiě)VB程序(運(yùn)行界面如圖所示），實(shí)現(xiàn)如下功能：在文本框Text1中輸入體重（kg），文本框Text2中輸入身高（m），單擊“判定”按鈕Command1，在標(biāo)簽Label1中輸出判斷結(jié)果。相應(yīng)的Visual Basic程序如下，請(qǐng)?jiān)诋?huà)線處填入適當(dāng)?shù)恼Z(yǔ)句或表達(dá)式，把程序補(bǔ)充完整：Private S

29、ub Command1_Click()Dim w As Single,h As Single,b As Singlew=Val(Text1.Text)h= _ b= _ If b<18.5 Then Label1.Caption=“偏瘦”If _ Then Label1.Caption=“正?！盜f b>=26 Then Label1.Caption=“肥胖”End Sub4、有如下 VB 程序: Private Sub Command1_Click()Dim s1 As String, s2 As String, i As Integer,ch As String s1 = Te

30、xt1.TextFor i = 1 To Len(s1)ch = Mid(s1, i, 1)If Asc(ch) >=65 And Asc(ch)<90 Then ch = Chr(Asc(ch) + 3)End Ifs2 =ch+s2 Next i Label1.Caption = s2End Sub已知大寫(xiě)字母 A 的 ASCII 碼為 65。運(yùn)行上述程序，若文本框 Text1 中的內(nèi)容為 “A1b2C3”，單擊命令按鈕 Command1，標(biāo)簽 Label1 中顯示的是（ ）AA1b2C3B3C2b1ACD1b2F3D3F2b1D第5題圖5、有一個(gè)函數(shù)f，這個(gè)函數(shù)的參數(shù)是兩個(gè)字

31、符串s1、s2，這兩個(gè)字符串必須長(zhǎng)度相同并且由小寫(xiě)字母組成。函數(shù)的輸出是一個(gè)與s1、s2長(zhǎng)度相同的字符串s，字符串s的第i個(gè)字符為字符串s1、s2的第i個(gè)字符中小的那個(gè)，比如：f("ab", "ba") = "aa"， f("nzwzl", "zizez") = "niwel"。編寫(xiě)VB程序，模擬上述函數(shù)的功能：在文本框Text1中輸入字符串參數(shù)x，在文本框Text2中輸入字符串參數(shù)y，單擊“計(jì)算”按鈕Command1，在文本框Text3中輸出函數(shù)f(x,y)的值。運(yùn)行界面如

32、第5題圖所示。（1）在設(shè)計(jì)程序界面時(shí)，要使窗體的標(biāo)題顯示為：有趣的函數(shù)，則應(yīng)修改窗體的 屬性。（2）實(shí)現(xiàn)上述功能的VB程序如下，請(qǐng)?jiān)趧澗€處填入合適代碼。Private Sub Command1_Click() Dim f As String, x As String, y As String x = Text1.Text y = Text2.Text f = "" If Len(x) <> Len(y) Then Text1.Text = "請(qǐng)輸入符合要求的字符串！" Text2.Text = "請(qǐng)輸入符合要求的字符串！"

33、 Else For i = 1 To Len(x) If Then f = f + Mid(y, i, 1) Else f = f + Mid(x, i, 1) End If Next i Text3.Text = fEnd Sub（3）運(yùn)行該程序，在文本框Text1中輸入flash，在文本框Text2中輸入excel，單擊“計(jì)算”按鈕Command1，則文本框Text3中顯示 。6、第一代二十世紀(jì)出生的公民身份證號(hào)碼由15位阿拉伯?dāng)?shù)字組成：1-2位省、自治區(qū)、直轄市代碼；3-4位地級(jí)市、盟、自治州代碼；5-6位縣、縣級(jí)市、區(qū)代碼；7-12位出生年月日, 例如670401代表1967年4月1日

34、；其中第15位單數(shù)為男，雙數(shù)為女。 現(xiàn)編寫(xiě)VB程序，實(shí)現(xiàn)如下功能：在文本框Text1中輸入15位身份證號(hào)碼，單擊“判斷”按鈕Command1，在列表框Text2和Text3中分別輸出該身份證號(hào)碼對(duì)應(yīng)的出生日期、性別，運(yùn)行界面如圖所示第6題（1）在設(shè)計(jì)程序界面時(shí)，要使按鈕Command1顯示“判斷”，應(yīng)修改按鈕的_ 屬性。（2）實(shí)現(xiàn)上述功能的VB程序如下，請(qǐng)?jiān)趧澗€處填入合適代碼。Private Sub Command1_Click() Dim sf As String, c As Integer, sex As String Dim t1 As Integer, t2 As Integer, t

35、3 As Integer, t4 As Integer sf = Text1.Text c = Len(sf) If c = 15 Then t1 = Val(Mid(sf, c, 1) t2 = t3 = Val(Mid(sf, 9, 2) t4 = Val(Mid(sf, 11, 2) If Then sex = "男" Else sex = "女" End If End If Text2.Text = Str(t2) + "年" + Str(t3) + "月" + Str(t4) + "日"

36、; Text3.Text = Val(sex) End Sub（3）運(yùn)行該程序，出現(xiàn)錯(cuò)誤提示“類(lèi)型不匹配”，則處應(yīng)修改為 。7、“四葉玫瑰數(shù)”是指一個(gè)四位自然數(shù)各位上數(shù)字的四次方之和等于四位數(shù)本身。如自然數(shù)1634就是一個(gè)“四葉玫瑰數(shù)”，因?yàn)?4+64+34+44=1634。編寫(xiě)一個(gè)程序，實(shí)現(xiàn)如下功能：?jiǎn)螕簟罢覍ぁ卑粹oCommand1后，在列表框List1中顯示找到的所有“四葉玫瑰數(shù)”，并在標(biāo)簽Label3中顯示玫瑰數(shù)的個(gè)數(shù)。（1）在設(shè)計(jì)程序界面時(shí)，應(yīng)使用圖b中的_（填寫(xiě)相應(yīng)編號(hào)）添加按鈕。圖a 圖b（2）實(shí)現(xiàn)上述功能的VB程序如下，請(qǐng)?jiān)趧澗€處填入合適代碼。Private Sub Comman

37、d1_Click()Dim I As Integer, count As IntegerDim a As Integer, b As Integer, c As Integer, d As Integercount = 0for i= 1000 to 9999a= i 1000b=_c= Int(i - a * 1000 - b * 100) / 10)d= i - a * 1000 - b * 100 - c * 10If_ThenList1.AddItem Str(i)count = count + 1End IfNext iLabel3.Caption="共有四葉玫瑰數(shù)：&qu

38、ot;+_End Sub8、編寫(xiě)VB程序，實(shí)現(xiàn)如下功能：在文本框Text1中輸入一個(gè)整數(shù)，單擊命令按鈕Command1，在文本框Text2中顯示對(duì)應(yīng)的二進(jìn)制編碼，運(yùn)行界面如下圖所示，程序代碼如下。（1）為實(shí)現(xiàn)上述功能，請(qǐng)?jiān)趧澗€處填入合適代碼。Private Sub Command1_Click() Dim x As Integer, s As Integer Dim y As String x = If x = 0 Then Text2.Text = Else Do While x > 0 s = x Mod 2 x = Int(x / 2) y = Loop Text2.Text = y End IfEnd Sub（2）“Command1_Click()”中的“Click”是 （選填：對(duì)象名/屬性名/事件名）。9、編寫(xiě)VB程序，實(shí)現(xiàn)如下功能：在文本框Text1中輸入一個(gè)不大于10000的正整數(shù)n，單擊“分解”按鈕Cmd1，在標(biāo)簽Label2中顯示n的質(zhì)因數(shù)分解結(jié)果。運(yùn)行界面如圖a所示，程序代碼如下。圖a（1）代碼“Private Sub Cmd1_Click()”的事件過(guò)程名是_。（2）為實(shí)現(xiàn)上述功能，請(qǐng)?jiān)趧澗€處填入合適的代碼。Private