VB章節(jié)練習(xí)題

1、第一章練習(xí)題一、選擇題1 VB6.0集成開發(fā)環(huán)境可以A ）編輯、調(diào)試、運(yùn)行程序，但不能生成可執(zhí)行程序B ）編輯、生成可執(zhí)行程序、運(yùn)行程序，但不能調(diào)試程序C ）編輯、調(diào)試、生成可執(zhí)行程序，但不能運(yùn)行程序D ）編輯、調(diào)試、運(yùn)行程序，也能生成可執(zhí)行程序2. 英文“Visual ”的含義是A ）可視化 B ）集成C ）結(jié)構(gòu)化 D ）調(diào)試3. 不能打開屬性窗口的操作是。A ）單擊工具欄中的“屬性窗口”按鈕B ）選取“視圖”菜單中的“屬性窗口“子菜單項(xiàng)C ）在對(duì)象上單擊右鍵，從彈出的快捷菜單中選擇“屬性窗口”選取項(xiàng)D ）選取“工程”菜單中的“屬性窗口”子菜單項(xiàng)4. 標(biāo)準(zhǔn)模塊文件的擴(kuò)展名是A ）frm B

2、）vbpC ）bas D ）vbg5. VB60集成開發(fā)環(huán)境有三種工作狀態(tài)，工作狀態(tài)顯示在。A ）狀態(tài)欄的最左方 B ）狀態(tài)欄的最右方C ）狀態(tài)欄的中括號(hào)內(nèi) D ）標(biāo)題欄的中括號(hào)內(nèi)6. 打開屬性窗口的熱鍵是A ）F1 B ）F2C ）F3 D ）F47英文縮寫“OOP ”的含義是。A ）事件驅(qū)動(dòng)的編程機(jī)制B ）結(jié)構(gòu)化程序設(shè)計(jì)語(yǔ)言C ）面向?qū)ο蟮某绦蛟O(shè)計(jì)D ）可視化程序設(shè)計(jì)8VB60集成開發(fā)環(huán)境的工作狀態(tài)有A ）一種 B ）兩種C ）三種 D ）四種9VB60是A ）8位 B ）16位C ）32位 D ）64位二、填空題1.VB60保存窗體文件的快捷鍵是。2.VB60保存工程文件的快捷鍵是。3.

3、VB6.04. 在 VB60集成開發(fā)環(huán)境中，可以編輯程序代碼，但不能修改用戶界面的工作狀態(tài)是中斷狀態(tài) 。5新建工程的熱鍵是6打開工程的熱鍵是。7運(yùn)行程序的熱鍵是。8. 工具欄中圖標(biāo) 的作用是。9工具欄中圖標(biāo) 的作用是 。第二章練習(xí)題一、選擇題1下面是窗體的四個(gè)屬性，在界面設(shè)計(jì)時(shí)，改變屬性值看不到窗體變化的是 DA ）Top B ）WidthC ）Left D ）Enabled2下面四個(gè)選項(xiàng)，不是窗體屬性的是A ）MinButton B ）MaxButtonC ）Caption D ）Load3下面四個(gè)選項(xiàng)，不是事件的是A ） LoadB ） Enabled C ）Unload D ）DblCl

4、lck4用來設(shè)置窗體背景圖片的屬性是A ）MoveableB ）Picture C ）ForeColorD ）Windowstate 5Load 事件是在窗體被裝入工作區(qū)時(shí)A ）用戶B ）程序員 C ）手工 D ）自動(dòng)6修改控件屬性，一般可以使用屬性窗口，也可以通過為屬性賦值。A ）命令B ）對(duì)象 C ）方法 D ）代碼7在 VB 60中的每一個(gè)對(duì)象都具有自己的屬性、和方法。A ）控件B ）函數(shù) C ）事件 D ）公用過程8圖案 表示工具箱中的控件。A ）標(biāo)簽B ）文本框 C ）框架 D ）復(fù)選框9在設(shè)計(jì)VB 60應(yīng)用程序界面時(shí)，改變窗體下面的屬性看不到效果的是A ）LeftB ）Top C

5、）VisibleD ）BackColor 二、填空題1窗體被裝入工作區(qū)時(shí)自動(dòng)觸發(fā)的事件是2 表示工具箱中的控件。3當(dāng)程序運(yùn)行后用鼠標(biāo)雙擊對(duì)象時(shí)觸發(fā)的事件是。4VB 605VB 6第三章練習(xí)題一、選擇題1已知字母A 的 ASCll 碼為十進(jìn)制的 65，表達(dá)式 ASC （”A ”） ASC （”C 的值是A ） 6567 B ）132C ）“AC ” D ）AC2在VB 60中，下列不正確的 Integer 型常數(shù)是。A ） 32768 B ） 0C ） 037 D ）Haf3在 VB 60中，下列不正確的字符串型常數(shù)是A ）” B ）“0”C ）”a ” D ）HAB4在 VB 60中， 123

6、45678的類型是。A ）整數(shù)型B ）長(zhǎng)整數(shù)型 C ）字符常數(shù)D ）雙精度常數(shù) 5下列四組（八進(jìn)制或十六進(jìn)制）常數(shù)中，正確的一組是A ）o88 obf h017B ）oabc o17 oaC ）o010 o11 h11D ）h12 o7FF h1236下列四組整型常量中，合法的一組是。A ） 160 hffff o11B ） ocdf 01 32768C ） 01 986,012 0668D ） o47 2e5 117以下選項(xiàng)中合法的字符串常數(shù)是A ） ABC B ）“34“C ）ABC D ）348以下選項(xiàng)中不合法的變量名是A ） a B ） A123C ）sgn D ）C_E！9下列四個(gè)敘

7、述中，錯(cuò)誤的是A ）在VB60中，無論是整數(shù)還是實(shí)數(shù)，都能被準(zhǔn)確地表示B ）在 VB 60中，變量名代表存儲(chǔ)器中的一個(gè)位置C ）過程內(nèi)用Dim 語(yǔ)句定義的變量，它的生存期與整個(gè)過程的運(yùn)行期相同D ）在VB6.0中，若模塊的“通用_聲明”中寫上語(yǔ)句： Option Explicit ，則該模塊的所有變量必須先說明后引用10已知變量A 、B 和C 中C 最小，則判斷A B，C 可否構(gòu)成三角形的邏輯表達(dá)式為。A ） A B And BC And C0B ） A C B And BC A And C0C ）（A B C Or A-BC ） And C0D ）A B C And A-BC And C01

8、1當(dāng)用 Const A As integer9.8定義后，下列敘述正確的是A ）A 是整型常數(shù) B ）A 是整型常量C ）A 是字符型常數(shù) D ）A 是變體類型的常數(shù)12 26 MOD 7運(yùn)行時(shí)輸出的結(jié)果為A ） 3 B ） 4C ） 5 D ） 613若X 5，Y 6，則表達(dá)式X Y 11的值是A ）X Y 11 B ）11C True D ）Flase14設(shè)A 10，B 20，則可以實(shí)現(xiàn)變量A ，B 值交換的程序是。A ） A 10 B ） A 10B 20 B 20B A C AA=B B=CA=BC ）A 10 D ）A 10B 20 B 20C A C AA B D BB C B C

9、A B15執(zhí)行下列語(yǔ)句后，V 的值是。A ”56789”V Val （Mid （A , 3，2）A ） 89 B ） 78C 67 D ） 016執(zhí)行下列程序段后，E ，F(xiàn) ，G 的值分別是。E 3：F 4：G= 5E F ：F G ：G= EA ） 3 4 5 B ） 4 5 3C ） 4 5 4 D ） 4 5 517m ，n 是整數(shù)，且n m ，在下面四個(gè)語(yǔ)句中，能將x 賦值為一個(gè)mn之間（含m ，n ）的任意整數(shù)，即滿足m x n 的是A ）x INT （RND*（n m 1）mB ）x INT （RND*n）mC ）x INT （RND*m）nD ）x INT （RND*（n m ）

10、m18 VB 6對(duì)表達(dá)式 Log （l ） Abs （l ） Int （Rnd （1）的值是。A ）l B ）0C ） l D ） 219 VB 6對(duì)表達(dá)式 Log （1） Abs （l ） Int （Rnd （1）的類型是A ）算術(shù)表達(dá)式 B ）關(guān)系表達(dá)式C ）錯(cuò)誤表達(dá)式 D ）邏輯表達(dá)式20 VB 6.0表達(dá)式”123” Abs （l ）的值是。A ） 1231 B ） 1231C ）錯(cuò)誤表達(dá)式 D ） 124二、填空題1數(shù)學(xué)式 2cos2y e2x的 VB 60表達(dá)式為。2. VB 6.0表達(dá)式-729/3 Mod（12* 32）的值為3執(zhí)行以下程序段后，G 的值是。a ”1”： b ”

11、2”c Val （a ） Val （b ）d Val （a b ）g c d4執(zhí)行以下程序段后，G 的值是。Dim a As Date， b As Datea ”2002/05/08”： b ”04/06/2002”g a b5VB 6.0表達(dá)式Len （Left （”abed ”， 3）Right （”北京大學(xué)”， 4）的值為7 。6設(shè)已定義 Len （Chr （65）Chr （66）的值是7VB 6.0表達(dá)式 Len （Trim （”ABC ”） RTrim （“ABC ”）的值為。第四章練習(xí)題一、選擇題1下面四個(gè)語(yǔ)句中，能打印顯示 2030字樣的是A ） Print ”2030” B ）

12、 Print 2030C ） Print Chr （20）”Chr （30）D ） Print Val （”20”）Val （”30”）2下列事件過程Private Sub CommandlClick （）Dim sum As Integersum 19sum 2.32Print sum；sumEnd Sub運(yùn)行后輸出結(jié)果是。A ） 19 2.32 B ） 19 19C ） 2.32 2.32 D ） 2 23. 下列代碼Defstr C-FPrivate Sub Commandl Click （） C ”123”D ”4 5 6”Print C D End Sub運(yùn)行后輸出結(jié)果是。A ） 1

13、23456 B ） ”123456”C ） 123”456” D ）顯示出錯(cuò)信息4下列代碼Defstr C-FPrivate Sub Commandl Click （） C ”123”D ”4 5 6”Print CDEnd Sub運(yùn)行后輸出結(jié)果是A ） 123456 B ） ”123456”C ） 123”456” D ）顯示出錯(cuò)信息5下列事件過程Private Sub Commandl Click （） Dim sum As Integersum 19sum 2.52Prrnt sum ； sum End Sub運(yùn)行后輸出結(jié)果是 C 。A ） 19 2 B ） 19 19 C ）3 3 D

14、 ）顯示出錯(cuò)信息 6下列事件過程Private Sub Commandl Click （） n =”nnnnn ”Mid （n ， 2， 2）=”NN Print n End Sub運(yùn)行后輸出結(jié)果是A ）”nNNnn ” B ）”nnNNn ” C ） nNNnn D ） nnNNn 7下列事件過程Private Sub Commandl Click （）Print Format（123.456，”. ”） End Sub運(yùn)行后輸出結(jié)果是A ） 123.46 B ） 123.45 C ） 123.456 D ） 12345.6 8下列事件過程Private Sub Commandl Click

15、 （）a ”12” b =”34” c =ab d=Val（c ） Print d10 End Sub運(yùn)行后輸出結(jié)果是A ）123 B ）123.4 C ） 123410 D ）”123410” 9下列事件過程Private Sub Commandl Click （） a =”Bird ” c =”fly ”Print a ”can ” c “! ” End Sub運(yùn)行后輸出結(jié)果是A ） Bird can fly! B ） Birdcanfly ！ C ） Bird can fiy ！ D ） Bird Can Fly！ 10下列事件過程Private Sub Commandl Click （

16、） Print 25 Mod（l 2 3） End Sub運(yùn)行后輸出結(jié)果是A ）4 B ）4 C ）0 D ）011可以用InputBOX 函數(shù)產(chǎn)生“輸入對(duì)話框”。若執(zhí)行下列語(yǔ)句： st InputBOX （“請(qǐng)輸入字符串”，”字符串對(duì)話框”，“字符串“） 當(dāng)用戶輸入完畢，按“確定”按鈕后，st 變量的內(nèi)容是D 。 A ）字符串 B ）請(qǐng)輸入字符串 C ）字符串對(duì)話框 D ）用戶輸入內(nèi)容12下面四個(gè)語(yǔ)句中，輸出邏輯值為“真”的是。 A ） Print Not（3546） B ）Print 2lAnd 32 C ） Print 12 Or 23 D ） Print Not （12） 13下列事件

17、過程Private Sub Commandl Click （） a 3： b 4 Print b a End Sub運(yùn)行后，輸出的結(jié)果是。 A ）43 B ）TrueC ）False D ）顯示出錯(cuò)信息 14下列事件過程Private Sub Commandl Click （） Dim zxs As Integer zxs % = 232 zxs = 232.32Print zxs； zxs End Sub運(yùn)行后，輸出的結(jié)果是B 。A ） 232 232.32 B ） 232 232 C ）232.32 232.32 D ）顯示出錯(cuò)信息 15下列程序Private Sub Commandl C

18、lick （） DefStl C-F d ”321” f ”654” Print d f$ End Sub運(yùn)行后，輸出的結(jié)果是。A ）321654 B ）”321654” C ）321”654” D ）顯示出錯(cuò)信息 16下列程序Private Sub Commandl Click （） Const st ”CHINA ” st ”GREAT ” st ”HeBei ” Print st End Sub運(yùn)行后，輸出的結(jié)果是。A ）CHINA B ）GREAT C ）HeBei D ）顯示出錯(cuò)信息 17下列程序Private Sub Commandl Click （） X1 = InputBox

19、（”請(qǐng)輸入”） Print Xl 123 End Sub運(yùn)行時(shí)，若輸入123，將輸出A ） 123123 B ） 246 C ） 123 D ）顯示出錯(cuò)信息 18下列程序Private Sub Commandl Click （） X1 = InputBox （”請(qǐng)輸入”） Print Xl “123” End Sub運(yùn)行時(shí)，若輸入123，將輸出A ） 123123 B ） 246 C ） 123 D ）顯示出錯(cuò)信息 19下列程序Private Sub Commandl Click （） X1 = InputBox （”請(qǐng)輸入”） Print Xl & “123” End Sub運(yùn)行時(shí)，

20、若輸入123，將輸出A 。A ） 123123 B ） 246C ） 123 D ）顯示出錯(cuò)信息二、填空題1. Printer.Print”2. PrintForm3. 下列程序Private Sub Commandl Click （）X1 = InputBox （”請(qǐng)輸入”）MsgBox （X1）End Sub運(yùn)行時(shí)，若輸入123，輸出對(duì)話框的提示信息是。4下列程序Private Sub Commandl Click （）X1 = InputBox （”請(qǐng)輸入”）MsgBox （”X1”）End Sub運(yùn)行時(shí)，若輸入123，輸出對(duì)話框的提示信息是第五章練習(xí)題一、選擇題1以下選項(xiàng)中，不是 VB

21、 60控件的是。A ）單選按鈕 B ）命令按鈕C ）滾動(dòng)條 D ）窗體2以下 VB 60控件中，有 Caption 屬性的是。A ）組合框 B ）列表框C ）計(jì)時(shí)器 D ）單選按鈕3不能作為容器使用的對(duì)象是A ）Picture B ）FormC ）Image D ） Frame4能作為容器使用的對(duì)象是A ）圖片框 B ）圖像框C ）標(biāo)簽框 D ）文本框5在程序運(yùn)行中，要想使可操作的按鈕變成看得見但不可操作，則應(yīng)設(shè)置為False 的屬性是。A ）Visable B ） EnabledC ） Default D ）Cancled6在程序運(yùn)行中，要想使可操作的按鈕變成看不見，則應(yīng)設(shè)置為False 的

22、屬性是A ） Visable B ） EnabledC ）Default D ）Cancled7若要將某命令按鈕設(shè)置為默認(rèn)命令按鈕。則應(yīng)設(shè)置為True 的屬性是。A ）Enabled B ）CancelC ）Defaul D ）Value8能觸發(fā)滾動(dòng)條Scroll 事件的操作是。A ）拖動(dòng)滾動(dòng)條中滑塊 B ）單擊滾動(dòng)條中滑塊C ）單擊滾動(dòng)條兩端箭頭 D ）單擊箭頭與滑塊之間的滾動(dòng)條9命令按鈕不能響應(yīng)的事件是A ）DblClick B ）ClickC ）MouseDown D ）Mouseup10若要設(shè)置標(biāo)簽框的背景顏色，使用的屬性是A ） ForeColor B ） BackColorC ）

23、FontBold D ） Color11使控件能自動(dòng)按圖形大小而改變的控件是A ）圖像框 B ）圖片框C ）文本框 D ）框架12下面選項(xiàng)中，不能將圖像裝入圖片框和圖像框的方法是A ）在界面設(shè)計(jì)時(shí)，手工在圖片框和圖像框中繪制圖形B ）在界面設(shè)計(jì)時(shí)，通過Picture 屬性裝入C ）在界面設(shè)計(jì)時(shí)，利用剪貼板把圖像粘貼上D ）在程序運(yùn)行期間，用LoadPicture 函數(shù)把圖形文件裝入13下面選項(xiàng)中，不能用于列表框控件的方法是。A ） AddItem B ） RemoveItemC ）Clear D ）Cls14下面選項(xiàng)中，不能使控件得到焦點(diǎn)的操作是。A ）在程序運(yùn)行期間，用鼠標(biāo)單擊對(duì)象B ）在程

24、序運(yùn)行期間，用快捷鍵選擇對(duì)象C ）在程序運(yùn)行期間，按Tab 鍵D ）在程序運(yùn)行期間，按回車鍵15計(jì)時(shí)器控件，如果希望每秒產(chǎn)生10個(gè)事件，則要將Interval 屬性的值設(shè)置為 A 。A ） 100 B ） 200C ）300 D ）400二、填空題1列表框的FOntBold 屬性的類型是。2圖像框控件使用系統(tǒng)資源比圖片框3刪除列表框中的所有項(xiàng)目使用的方法是。4從列表框中刪除項(xiàng)目使用的方法是5向列表框添加項(xiàng)目使用的方法是6在命令按鈕釋放鼠標(biāo)按鈕時(shí)，所觸發(fā)的事件稱為7工具箱中的圖標(biāo)是控件。8文本框能返回按鍵的ASCII 碼值的事件是第六章練習(xí)題一、選擇題1下列程序Private Sub Form_

25、Click（）For i 1 To 3For j 5 To 1 Step lPrint i*jNext jNext iEnd Sub運(yùn)行時(shí)，執(zhí)行 Print i*j的次數(shù)是。A ） 13 B ） 14C ） 15 D ） 16 2下面程序運(yùn)行的輸出結(jié)果是。Private Sub Form_Click（）X 3： y 0： Z 0If X y Z ThenPrint ”ElsePrint ” ”End IfEnd SubA ）有語(yǔ)法錯(cuò)誤，若設(shè)置了編輯時(shí)自動(dòng)檢查語(yǔ)法，編輯時(shí)表現(xiàn)出錯(cuò)誤B ）輸出C ）編輯時(shí)語(yǔ)法檢查查不出錯(cuò)誤，但不能運(yùn)行D ）輸出3下面的程序運(yùn)行時(shí)，若從鍵盤輸入3和4, 則輸出為。

26、Private Sub Form_Click（）a=Val（InputBoX （”請(qǐng)輸入a ”）b=Val（InputBoX （”請(qǐng)輸入b ”）c aIf b c Then c=bc c cPrint cEnd SubA ）14 B ） 16C ）18 D ）204下面的程序執(zhí)行時(shí)，若從鍵盤輸入5，則輸出為 Private Sub Form_Click（）X=Val（InputBoX （”請(qǐng)輸入X ”）For i=1 To 20 Step 2X X i 5Next iPrint XEnd SubA ）21 B ）22C ）23 D ）245下列程序Private Sub Form_Click（

27、）For i=1 To 10 Step 2For j=1 TO 5Prrnt i*j；Next jPrrntNext iEnd Sub該程序運(yùn)行時(shí)輸出的行數(shù)是A 。A ）5 B ）25C ）30 D ）506下面程序運(yùn)行的輸出結(jié)果是、Private Sub Form_Click（）X=100： a 10： b 20： ok1=True： ok2=FalseIf a b ThenIf b 15ThenIf Not ok1 Thenx 1ElseIf ok2 Then x=10x -1End IfEnd IfEnd IfPrint xEnd SubA ）1 B ） 0C ） 1 D ）不確定的值7

28、下面程序執(zhí)行時(shí)，輸入4和2, 輸出是。Option ExplicitPrivate Sub Command1_Click（）Dim m As Integer ， n As IntegerDim a， b ， rm InputBox （”請(qǐng)輸入第一個(gè)正整數(shù)：”）n InputBox （”請(qǐng)輸入第二個(gè)正整數(shù)：”）a = m: b = n: r = a Mod bDo While r 0a bb rr a Mod bLoopPrint bEnd SubA ） 0 B ） lC ） 2 D ） 38下列程序Private Sub Fom_Click（）b =1a =1DO While b<100

29、a=2*aIf a 6 Then Exit Dob a2b2LoopEnd Sub運(yùn)行后輸出的結(jié)果是 D 。A ） 5 B ） 17C ）21 D ）419下列程序Private sub form_ick（）S= 0N=5For i=1 to ns s iNext iPrint sEnd Sub運(yùn)行后輸出的結(jié)果是A ）15 B ）17C ） 19 D ）2110有如下程序Private Sub Form_Click（）S=0n=5For i=1 to nS S+nPrint sEnd Sub運(yùn)行后輸出的結(jié)果是。A ）15 B ）20C ）25 D ）3011下列程序option Explici

30、tPrivate Sub Command1_Click（）Dim a！，b ！，c ！，mmm ！a=InputBox（”請(qǐng)輸入第 l 個(gè)數(shù)：”）b inputbox （”請(qǐng)輸入第2個(gè)數(shù)：”）c=Inputbox（”請(qǐng)輸入第 3個(gè)數(shù)：”）mmm aif b>mmm then mmm=bif c>mmm then mmm=cPrint mmmEnd Sub運(yùn)行時(shí)，輸入數(shù)據(jù)是：100，200，300，輸出的結(jié)果是A ）-300 B ） 0C ）100 D ）20012下列程序Private Sub form_Click（）S=0n 100For i1 to nS S+iIf i Mod

31、 50 then print “*”Next iPrint sEnd Sub運(yùn)行后輸出的星號(hào)個(gè)數(shù)是。A ） 15 B ） 20C ）25 D ）30 13下列程序Private Sub Form_Click（）For i=1 to 10For j=1 to iS=S1Next jNext iPrint sEnd Sub運(yùn)行時(shí)，循環(huán)體執(zhí)行的次數(shù)是。A ） 45 B ） 50C ）55 D ）10014下列程序Private sub Form_click（）For i 1 to 10For j 1 to iPrint ”；Next jPrintNext iEnd Sub運(yùn)行時(shí)，輸出星號(hào)的行數(shù)是。A

32、 ） 10 B ）20 C ） 50 D ）100 。15下列程序Private Sub Form_click（）a=3If a<= 3 ThenPrint 3；End ifIf a<=4 ThenPrint 4；End ifIf a<=5 thenPrint 5；End IfIf a<=6 thenPrint 6 ；End ifPrintEnd Sub運(yùn)行時(shí)，輸出的結(jié)果是。A ） 3 B ）3 4 C ） 3 4 5 D ）3 4 5 6 16下列程序Private Sub Form_click（）For i=1 to 4m=0For j 1 To 5m=1For k

33、1 to 6m=m5Next kNext jNext iPrint mEnd Sub運(yùn)行后輸出的結(jié)果是 。A ） 11 B ） 21C ） 31 D ） 4117下列程序Private Sub form_click（）For i=1 to 4m=0For j 1 to 3If j=2 then m=m-59For k1 to 6m=m+5Next kNext jNext iprint mEnd Sub運(yùn)行后輸出的結(jié)果是 。A ） 11 B ）21 C ）31 D ）41 18有如下程序private sub form_ click(x=val(inputbox(“請(qǐng)輸入一個(gè)數(shù)”c=abs(xw

34、hile x<>-1if abs(x>c then c=abs(xx=val(inputbox(“請(qǐng)輸入一個(gè)數(shù)”wendprint cEnd Sub。運(yùn)行時(shí)輸入 5，9，8，2,-999,-1, 輸出的結(jié)果是 A ） 9 B -999C ）999 D -1二、填空題1下列程序的輸出結(jié)果是 private sub form_click( k=1: m 5For i=1 to mk k+i2Next iPrint k rnEnd Sub2下列程序的運(yùn)行結(jié)果是private sub form_click( m=5for i=1 to mprint chr(asc(“A ”+i-1;

35、Next iEnd Sub3以下程序運(yùn)行后的輸出結(jié)果是Private Sub Form_click（）a$”晴空萬(wàn)里”For i=1to 4 Step 2Print Mid（a$,4-i, 2）；Next iEnd Sub4以下程序運(yùn)行后的輸出結(jié)果是。Option ExplicitPrivate sub form_click（）Dim h As Integer，f As Integer, t As Integer, j As Integerh 4：f=10if f mod 2=0 and 2*h<=f and f<=4*h thenj=2*h-f/2 3t=f2h 1Print j

36、,tEnd ifEnd Sub5若A 的平方+B的平方=C的平方，則A,B ，C 稱為一組勾股數(shù)。下面程序的功能是找出100以內(nèi)的所有勾股數(shù)，并按A,B ，C 順序輸出。請(qǐng)?jiān)诋嬀€處填入適當(dāng)內(nèi)容。Private Sub Command_click（）For a 2 to 99For b= a+1 to 100If and C 100 thenPrint a， B ， CEnd ifNext BNext aEnd Sub6。下列是一個(gè)統(tǒng)計(jì)某班學(xué)生的血型情況的程序。程序的輸出是O 型血的20歲男學(xué)生的姓名及各種血型的人數(shù)（輸入數(shù)據(jù)包括每人的姓名、年齡、性別和血型）。Private Sub Comma

37、nd_ Click（）Dim A As IntegerDoN$=InputBox（”姓名：”）A InputtBox （ “年齡： ”）S$=inputBox（”性別：”）T$=inputBox（”血型：”）If N$=”END ” then exit doIf T$=”O(jiān) ” Then oo=oo+1If T$”A ” Then AA=AA+ IIf T$”B ” Then BB=BB1If T”AB ”Then ABAB 1If S$”M ”And A=20 And T=”o ”then print N$loopPrint ”o type-”；ooPrint ”A type-”；AAPri

38、nt ”B type-”； BBPrint ”AB type-”； ABEnd Sub運(yùn)行時(shí)，輸入數(shù)據(jù)如下：AAA ，23，M ，O ，BBB,22，F(xiàn) ，A,CCC ，20，M ，AB ，DDD ，21，F(xiàn),O ，EEE ，20，F(xiàn) ，B,GGG ，20,M ，O ，END ，0,0,0輸出的結(jié)果是75練習(xí)題一、選擇題1 Dim Uvw （ -3 to 3）所定義的數(shù)組元素個(gè)數(shù)是。A ） 6 B ） 7C ）8 D ）有語(yǔ)法錯(cuò)誤2定義10個(gè)單精度實(shí)型一維數(shù)組正確的語(yǔ)句是。A ）Dim Abc（9） As single B ）Option Base 1：Dim Abc（9）Cdim abc#(

39、9 D ） Dim Abc（ 10）As Single 3下列程序Option Base 1Dim uPrivate Sub Form_Click（）For i= 10 To l Step1Print u（i ）；Next iEnd SubPrivate Sub Form_Load（）u array （1，3，5，7，9，10，8，6，4，2）u(1=100End Sub運(yùn)行時(shí)，若從鍵盤輸入3和4則輸出為。A ） 1 3 5 7 9 10 8 6 4 2 B ）1 3 5 7 9 10 8 6 4 100C ） 2 4 6 8 10 9 7 5 3 1 D ）2 4 6 8 10 9 7 5

40、3 1004下列程序Private Sub Form_Click（）Dim aa Array （”天天向上”，”天津大學(xué)”，”天上人間”，“程序設(shè)計(jì)”） For i LBound （a ， 1） TO UBound（a ， 1）If left(a（i ），1 ” 天”Then print a （i ）;Next iEnd Sub運(yùn)行時(shí)輸出的結(jié)果是 A ）天天向上 B ）天天向上天津大學(xué)天上人間C ）出錯(cuò)信息 D ）天天向上天津大學(xué)天上人間程序設(shè)計(jì)5下列程序option base 1private sub form_click( dim a(10For i=1 to 10a （i ）= 10 i

41、 1Next iFor i 10 to 1 Step 2Print a （ i ）；Next iEnd Sub運(yùn)行時(shí)輸出的結(jié)果是。A ）1 3 5 7 9 B ）9 7 5 3 1C ）1 2 3 4 5 6 7 8 9 10 D ）10 9 8 7 6 5 4 3 2 16下列程序Option Base 1Private Sub Form_Click（）Dim a（10） As Integer， b （5） As IntegerFOr i=1TO 10a （i ） 10-i+ 1Next iFOr i 1 TO 5b （i ）a （2i-1）a （2i ）Next iFor i1 TO 5P

42、rint b（i ）；Next iEnd sub運(yùn)行時(shí)輸出的結(jié)果是。A ） 3 7 11 15 19B ） 19 15 11 7 3 C ） 1 3 5 7 9D ）不確定的值 7下列程序Option Base 1private Sub Form_cliCk（）Const upl 6Dim a（upl ） As IntegerFor i=1 to upla （i ）=i2NEXt iprint a （i ）end sub運(yùn)行時(shí)輸出的結(jié)果是。A ）36 B ）25C ）1 D ）出錯(cuò)信息8下列程序一Option Base 1Const upl 10Private Sub Form_click（）

43、Dim a（upl ） As IntegerK=-1For i=1 to upla （i ）=i*kk=-1*kNext iFor i=1TO 10Print a （ i ）；End Sub運(yùn)行時(shí)輸出的結(jié)果是A ） 1 3 5 7 9 10 B ）-1 -3 -5 -7 -9C ） -1 2 -3 4 -5 6 -7 8 -9 10 D ）1 -2 3 -4 5 -6 7 -8 9 -10二、填空題1下面程序的功能是分別計(jì)算給定的10個(gè)數(shù)中正數(shù)之和與負(fù)數(shù)之和，最后輸出這兩個(gè)和數(shù)的絕對(duì)值之商。清在畫線處填入適當(dāng)內(nèi)容，將程序補(bǔ)充完整。option Base 1Private Sub Command

44、l_click（）Dim AA= Array（23，5， 17 ,38, 31， 46, 11， 8, 5，-4）S1=0S2=0For k 1 To 10if （A （k ）0）thenS1 ElseEnd ifN6ext kX S1 AbS （S2）Print xEnd Sub2下面程序的功能是找出給定的10個(gè)數(shù)中最大的一個(gè)數(shù)，最后輸出這個(gè)數(shù)以及它在原來10個(gè)數(shù)中的位置。請(qǐng)?jiān)诋嬀€處填入適當(dāng)內(nèi)容，將程序補(bǔ)充完整。Option Base 1Private sub Form_click（）Dim aA=Array（23，5，17，3831，46，11，8 ,5，4） Max= l10 K K 1

45、If a （ K ） a （Max ） ThenEnd ifIf K 10 Then GoTo 10AM Print Max ， AMEnd Sub3下面程序是來一個(gè)3×3階矩陣的三行中元素之和最大的那一行。請(qǐng)?jiān)诋嬀€處填入適當(dāng)內(nèi)容，將程序補(bǔ)充完整。option Base 1Private Sub Form_Click（）Dim a（3， 3） AS integer， b （3） AS integerFor i=1 to3For j 1 To 3a （i ， j ）= InputBox（”請(qǐng)輸入一個(gè)數(shù)”）Next jNext iFor k=1 to3For j=1 to3b （k ）N

46、ext jFor i= 2 to 3If b（i ）sm Thensm b （i ）ns iEnd ifNext iPrint “最大的一行是“； ns ；”該行的和是：”； sm End Sub 8練習(xí)題一、選擇題1下列程序Private sub p12（n ）n=12*nEnd SubPrivate Sub Form_cliCk（）For j 5 To 3 SteplP12 jm m nNext jPrint m； nEnd Sub運(yùn)行后輸出的是 B 。A ）12 6 B ）11 7C ） 6 6 D ） 15 92下列程序Private Sub p13（x ，y ）X 2* x y ：

47、y 3*yPrint “x=”;x; ”,y=”;yEnd SubPrivate Sub Form_click（）a l ： b=lPrint ”A ” ； a ；”，B=”； bCall p13(a， b ）Print “A ”；a ；”，B ”； bEnd Sub運(yùn)行后輸出的是A ） A l ，B 1 B ） A 1，B lX=2，Y 3 X=3， Y 3A l ，B l A l ， B 3C ） A l ， B 1 D ） A l ， B 1X 2，Y 3 X 3， Y 3A 2, B 3 A 3， B 33下列程序Private Sub Form_ click（）title val （InputBOx （”請(qǐng)輸入一個(gè)數(shù)”）fee Countl （title ）Print feeEnd SubFunction Countl（title ）If title<40 thenPay= title/ 2ElsePay 2* titleEnd