VB語言程序設(shè)計(jì)試題庫

1、VE程序設(shè)計(jì)一、判斷題1、同一F orm窗體中得各控件可以相互重疊，其顯示得上下層次得次序不可以調(diào)整.( X ) 2?、一個(gè)對象得若能識(shí)別多個(gè)事件,我們只能對其中一個(gè)事件編程()3、單選按鈕與復(fù)選框?qū)ο蟮肰alu e屬性類型不同，且只能取值 Tr u e與F a Ise .( V )4、 事件過程由某個(gè)用戶事件或系統(tǒng)事件觸發(fā)執(zhí)行，它不能被其她過程調(diào)用 . ()5?、 圖片框得Mov e方法不僅可以移動(dòng)圖片框，而且還可以改變該圖片框得大小，同時(shí)也會(huì)改變 該圖片框有關(guān)屬性得值。 ( V )6、“ A= B= C就是一個(gè)合法得 Visu a l Ba sic語句。()7、當(dāng)在一個(gè)簡單組合框得文本框中

2、輸入一個(gè)它得列表框中沒有得條目時(shí)，組合框會(huì)自動(dòng)把這一條目添加到它得列表框中()8?、Vi su al B as i c程序得運(yùn)行可以從Ma in()過程啟動(dòng)，也可以從某個(gè)窗體啟動(dòng)( V ) ?9、在圖片框中放置得控件既可以在該 圖片框內(nèi)移動(dòng)，也可以移出該圖片框外。 ()10、對于文件系統(tǒng)控件，當(dāng)驅(qū)動(dòng)器控件 Drivel 中得驅(qū)動(dòng)器符改變時(shí) ,文件夾列表控件 Dir1中顯示得文件夾也作相應(yīng)得改變，可以在 Dr i ve1中得Change事件中使用如下命令。D ir1、Pat h = D ri ve 1、 D rive ( V )1 1、 滾動(dòng)條控件可作為用戶輸入數(shù)據(jù)得一種方法。 ( V )12?

3、、 單選按鈕控件與復(fù)選框控件都具有Valu e屬性,它們得作用完全相同。()13?、靜態(tài)變量就是一種局部變量, 當(dāng)原過程再次被執(zhí)行時(shí) , 靜態(tài)變量得初值就是上一次過程調(diào)用后得值。 ( V )1?4、 Visual Basic提供得幾種標(biāo)準(zhǔn)坐標(biāo)系統(tǒng)得原點(diǎn)都就是在繪圖區(qū)域得左上角，如果要把坐標(biāo)原點(diǎn)放在其她位置,則需使用自定義坐標(biāo)系統(tǒng)。( V ) 1?5。注釋語句REh可自成一 語句。 ( V ) ?1 6、 用鼠標(biāo)選中某菜單控件時(shí)，觸發(fā) Click 事件；而用鍵盤選中該菜 單控件時(shí),觸發(fā)K e yP re ss( ) 1?7、組合框兼有文本框與列表框兩者得功能，用戶可 以通過鍵人文本或選擇列表中得

4、項(xiàng)目來進(jìn)行選擇 .( V )18、當(dāng)定時(shí)器控件得In terv a l屬性值設(shè)置為0時(shí)，會(huì)連續(xù)不斷地激發(fā)T ime r事件。()19?.執(zhí)行程序 x=0 : for I= 2 to 10 s t e p - 2:x=x+ 1 0: n ext I 后 x 得值為0。 ( V )2、 句“ FontNam e=宋體”與“ Fo r m1、Fon t Name =”宋體” ”得作用完全相同， 無一例外。()21?局變量只能在窗體得通用區(qū)內(nèi)用P u bli c或global定義.()22?、在盤驅(qū)動(dòng)器列表框D rivel得Chan ge事件過程中，代碼Dirl、Path=Dr iv el 、 Dri

5、ve得作用就是：當(dāng)Drivel得驅(qū)動(dòng)器改變時(shí),Di r l得目錄列表隨不 同驅(qū)動(dòng)器作相應(yīng)改變 .( V )2 3 .直到型循環(huán)至少能執(zhí)行一次循環(huán)體。( V ) ?2 4、Var i ant就是一種特殊得數(shù)據(jù)類型,Va r iant類型變量可以存儲(chǔ)除定長字符串?dāng)?shù)據(jù)及自定義類型外得所有系統(tǒng)定義類型 得數(shù)據(jù).Var i ant類型變量還可具有Empt y、Error與Nu II等特殊值。( V ) ?2 5、 如果一個(gè)菜單項(xiàng)得 Vis ib le屬性為Fa Ise,則它得子菜單也不會(huì)顯示。( V )26、 運(yùn)行程序后在同一窗體上不可能同時(shí)選中兩個(gè)單選鈕. ()27、窗體得 Enabl ed 屬性值為

6、 Fal se 時(shí), 該窗體上得按鈕、文本框等控件就不會(huì)對用戶得操作做出反應(yīng)。 ( V )28.定時(shí)器得inte r v al屬性值為0時(shí)，不會(huì)發(fā)生tim e r事件。( V ) 框架控件與形狀控件都不能響應(yīng)用戶得鼠標(biāo)得單擊事件。 ()在一個(gè)窗體得代碼中不能使用 Un load 語句來卸載本窗體，即一個(gè)窗體只能由其她窗29、30、體卸載 . ()3 1.移動(dòng)圖片框時(shí)，以該圖片框?yàn)檩d體得各控件得Left與 T op屬性值不變。(V )二 . 單選題32、 組合框得C ha nge()事件在下列那種情況下發(fā)生？(A、在程序改變控件得大小時(shí)發(fā)生BC、用戶在編輯文本區(qū)內(nèi)容時(shí)發(fā)生33、為了使標(biāo)簽框得中得

7、文字能自動(dòng)折行，A、Caption 與 A uto S i z eBC、V i s ible 與 En ableC)、用戶在下拉列表中改變選項(xiàng)時(shí)發(fā)生D當(dāng)程序改變組合框得Style屬性時(shí)發(fā)生 必須同時(shí)設(shè)置下面兩個(gè)屬性為True。 ( D )、A uto Size 與 Al i gme ntD、 AutoSize 與 Word Warp34、如果希望文件列表框只顯示可執(zhí)行文件 , 應(yīng)該修改( B ) 屬性。A 、 Pat t er nB 、 FilterD、35、為了使某個(gè)命令按鈕處于不可用狀態(tài)，應(yīng)該設(shè)置該命令按鈕得CC、 P a thA、D efaultnd e x36、 通用對話框控件得返回值

8、表示所選擇文件得( B )C、文件主名D、文件擴(kuò)展名37、關(guān)于單選按鈕與復(fù)選框 , 下列說法正確得就是：( CA、單選按鈕與復(fù)選框得V a l ue屬性值可能就是0或1B、同一窗體上得單選按鈕只能有一個(gè)處于選中狀態(tài)C、復(fù)選框不支持DblClick事件D單選按鈕選中狀態(tài)得改變只能由用戶進(jìn)行，而不能由程序設(shè)置38、下列控件中哪個(gè)控件沒有 Cha nge事件(C、標(biāo)簽D單選按鈕39、菜單項(xiàng)顯示分隔線就是通過設(shè)置(A、Ca ptio n B nab le d4 0、運(yùn)行時(shí)組合框控件B、b1、Li stB Enabl ed屬性。、 CanceIB)D 、 TabI?A、路徑名B 、全名D )?A、滾動(dòng)條

9、、目錄列表框、 Vi si bIe屬性來實(shí)現(xiàn)得。、Ch eckedDEb1中所選擇得表項(xiàng)C、b 1、ListI ndex41、要使Shape控件以實(shí)心方式填充，應(yīng)該設(shè)置其(, 可以表示為 ( CD 、b 1、L istCB )屬性。?A、b1、T extA FillColorB、FillStyl eC、Ea ckStyl eD 、Sha pe42、向文本框中輸入一個(gè)字符 , 下列 事件不會(huì)發(fā)生。（ C ）A、Ch an g eB、K eyPressC、G otF o cus D 、Key Dow n43、 下面關(guān)于框架、復(fù)選框與單選鈕得敘述,正確得就是 .（E ） ?A、框架沒有Cap ti

10、on屬性，而復(fù)選框與單選鈕都有C apt i on屬性E、一個(gè)框架中得復(fù)選框有可以多個(gè)被選中 ？C、一個(gè)窗體中單選鈕有且只有一個(gè)可以被 選中 ?A、 可以把窗體中已存在得單選鈕拖到框架中 , 成為框架中得一員44、 用戶在窗體上單擊時(shí)，將先后觸發(fā)該窗體得（D ）A、Mo us eDowr事 件、Click 事件、M ouseMov e 事件、Mous eUp 事件？B、C li ck事件、 Mous eDowr事件、Mous eUp事件、Mo us e Move事件C、Mo use Dowr事 件、Cli ck事件、Mouselp 事件、Mous eMov e 事件？D M o u s e D

11、ow n 事件 、MouseU p事件、Clic k事件、Mo useM o v e事件45、 下面 方法不屬于列表框與組合框。（A ） ?A、Cl sB 、AddI temC、Ge tFoc u s D 、RemovI tem?4 6、在圖片框控件 Picturel 上坐標(biāo)（x, y）處 畫一個(gè)綠色點(diǎn),寫作（ D ） . ? A、Pset （x,y ）, Rgb（ 0 ,255,0）E、P i ct ur el、Pset（x, y ）, GreenC、P set (x , y) ,vbGreenD、Pi c tu r el、P s et (x,。( B )y)， vbG reen47、下面關(guān)

12、于滾動(dòng)條與計(jì)時(shí)器控件得敘述,其中錯(cuò)誤得就是A、當(dāng)滾動(dòng)條得Val ue值改變時(shí)，發(fā)生Change事件E、當(dāng)拖動(dòng)滾動(dòng)條時(shí),釋放鼠標(biāo)時(shí)發(fā)生S c ro ll事件C、計(jì)時(shí)器控件在運(yùn)行時(shí)就是不可見得D計(jì)時(shí)器與滾動(dòng)條控件都有 En able屬性C ） 事件48、單擊滾動(dòng)條兩端得任一個(gè)滾動(dòng)箭頭,將觸發(fā)該滾動(dòng)條得A、 Scr ollB、 KeyDownC、ChangeD、D ragov4 9、設(shè)置某子菜單項(xiàng)得Ca ptio n （標(biāo)題）屬性為“畫圖（&D）,為“ Ctr l L”. 啟動(dòng)工程時(shí),下面 不會(huì)觸發(fā)該子菜單得 Click 事件。 A、打開主菜單，按D鍵C、用鼠標(biāo)單擊該子菜單項(xiàng) 要改變控件得寬度，應(yīng)修

13、改該控件得TopB 、L eft、順序文件有三種打開方式,下面Rand om（ C ）FormS hortCut快捷鍵）屬性D ）50、A、5lA、52A、E、 Input對象不能作為控件得容器B、直接按Ctrl+L鍵D、打開主菜單，按 （ C ） 屬性。C 、 Width 種不就是。（ A ）C、Ou tputAlt+DD、 He ight、Ap pendoB 、 Pict u re E oxC、 Shap eD、Fram e53、 將命令按鈕 ma nd1 設(shè)置為不可見 , 應(yīng)修改命令按鈕得 （ b l eB、V alueC 、Capti o nB、V alueAD 、 Enabl ed)

14、 屬性. ?A、 Visi5 4.下列數(shù)據(jù)類型中，占用內(nèi)存最小得就是（B ) oA、Bo ole a nB、B yteC、In teg e rD、Si ngle5 5、( D)對象具有Cl ea r方法。A、圖片框B 、窗體C、復(fù)選框D、列表框5 6個(gè)對象可以執(zhí)行得動(dòng)作與可被對象識(shí)別得動(dòng)作分別稱為（B ） o ?A、事件、方法B、方法、事件？ C、屬性、方法D過程、事件57o已知A、B、C中C最小，則判斷A、B、C可否構(gòu)成三角形3條邊長得邏輯表達(dá)式就是（B ）oA、A=B An d B =CAnd C0B A+CBA nd B+O A And C 0C、（A+ B=C O r A Cv =C）

15、 A nd C 0 C A n d C058、將通用 對話框monDia l o g1得類型設(shè)置成 方法。？A Sh ow OpenD S howFo nt59. 下面（ C ）就是日期型常量A、“12/ 1 9 / 99D、12 /1 9/99重新定義圖片框控件得坐標(biāo)系統(tǒng)，可采用該圖片框得B、D 、A+B C An d A B“另存為”對話框，可調(diào)用該控件得得（B ）B、S howSaveC、ShowC olor12/19/9 9C、# 12/1 9 /9 9#60、A、ScaleB 、Sc al eX61.D對象不具有 Cap tion 屬性。C、F ormD Ti m er6 2.Int

16、eg e r類型得變量可存得最大整數(shù)就是（25663 要改變控件得寬度，應(yīng)修改該控件得To pB、Le f t對于窗體級(jí)變量，以下說法錯(cuò)誤得有： 所在窗體得各子程序都可以訪問 其她窗體得子程序不能訪問 所在窗體得子程序能訪問用Pri v ate用區(qū)內(nèi)定義6 5。在窗體FormI得Cl i ck事件過程中有以下語句：（ C ）“Lab el1、 C apt i on二”“ Vi sual Basi c 若本語句執(zhí)行之前，標(biāo)簽控件得Capti on屬性為默認(rèn)值，則標(biāo)簽控件得 Name屬性與Ca pti on屬性在執(zhí)行本語句之前得值分 別為。A、“ L abel ”Basi c”C “Label1”

17、C、32 7 6 8A、64、A、“Label”“Label 1”C、Sc al eYD?A、La b el)o ?A32767 屬性。、WidthB )方法。D 、Se25 5B、t FocusOptio nD、H eight定義得窗體級(jí)變量？D、一定要在所在窗體得通“La beD、Captio n“Visu al“Label6 6、下面關(guān)于變量得作用域與生存周期得描述正確得就是（窗體得通用區(qū)內(nèi)定義 ？B、窗體級(jí)變量與靜態(tài)變量具有相同得作用域與生存周期 過程中用“ D im ”定義得局部變量與用“ Sta t i c 用域？D同一過程中用“ D i m ”定義得局部變量與用“ 有相同得生存周

18、期C ） 全局變量可在?C 同 一定義得局部變量具有相同得作S t atic定義得局部變量具6 7. 一個(gè)菜單項(xiàng)就是不就是一個(gè)分隔條，由（B、C apt ionC。Enabled6 8 I n teger類型得變量可存得最大整數(shù)就是A、25 5B、256B ）對象在運(yùn)行時(shí)一定不可見。DO pti on狀控件所顯示得圖形不可C、圓角正方形A）方式打開得文件只能讀不能寫B(tài) 、Out putB )D(DC、?A、Line屬性決定.？A、N ame (名稱)、Visi b le)327 6 8、32 7 6769.下面（C、Text7 0 .形B、橢圓71 .以下（A、In putApp end7 2

19、、對象不具有C aption屬性。（A、Lab el73、由 For k=074、以下（AA、In put75、由 F o r（ A ）1 076、想要改變控件在窗體中得左右位置，可以修改該控件得B Timer就是（D等邊三角形.?A、圓C 、Ra ndomD )CN ext kB、O pt i o n3 5 TO 0 Step 3:B 12)方式打開得文件只能讀不能寫B(tài)、Out putk =35 TO 0 S t e p 3 : N ext k 0、FormD Timer循環(huán)語句控制得循環(huán)次數(shù)就是C 、-11。C、Rand omA ) ?A、D、一 10B、12D、Appe nd循環(huán)語句控制

20、得循環(huán)次數(shù)就是-11D 、（B、Le ftC、W idt hD、Right7 7、要在文件列表框中顯示不同類型得文件可以通過設(shè)置（B、Pat h CD、 Listl nde x7 &窗體得D rawWidth屬性值設(shè)置為大于1時(shí)，下列（C ）o lo r B、F i 1 lStyle C、Dra ws t y le D、F i llcolor 79.如果在圖片框上使用繪圖方法繪制一個(gè)圓，則圖片框得（ 觀產(chǎn)生影響。A、Backco 1 orw sty 1eB、ForeColorB ）屬性.？A、T opA )屬性？A Pat t ern屬性會(huì)失去作用？A、B ackcA ）屬性不會(huì)對該圓得外C、

21、Draw Widt hD、Dra80、菜單編輯器中呈現(xiàn)以下狀態(tài),程序運(yùn)行后下列（嘰打開“編輯”菜單后按下“ CB、直接按下 Ct r 1 +C ?C鼠標(biāo)單擊“復(fù)制”菜單項(xiàng)？D、“ A lt + E ”“ Alt+C ”D能Ctrl+C二.填空題81 oVB得字符串運(yùn)算符有_ +_與 兩種,其中運(yùn)算符兩邊得表達(dá)式類型必須為字符型得運(yùn)算符就是o8 2、 設(shè) x=6,y = 4, z = 7,下面表達(dá)式得值就是tr ue _xy and y xz or x z8 3、設(shè)n就是一個(gè)自然數(shù),那么求n得位數(shù)L得表達(dá)式可以就是L= _ 1 en(str( n)-1_.例如：若 n=1 2 3 45,則 L

22、=5 84、在打開某窗體時(shí)，初始化該窗體中得各控件，應(yīng)選用Io a d事件。85?.滾動(dòng)條得當(dāng)前 值用_ value 表示。8 6、設(shè)x為大于零得實(shí)數(shù)，則大于x得最小奇數(shù)得Vi s u al Ba sic表達(dá)式就是(I nt(x ) +1)2)* 2+1(或(F i x (x)+ 1)2 ) *2+ 1 ) o8 7、在代碼設(shè)計(jì)中，為了給某控件得Ea ckColor屬性賦一個(gè)顏色值,可以有三種方法獲得顏色,它們分別就是QBC olor()函數(shù)、顏色常數(shù)與 _ RGB() 函數(shù).88?、a1與a 2之中有且只有一個(gè)與a 3得值相等,相應(yīng)得Vi sua 1 B a sic邏輯表達(dá)式就是a1= a3

23、Xor a2=a3(或 a1=a3 A nd a v a3 Or al a 3 A nd a2=a 3)。？8 9、 以圖片框Pi c tu r el得中心為圓心，以1000為半徑在Pi cture1上畫一個(gè)圓得方法就是 _ p icture1、circle (pi ct ur e1、widt h/2 ,pi c t u re1、hei gh t /2 ) ,1000_ _。90、設(shè)in it得初值為1 0 ,則由下列循環(huán)語句控制得循環(huán)次數(shù)就是 _6_ oDo W h i1 e init = 5Init=ini t- 1 ?_o o p9 1、窗體得E nabl e d屬性值為_ False時(shí)

24、,該窗體上得按鈕、文本框等控件就不會(huì)對用戶得操作做出反應(yīng)。92、在Visual B a s ic中，變量從它得作用范圍來瞧?？煞譃槿肿兞?、模塊級(jí)變量與局 部變量3種。93 o Vi s ua l Basic 提供了對文件得三種存取方式，分別就是_ In put 一、_ o ut put _ _ 與 Append _ .94、8 語句 Picture1、Ci r c 1e (800，1000 )，50 0 得含義就是以圖片框 Pictu r e1 中 得(800，1000)為圓心，以5 0 0為半徑畫一個(gè)圓。95、 用Visual Basic開發(fā)應(yīng)用程序得三步曲”就是：_ 界面設(shè)計(jì)一、 屬性設(shè)

25、置 與代碼設(shè)計(jì)_ _o96、在VB中，若要產(chǎn)生一消息框，則可用函數(shù)_ msgbox _ 來實(shí)現(xiàn)。97、已知n為一個(gè)三位正整數(shù)，寫出求n中十位數(shù)得Vis ual B a s i c表達(dá)式 (n 10) mod 1 0。 98?.若要獲得用戶在驅(qū)動(dòng)器列表控件中所選擇得驅(qū)動(dòng)器，可通過訪問該對象得 D riv e .屬性來實(shí)現(xiàn)。99、 表達(dá)式(4、2 )衣7 Mod 3、14得運(yùn)行結(jié)果就是 _2。 1?0 0、目錄列表框(DirL i st B ox)中，當(dāng)前文件夾對應(yīng)項(xiàng)目得 L i stlnde x屬性值為 _ 1 _ _.101.利用Line方法可以畫_ 直線、矩形與實(shí)心矩形。10 2.Vi su

26、 al B asic得菜單可分為下拉式 菜單與_ 彈出式菜單兩種。10 3、在V isua l Ba s i c中,一文件列表框_ 與 通用對對話框_ 控件具有屬性1 0 4.在VB中，用于產(chǎn)生輸入對話框得函數(shù)就是 I n putb ox_,其返回值類型為字符型_ ,若要利用該函數(shù)接收數(shù)值型得數(shù)據(jù)，則可利用V al _函數(shù)對其返回值進(jìn)行轉(zhuǎn)換而得到。105?、用PictureBo x與I mag e控件裝載圖形圖像時(shí),為了使圖形圖像與所在得控件大小相等,可以改變106?、形狀得Shape屬性可以取_6 個(gè)值，分別代表各種不同得形狀1 0 7、如果在圖片框上使用繪圖方法繪制一個(gè)圓,則圖片框得 Ba

27、ckcolo r 屬性不會(huì)對該 圓得外觀產(chǎn)生影響。P i c t ur eBox得stretc h _ 屬性與Im a ge得 a ut osi z e _ 屬性。108. 求a與b之積除以c得余數(shù)，用V B表達(dá)式為_mod (a * b)/c ) _ _。1 09、Visu a l Bas i c常見控件中可以作為其她控件容器得控件有_框架 與一圖片框_ 。1?1 0.Vi s ual Ba sic得菜單可在一菜單編輯器 中設(shè)計(jì)完成。若要使某項(xiàng)菜單 在運(yùn)行時(shí)不可見，可設(shè)置該菜單對象得Visible屬性為F al se來實(shí)現(xiàn)；若要使某項(xiàng)菜單在運(yùn)行時(shí)失效,則應(yīng)設(shè)置菜單項(xiàng)對象_ Enabl ed

28、屬性為F a l se。111、 在代碼設(shè)計(jì)中，為了使定時(shí)器Time r1能處于關(guān)閉狀態(tài),使系統(tǒng)不響應(yīng)它得Time r()事件,可以設(shè)置 Ti m er 1、E n a bled = False 或t i mer1、I n terval=0 。112、 表達(dá)式C hr(A sc (“ R) Asc (“ A) +Asc( “ a”)得值就是 _ r.11 ?3 .Prin t Mid$( S tr $ (123 4)，3,2)得結(jié)果為 _2 3 _ _ .程序閱讀題四、閱讀下列程序，寫出運(yùn)行結(jié)果。1、程序 1?P rivate Subma nd1_Click ()Di m x As Integ

29、er, s As In teg erx = V a 1(1 n pu t Box (請輸入一個(gè)正整數(shù)=)If x v 5 Th e n ?s = s * xEls e? s = s + x? En d If? text 1、T ext = ” s= + Str(s )End Sub程序運(yùn)行時(shí)連續(xù)3次單擊man di且設(shè)輸入得數(shù)就是5,2與4時(shí)，分別寫出文本框Tex tl、Text得值. 2?、程序 2 ?Priva t eSubForm_Cli ck( )?Form 1、Cls ?w =3?F or k = 2 To 6 S tep 2Form1、 Print ” w=”；w,”k =；kw

30、= w + 1Nex t k?F orm1、 Pri ntw =； w,”k=；kEndS ub寫出程序運(yùn)行時(shí)單擊窗體后,F o r m 1上得輸出結(jié)果。3、程序 3 ?P r i vate S ub Form_Cl ick()?D imx As StringDi m i As I nt eg e r , n As Integer ?Form1、 Cls?x= A BCD EFGHKL?n = Len(x ) ?For i =nT o 1 Step- 2 ?Form1、Pri nt Tab(20 i) ; Mid (x, i ,1)Ne xtiEndSub寫出程序運(yùn)行時(shí)單擊窗體后,F o r

31、ml上得輸出結(jié)果。4、 程序 4Dim a As I n teger , y As I n teg e r? P r ivate Sub Form_L oad()Ope n ” c: a l、d at For Ou t p ut A s #1 ? C los e #1End SubPrivat e Su b man d1_Click()Op en c :a 1、datF or Ap pend As #1Cal laa (5 )y = y aPrint #1, y =; y ,” a=; aC los e # 1End SubSub aa(i As I nt eger)Do Un t il x

32、i ?a = a +x?x = x + 3? L o o pEnd Sub?寫出程序運(yùn)行時(shí)連續(xù)3次單擊man d 1后，a1、dat文件得最終結(jié)果。程序閱讀題答案:1、 ?s = 5?s = 10s =4 0 2? ?w = 3 k=2 ?w=4 k = 4?w=5 k = 6 ?w= 6 k = 83?、 ? LHF?D ?B 4?、?y=5 a=5?y=15 a=1 0y= 3 0 a=15五、程序填空題仔細(xì)閱讀下列各小題得程序說明與相應(yīng)得程序，在每小題提供得若干可選答案中，挑選一個(gè) 正確答案。1、【程序說明】 本程序求3100之間得所有素?cái)?shù)（質(zhì)數(shù)）并統(tǒng)計(jì)個(gè)數(shù)，同時(shí)將這些素?cái)?shù)從小到大依次寫

33、入順序文件e:dat ao ut、t x t,素?cái)?shù)得個(gè)數(shù)顯示？在窗體Form1上。?【程序】P ri v at e Sub man d1C1 ick ()Dim c ou nt As I n tege r, flag As Bool ea nDi mti As I n t eg er,t2 AsInt eger(1)c o unt =:0Fo r ti =3 To 100f lag=T r u e?For t2 = 2 T o Int (S qr (t1 )If(2 ) Thenflag二:Fa 1 seN ex t t 23(?)cou nt = c ou nt + 1 ? Write #1

34、, t1 ? End If ? N extt1 ?( 4 )Cl ose #1?End Subg 1) A、Open e :da t aout、t x t For O u tput As # 1?B Open e : dat aout、txt For Inp u t As# 1 ?C Open e : data o ut、txt For Outpu t A s #2DO p e n e: d a t a out、tx t ForO utp u t As # 12(?) A、t2 t1=0 B、t 1 Mod t 2 = 0 C、t1t2=0 D、t2 Mod t1 = 03(?) A、I f

35、flag Then B、If t2 t1 ThenC、I f t 1t 2The n D、 If t2i nt( sqr(t1) Th e n(4 ) A、 For m l 、 Print 素?cái)?shù)個(gè)數(shù) : ”;c ount ?B、Prin t l素?cái)?shù)個(gè)數(shù)： ；CountC、Form1 、 Print素?cái)?shù)個(gè)數(shù)： ；countD、F or m1、 Prin t 素?cái)?shù)個(gè)數(shù)：”： C ount?2、 程序說明由輸入對話框輸入(設(shè)n為大于零且小于30得自然數(shù))，計(jì)算下列表達(dá)式并在標(biāo)簽框 Label1上顯示。1 / (1 * 2) +1/(2 * 3) +1 /( 3*4) +1/(n*( n+ 1) ?【

36、程序】Private Sub F or m_Cl ic k() ?Di m n As In teg er, sum As Doubl e , k A s I ntegerDo (5 )n = V a l ( I npu t B ox (H n= ”，請重輸)?Lo op ?s um = 0(6)Dok = k + 1sum=( 7 )?Lo op U nt i l k = n?Lab el1、Caption = ” Sum +St r (sum )?E ndSu b 5(?) A、Wh il e n=30 B、Whi le n=30?C、 Until n0 Orn =0and nv = 3 0

37、( 6)A、 k=2 B 、k=1 C、K= - 1D、 k=07(?)A、 1/(k *(k+1) B 、 l/(k1)*kC、s u m+1/ ( k*( k + 1) D、sum+1/k*(k +1) 3?、【程序說明】本程序用于處理文本框Textl、Tex t中得內(nèi)容,假設(shè)文本框中有偶數(shù)個(gè)字符要求將文本框 從頭尾至中間依次各取字符，組成一個(gè)新得字符串str2，并在窗體上輸出。？如:Textl、T ex t = 1 2 3 4567 8 ”，貝U S t r2 = 1 8 2 7364 5 ?【程序】Pri vate Su b F orm_Cl i ck()D i m Str1 As S

38、tring , Str2 A s St r ingStr1 = TeXt 1、 Text?Str2 = m = 0Do (8)Str2 = Str 2 + (9)Str 2 = S tr2+(10)m = m lLoopfo rm l、Pri nt Str2End Su b(8) A、Wh i 1 e mC、Unt il m Len (St r 1)/2 D Un til m Mid (s tr1,m, 1) ?C、Mi d(str1 , l e n (str 1)m,1)D、 Mi d( str1 , len(str1 ) m 1, 1)?程序填空題答案：D BACADCADC六、程序填空題

39、1、下面就是一個(gè)求 n! 得自定義函數(shù)代碼 .Private Fu nction J C (n As In teger ) A s Lon g?Dim R esult As L o ng ?If p= 1Then ? R esult = 1 ?Els e ? Res u 1 t =(1)End I f 2JC =(2) ?En d Functio n2、 下面得程序完成以下功能：單擊窗體上得“測試 (mand 1)按鈕,出現(xiàn)一個(gè)輸入框， 要求輸入一串字符，將該字符串中得非字母字符刪除后 ，顯示在窗體中得一個(gè)文本框(Tex t 1)中。？P r iv at e Sub mand1_Clic k

40、()Di m St1 ， St2 As St r in g ?Di m C h As ( 3)Dim L As Int e gerSt1 = Inpu tB ox (”請輸入一串字符，字符串輸入)?L = (4)St2 = ” ?For i = 1 To LCh = Mid(St1, i, 1) ?If (Ch A And (5 ) ) Or (Ch a” And Chz”)T h enSt2 = S t2 + ChEn d I f?Next i ?Text 1、Text =(6)End Sub3、下面得程序完成以下功能：窗體上有兩個(gè)命令按鈕“產(chǎn)生”（ma nd1）與“排序” （man d2）

41、。單擊“產(chǎn)生”按鈕時(shí)，隨機(jī)產(chǎn)生10個(gè)1 ,20 范圍內(nèi)得整數(shù)放在數(shù)組 A中，并在窗體上輸出單擊“排序”按鈕時(shí)，用選擇法排序這10個(gè)數(shù)并輸出 Qi m A( 1 0) As I nt ege rP rivate S ub ma nd1Click () ?Di m i As In teg er ?Ran domiz ePrint 排序前得數(shù)列 :F o r i = 1 To 10A( i ) = ( 7)Pr i nt Str (A(i ) ) + ” ; ?Next i ?P ri n t?End SubPr iva te Sub ma nd2_Q ic k() ?D im i , j , Mi

42、n, Temp As I nt ege r ?Pri n t P rin t 選擇排序后得數(shù)列 : ” ?F ori = 1To9?Min =A( i )?For j =( 8 )To 10?I f A(j) Min ThenTemp =A(j )?A(j )二(9)Min =Temp ?End If?Next jA(i )= Min1(?0) ?Fori=1 To10Pr int S tr(A(i) )+ ;N extiP rintEn dSub程序填空題答案: (1)n*J C (n1)(2)r e sult( 3 ) s t ri n g (4)le n( st r)( 5)chz( 6

43、) st 2(7) int(R n d * 20) +1( 8 )I+1(9)min(1 0)n exti七、程序填空題1 、 程序說明：利用一個(gè)計(jì)時(shí)器，一個(gè)標(biāo)簽框與兩個(gè)命令按鈕制作一個(gè)動(dòng)態(tài)秒表 , 單擊“結(jié)束”命令按鈕 , 秒表結(jié)束計(jì)時(shí)，并在標(biāo)簽框顯示運(yùn)行時(shí)間，如“運(yùn)行 了 0 小時(shí) 2 分 1 0秒 。 (假設(shè)對象得屬性都在程序代碼中設(shè)定 ) 一個(gè)動(dòng)態(tài)秒 程序代碼如下Di m x As Lon g?Di m h As I n te g er, m As I nte g er, s As I nt ege r Private S u b F o rm_Load()Fo rm1、Capt i

44、o n =”動(dòng)態(tài)秒表 ( 小時(shí): 分:秒)”m and 1 、Caption =開始 &S ?mand 2、C a pt i on =結(jié)束&E La be l 1、 A1 ignment = 2Lab el1 、C apt ion =0 ：0： 0” ?Timer 1、 In terv a l =(1)Ti mer1、Enab1 ed= Falsex = 0End Sub ?ri vat e Sub mand1C1 ic k() ?(2) ?End Su bPr i v ate Sub m an d 2 Click ()Tim e r1、 Enab 1 ed = Fals ex =(3)運(yùn)行了

45、”+ Str(h )+ 小時(shí)” + Str(m)+ ”分”Label1、Ca pti o n +S t r(s ) +秒？EndSubPri vateS ubTi me r1_T i me r()x =x +1?h =(4)m =(xM od 36 0 0)6 ()s =(5)?L abel1、Capti on_ St r(h) + ”： + S tr (m) + : +Str(s ：)End Sub2、程序說明：己知自然對數(shù)得底數(shù)e得級(jí)數(shù)表示如下：？e = 1+1心!)+ 1/(2 ! )+、+1/(n !)+、本程序利用函數(shù)過程fact ()求e,其中得絕對值小于IE-8得項(xiàng)被忽略。程序代

46、碼如下?Private Func ti on f a ct(m A sI n t e ge r)As Si n g 1 e求m得函數(shù)Dim xAs Si ngle , iA sIn teger?x =1For i =1 To m ?X=(6)N ext ifact =x?EndF u n cti o nPr i va te Su b F or m_Click ()Dim e As Sing 1 e, i t em As Si ngle ? Di mn AsI n t eg e r ? e = 1:n =(7) ? D on = n +1?item= (8)e = e + it em ?Loo

47、p W h i le (9)程序填空題答案:、1 0 0 0、Timer1、En a bled = Tr ue或Tim e仁Tru e(3)、0、x 3 6 0 0(5)、x Mod60(6)、x* I、0、1/fact(n)(9)、Ab s (item ) =0、 0 0 0 00001八、1、分別寫出下面兩段程序執(zhí)行三次后得結(jié)果Privat e Sub Fo rm_CDim1 i c k()In tegD i m i As In te g e ivate Sr ?Sta t ic jA st egerj = j +1i = i +1Pr i n t ” i=; S(i) , j=;r( j

48、) ?End Subi, j A s er ?P ru b F o rI n m _Clic k () ?j = j + 1i = i +1Pr in t ” i =; t r Str (i) , j= ”； St St r (j) ?EndSub參考答案:1左：1=1j= 1I 二1j =21=1j =3右：I =1j = 11=2j =2=3j=3九、寫出下面程序執(zhí)行后得結(jié)果(其中在 Form_Cli c k()事件中調(diào)用了子過程Pro c)P ri v ate Sub Fo rm _Clic k()Dim x, y As In t egerDimu, vAs I nt e ger?x =1y =2 ?J =3Pro cx ,y ?J = u + x +yP r i nt ” x=; S tr (x),”y=；St r (y),u = ”；Str(u)E ndSubP rivate S ub Pro c( ByVa la As