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

VB程序設(shè)計(jì)一、判斷題1.同一Ｆｏrｍ窗體中的各控件可以互相重疊，其顯示的上下層次的順序不可以調(diào)整。(X)?2.一個(gè)對(duì)象的若能辨認(rèn)多個(gè)事件，我們只能對(duì)其中一個(gè)事件編程()?3.單選按鈕與復(fù)選框?qū)ο蟮模謅ｌue屬性類型不同，且只能取值Tｒue和False。(√）４．事件過程由某個(gè)用戶事件或系統(tǒng)事件觸發(fā)執(zhí)行，它不能被其他過程調(diào)用。()?5.圖片框的Move方法不僅可以移動(dòng)圖片框,并且還可以改變?cè)搱D片框的大小,同時(shí)也會(huì)改變?cè)搱D片框有關(guān)屬性的值。(√)?６.“A=B＝C”是一個(gè)合法的VisuaｌBasic語句。（）

7.當(dāng)在一個(gè)簡(jiǎn)樸組合框的文本框中輸入一個(gè)它的列表框中沒有的條目時(shí)，組合框會(huì)自動(dòng)把這一條目添加到它的列表框中。（)?8.ViｓualＢasic程序的運(yùn)營可以從Ｍain()過程啟動(dòng),也可以從某個(gè)窗體啟動(dòng)。(√）?9.在圖片框中放置的控件既可以在該圖片框內(nèi)移動(dòng)，也可以移出該圖片框外。()

10.對(duì)于文獻(xiàn)系統(tǒng)控件,當(dāng)驅(qū)動(dòng)器控件Drivel中的驅(qū)動(dòng)器符改變時(shí)，文獻(xiàn)夾列表控件Dir1中顯示的文獻(xiàn)夾也作相應(yīng)的改變，可以在Dｒive1中的Ｃｈａｎge事件中使用如下命令。Dir1．Ｐatｈ＝Ｄrive1.Drive(√）

11.滾動(dòng)條控件可作為用戶輸入數(shù)據(jù)的一種方法。(√）?１2.單選按鈕控件和復(fù)選框控件都具有Vａlue屬性，它們的作用完全相同。（）

13.靜態(tài)變量是一種局部變量,當(dāng)原過程再次被執(zhí)行時(shí),靜態(tài)變量的初值是上一次過程調(diào)用后的值。（√)?１4．VisualBaｓｉc提供的幾種標(biāo)準(zhǔn)坐標(biāo)系統(tǒng)的原點(diǎn)都是在繪圖區(qū)域的左上角，假如要把坐標(biāo)原點(diǎn)放在其他位置,則需使用自定義坐標(biāo)系統(tǒng)。(√）?1５．注釋語句RＥM可自成一語句。(√）

16.用鼠標(biāo)選中某菜單控件時(shí),觸發(fā)Ｃlick事件；而用鍵盤選中該菜單控件時(shí)，觸發(fā)KeyＰress()?１7.組合框兼有文本框和列表框兩者的功能,用戶可以通過鍵人文本或選擇列表中的項(xiàng)目來進(jìn)行選擇。(√)?18.當(dāng)定期器控件的Iｎｔerｖａl屬性值設(shè)立為0時(shí)，會(huì)連續(xù)不斷地激發(fā)Ｔｉmeｒ事件。（）

19．執(zhí)行程序x=0：fｏrＩ＝２to10ｓtep–2:x=x+1０:nextI后x的值為０。(√)?２．句“FｏntNａｍe="宋體"”與“Forｍ1.FｏｎtNａme="宋體"”的作用完全相同,無一例外。()

21局變量只能在窗體的通用區(qū)內(nèi)用Publｉc或gloｂaｌ定義。()?22.在盤驅(qū)動(dòng)器列表框Dｒｉｖel的Changｅ事件過程中,代碼Dirl．Path=Driｖel．Drive的作用是:當(dāng)Ｄｒiｖel的驅(qū)動(dòng)器改變時(shí),Dirl的目錄列表隨不同驅(qū)動(dòng)器作相應(yīng)改變。（√）2３．直到型循環(huán)至少能執(zhí)行一次循環(huán)體。（√）?2４．Ｖａｒiaｎt是一種特殊的數(shù)據(jù)類型,Variant類型變量可以存儲(chǔ)除定長字符串?dāng)?shù)據(jù)及自定義類型外的所有系統(tǒng)定義類型的數(shù)據(jù)。Vaｒｉａnｔ類型變量還可具有Empty、Errｏr和Null等特殊值。(√)

２５.假如一個(gè)菜單項(xiàng)的Viｓiblｅ屬性為False，則它的子菜單也不會(huì)顯示。（√）

26.運(yùn)營程序后在同一窗體上不也許同時(shí)選中兩個(gè)單選鈕。（)?2７.窗體的Eｎaｂｌｅd屬性值為Falsｅ時(shí)，該窗體上的按鈕、文本框等控件就不會(huì)對(duì)用戶的操作做出反映。(√)?２8．定期器的ｉnteｒval屬性值為０時(shí),不會(huì)發(fā)生tiｍer事件。(√）

２9．框架控件和形狀控件都不能響應(yīng)用戶的鼠標(biāo)的單擊事件。（)

30.在一個(gè)窗體的代碼中不能使用Unｌoad語句來卸載本窗體,即一個(gè)窗體只能由其他窗體卸載。()3１．移動(dòng)圖片框時(shí)，以該圖片框?yàn)檩d體的各控件的Ｌeft和Tｏp屬性值不變。（√）二．單選題３2．組合框的Cｈangｅ(）事件在下列那種情況下發(fā)生?(C)Ａ、在程序改變控件的大小時(shí)發(fā)生B、用戶在下拉列表中改變選項(xiàng)時(shí)發(fā)生C、用戶在編輯文本區(qū)內(nèi)容時(shí)發(fā)生D、當(dāng)程序改變組合框的Sｔｙle屬性時(shí)發(fā)生３３．為了使標(biāo)簽框的中的文字能自動(dòng)折行,必須同時(shí)設(shè)立下面兩個(gè)屬性為True。（D)A、Captioｎ和AutoSizeB、AutoＳｉze和AligｍenｔC、Visiblｅ和ＥnabｌeD、AｕtoSize和Ｗo(hù)rdWarｐ34.假如希望文獻(xiàn)列表框只顯示可執(zhí)行文獻(xiàn),應(yīng)當(dāng)修改（B)屬性。?Ａ、ＰatｔernB、FilterC、ＰathD、ＦileName３5．為了使某個(gè)命令按鈕處在不可用狀態(tài),應(yīng)當(dāng)設(shè)立該命令按鈕的屬性。（B)Ａ、DefaulｔＢ、EnabledC、CancｅlD、ＴabＩndex3６．通用對(duì)話框控件的返回值ＦileName表達(dá)所選擇文獻(xiàn)的(B）。?A、途徑名B、全名C、文獻(xiàn)主名Ｄ、文獻(xiàn)擴(kuò)展名３７.關(guān)于單選按鈕和復(fù)選框，下列說法對(duì)的的是:(C)Ａ、單選按鈕和復(fù)選框的Ｖａlue屬性值也許是０或1Ｂ、同一窗體上的單選按鈕只能有一個(gè)處在選中狀態(tài)Ｃ、復(fù)選框不支持DｂlCliｃｋ事件D、單選按鈕選中狀態(tài)的改變只能由用戶進(jìn)行，而不能由程序設(shè)立38.下列控件中哪個(gè)控件沒有Ｃhange事件(D)

Ａ、滾動(dòng)條B、目錄列表框C、標(biāo)簽D、單選按鈕39.菜單項(xiàng)顯示分隔線是通過設(shè)立（A)屬性來實(shí)現(xiàn)的。

A、CaptionＢ、VｉsibｌｅC、CheｃkedD、Ｅｎabｌｅd40.運(yùn)營時(shí)組合框控件Comｂ1中所選擇的表項(xiàng),可以表達(dá)為(C）。

A、Coｍｂ1.TextB、Comｂ１.LiｓtC、Coｍb1.ListIｎｄexD、Cｏmb1.ListCｏunt41.要使Ｓhape控件以實(shí)心方式填充，應(yīng)當(dāng)設(shè)立其(Ｂ）屬性。A、ＦiｌｌCoｌorB、FillStｙleC、BackStylｅＤ、Shａpe42.向文本框中輸入一個(gè)字符,下列事件不會(huì)發(fā)生。（C）

A、ＣｈaｎgｅB、ＫeyPressC、GｏtFoｃuｓD、ＫeｙDown43．下面關(guān)于框架、復(fù)選框和單選鈕的敘述,對(duì)的的是。(Ｂ)

Ａ、框架沒有Caｐtion屬性，而復(fù)選框和單選鈕都有Ｃaｐtion屬性Ｂ、一個(gè)框架中的復(fù)選框有可以多個(gè)被選中?C、一個(gè)窗體中單選鈕有且只有一個(gè)可以被選中

A、可以把窗體中已存在的單選鈕拖到框架中，成為框架中的一員44.用戶在窗體上單擊時(shí)，將先后觸發(fā)該窗體的（D)A、MouseDown事件、Ｃlick事件、MouseＭｏｖe事件、MousｅUp事件?B、Cｌｉｃk事件、ＭouseDown事件、ＭｏuseUｐ事件、MouｓｅMoｖe事件?C、MouｓeDoｗn事件、Cliｃｋ事件、MouseUp事件、MouseMoｖe事件

Ｄ、MouｓeＤｏwn事件、ＭｏｕseＵp事件、Click事件、MouｓeMoｖｅ事件45．下面方法不屬于列表框和組合框。（A)?A、ClsB、ＡddItｅmＣ、GｅtFocusD、RｅmｏveItem

46.在圖片框控件Ｐｉctｕre1上坐標(biāo)(x,y)處畫一個(gè)綠色點(diǎn),寫作(D)。

A、Psｅｔ（x,y）,Ｒｇｂ(0，25５,0）B、Piｃturｅ1.Pｓet(ｘ,y),Ｇreen

C、Pseｔ(x,y),vbGreenD、Picturｅ1.Pset（ｘ,y）,vbGreeｎ４７.下面關(guān)于滾動(dòng)條和計(jì)時(shí)器控件的敘述，其中錯(cuò)誤的是。(B）Ａ、當(dāng)滾動(dòng)條的Ｖａｌue值改變時(shí),發(fā)生Ｃhangｅ事件Ｂ、當(dāng)拖動(dòng)滾動(dòng)條時(shí)，釋放鼠標(biāo)時(shí)發(fā)生Ｓｃroｌl事件C、計(jì)時(shí)器控件在運(yùn)營時(shí)是不可見的Ｄ、計(jì)時(shí)器和滾動(dòng)條控件都有Enable屬性４8.單擊滾動(dòng)條兩端的任一個(gè)滾動(dòng)箭頭,將觸發(fā)該滾動(dòng)條的(C)事件。Ａ、ScroｌlB、ＫeyDownＣ、ＣhaｎgeD、Ｄragover49.設(shè)立某子菜單項(xiàng)的Captioｎ(標(biāo)題）屬性為“畫圖(&D）”,ShｏｒtCut（快捷鍵)屬性為“Ctrl＋Ｌ”。啟動(dòng)工程時(shí),下面不會(huì)觸發(fā)該子菜單的Ｃliｃk事件。(D)Ａ、打開主菜單,按Ｄ鍵Ｂ、直接按Ctrl+L鍵C、用鼠標(biāo)單擊該子菜單項(xiàng)D、打開主菜單,按Alｔ+D50．要改變控件的寬度，應(yīng)修改該控件的（C)屬性。

Ａ、TopＢ、LｅfｔC、WｉｄtｈD、Hｅighｔ51.順序文獻(xiàn)有三種打開方式，下面種不是。(A）Ａ、ＲanｄomB、InｐutC、OｕtpｕｔD、Apｐend5２．（C)對(duì)象不能作為控件的容器。?A、FormB、ＰictureＢoxC、ShapｅD、Fｒａme53.將命令按鈕Comｍanｄ1設(shè)立為不可見，應(yīng)修改命令按鈕的(A)屬性。?Ａ、VisｉbleB、ValuｅC、CaｐｔiｏnD、Eｎaｂleｄ５４．下列數(shù)據(jù)類型中,占用內(nèi)存最小的是(B）。

Ａ、BooleaｎB、ByteＣ、IｎteｇeｒD、Ｓingｌe55.(Ｄ)對(duì)象具有Ｃleaｒ方法。A、圖片框Ｂ、窗體C、復(fù)選框D、列表框５6．一個(gè)對(duì)象可以執(zhí)行的動(dòng)作和可被對(duì)象辨認(rèn)的動(dòng)作分別稱為(B)。?Ａ、事件、方法Ｂ、方法、事件?C、屬性、方法Ｄ、過程、事件57.已知A、B、C中C最小，則判斷A、B、C可否構(gòu)成三角形３條邊長的邏輯表達(dá)式是(B)。?Ａ、A>=BＡnｄＢ＞＝CAnｄC>0B、A＋C＞BＡndB＋C>AＡnｄＣ>０?C、(Ａ＋Ｂ＞=COｒA－C<=C)AndＣ＞０58．將通用對(duì)話框CommoｎDialog1的類型設(shè)立成“另存為”對(duì)話框,可調(diào)用該控件的的(B）方法。

A、SｈowOｐenB、SｈowＳａveC、ShｏwColorＤ、ShowＦoｎｔ５9．下面(C)是日期型常量。

A、“1２/19/99”B、12/19/9９60.重新定義圖片框控件的坐標(biāo)系統(tǒng),可采用該圖片框的(A）方法。Ａ、ScalｅB、ScaｌeXＣ、SｃａleYD、ＳetFｏcｕs61．_＿_(dá)_Ｄ___對(duì)象不具有Capｔｉｏn屬性。Ｄ

A、LａｂｅｌB、OptiｏnC、ForｍD、Tiｍer６2．Inｔeｇer類型的變量可存的最大整數(shù)是(D)。

A、255Ｂ、256C、３276863.要改變控件的寬度,應(yīng)修改該控件的(Ｃ)屬性。?A、ＴｏｐB(yǎng)、LefｔC、ＷidthD、Heｉｇｈt64．對(duì)于窗體級(jí)變量，以下說法錯(cuò)誤的有：（B）

A、所在窗體的各子程序都可以訪問

Ｂ、其他窗體的子程序不能訪問

C、所在窗體的子程序能訪問用Privａｔe定義的窗體級(jí)變量

Ｄ、一定要在所在窗體的通用區(qū)內(nèi)定義?６5.在窗體Forml的Click事件過程中有以下語句：（C)“Label1．Captiｏn=”“ＶisualBａｓic”若本語句執(zhí)行之前，標(biāo)簽控件的Captｉon屬性為默認(rèn)值，則標(biāo)簽控件的Name屬性和Captioｎ屬性在執(zhí)行本語句之前的值分別為。?A、“Ｌaｂｅｌ”、“Label”Ｂ、“Ｌａbｅi1”、“VisuaｌBasic”?C、“Ｌaｂel1”、“Ｌaｂel1”Ｄ、Caption、“Ｌａbel”66.下面關(guān)于變量的作用域和生存周期的描述對(duì)的的是(C)

A、全局變量可在窗體的通用區(qū)內(nèi)定義

B、窗體級(jí)變量與靜態(tài)變量具有相同的作用域和生存周期?C、同一過程中用“Ｄｉｍ”定義的局部變量和用“Ｓtatｉc”定義的局部變量具有相同的作用域?Ｄ、同一過程中用“Dim”定義的局部變量和用“Ｓtatｉc”定義的局部變量具有相同的生存周期67．一個(gè)菜單項(xiàng)是不是一個(gè)分隔條,由(B）屬性決定。?A、Naｍｅ(名稱)B、CapｔionC．EnabledＤ、Visible68.Ｉｎteｇer類型的變量可存的最大整數(shù)是。(D）?Ａ、２５5B、２56C69.下面(Ｂ)對(duì)象在運(yùn)營時(shí)一定不可見。

A、ＬinｅB、TｉmerC、ＴeｘｔD、Option70.形狀控件所顯示的圖形不也許是(D)。?A、圓B、橢圓Ｃ、圓角正方形D、等邊三角形7１.以下(A)方式打開的文獻(xiàn)只能讀不能寫。?A、InputB、OｕtputC、RandomD、Aｐpend72.對(duì)象不具有Caｐtｉon屬性。(D）A、LabeｌB、OｐtionC、ForｍD、Tiｍer?７３．由Fork=35TＯ０Ｓtｅp3:Nｅｘtk循環(huán)語句控制的循環(huán)次數(shù)是（A)

Ａ、０Ｂ、１2C、-１174．以下(A）方式打開的文獻(xiàn)只能讀不能寫。

A、InpuｔＢ、OutｐutC、RaｎdomD、Aｐｐenｄ7５.由Foｒｋ=35ＴＯ0Step３：Nextk循環(huán)語句控制的循環(huán)次數(shù)是(A）

A、０B、１2Ｃ、-1176.想要改變控件在窗體中的左右位置,可以修改該控件的(B)屬性。?A、TopB、LeftC、WｉdthD、Rigｈｔ77.要在文獻(xiàn)列表框中顯示不同類型的文獻(xiàn)可以通過設(shè)立(A)屬性

Ａ、PatternB、ＰathC、ＦilenameD、ＬistIndex７8.窗體的DrawWiｄth屬性值設(shè)立為大于1時(shí),下列（C)屬性會(huì)失去作用

A、BacｋcｏloｒB、FilｌSｔyleC、DrawstyleD、Fillcolｏｒ79.假如在圖片框上使用繪圖方法繪制一個(gè)圓，則圖片框的(Ａ)屬性不會(huì)對(duì)該圓的外觀產(chǎn)生影響。Ａ、BacｋcolorB、FoｒｅColｏｒC、DｒawWidｔhD、Drａｗｓtyle80．菜單編輯器中呈現(xiàn)以下狀態(tài)，程序運(yùn)營后下列(Ｄ)操作無法執(zhí)行“復(fù)制”功能

A、打開“編輯”菜單后按下“C”

B、直接按下Ｃtrl+C

C、鼠標(biāo)單擊“復(fù)制”菜單項(xiàng)?D、“Alt+E”——〉“Ａlt+C”三.填空題?81.VB的字符串運(yùn)算符有__+_＿和&兩種,其中運(yùn)算符兩邊的表達(dá)式類型必須為字符型的運(yùn)算符是＿_(dá)＿

&__。

?8２.設(shè)ｘ＝6,y=4,z=7,下面表達(dá)式的值是ｔruｅ_x>ｙandy＞x－zorx<yandnot２*y>z

８3.設(shè)ｎ是一個(gè)自然數(shù)，那么求n的位數(shù)Ｌ的表達(dá)式可以是Ｌ=__len(stｒ（n))-1___。

[例如：若n＝12３45,則Ｌ=５］84.在打開某窗體時(shí)，初始化該窗體中的各控件，應(yīng)選用load事件。

8５．滾動(dòng)條的當(dāng)前值用__vaｌuｅ___表達(dá)。86．設(shè)x為大于零的實(shí)數(shù)，則大于x的最小奇數(shù)的VisuaｌBａｓic表達(dá)式是((Ｉnｔ(x)+1）\２)*2+l(或（（Ｆix（x)+1）\２)*2+1)。

87.在代碼設(shè)計(jì)中，為了給某控件的BａcｋCｏｌor屬性賦一個(gè)顏色值,可以有三種方法獲得顏色,它們分別是QBCoｌoｒ(）函數(shù)、顏色常數(shù)和＿_(dá)＿RＧB(）函數(shù)＿＿_(dá)_。?８8.a１和a2之中有且只有一個(gè)與a3的值相等，相應(yīng)的ＶisuaｌBaｓic邏輯表達(dá)式是a１=a3Xorａ２=a３（或ａ1=a３Ａｎｄa<>a3Ora１<＞a3Ａnda2＝a3）。?8９．以圖片框Pｉｃｔuｒe1的中心為圓心，以1000為半徑在Ｐｉcturｅ1上畫一個(gè)圓的方法是_picture1．circle（ｐicture1．widｔh/２,pｉcture1．height／2),１00０_____。90.設(shè)init的初值為１０，則由下列循環(huán)語句控制的循環(huán)次數(shù)是６。

DoWｈileinit>=5?Inｉt=iｎit-1

Lｏｏp?91.窗體的Enablｅd屬性值為_Fａlｓe_____時(shí)，該窗體上的按鈕、文本框等控件就不會(huì)對(duì)用戶的操作做出反映。

92．在VｉｓualBasic中,變量從它的作用范圍來看。可分為全局變量、模塊級(jí)變量和局部變量3種。?9３.VisuａｌＢaｓic提供了對(duì)文獻(xiàn)的三種存取方式，分別是__Inpｕｔ__、_＿outpｕｔ___和__Append__＿。９4.8語句Ｐicｔure１.Circｌe(8０0,1００0),50０的含義是以圖片框Pｉctuｒｅ1中的（800,１00０）為圓心,以5００為半徑畫一個(gè)圓。

95．用VｉsuａｌBasiｃ開發(fā)應(yīng)用程序的"三步曲"是:__界面設(shè)計(jì)___、＿_(dá)屬性設(shè)立__＿_(dá)＿和__代碼設(shè)計(jì)___＿。

96.在VB中,若要產(chǎn)生一消息框,則可用函數(shù)__msgbox__來實(shí)現(xiàn)。

９7.已知ｎ為一個(gè)三位正整數(shù),寫出求n中十位數(shù)的ViｓualBaｓｉc表達(dá)式＿_(dá)(n\１0)mod10＿_(dá)＿＿。?９８.若要獲得用戶在驅(qū)動(dòng)器列表控件中所選擇的驅(qū)動(dòng)器,可通過訪問該對(duì)象的__Drive_＿＿屬性來實(shí)現(xiàn)。?99.表達(dá)式（4．8＼2)＊7Mｏd3．1４的運(yùn)營結(jié)果是＿＿_(dá)2＿_(dá)_＿。?100.目錄列表框（DｉrListBox)中,當(dāng)前文獻(xiàn)夾相應(yīng)項(xiàng)目的LiｓtIndex屬性值為_＿＿-1＿＿_(dá)。?10１.運(yùn)用Line方法可以畫__直線＿＿＿、_＿矩形___和_＿實(shí)心矩形___。１02．VｉｓualＢasic的菜單可分為__下拉式__菜單和___＿彈出式___菜單兩種。

10３．在VｉｓualBasｉc中,___文獻(xiàn)列表框＿_(dá)＿_(dá)＿和_＿_(dá)_通用對(duì)對(duì)話框____＿控件具有Fｉlename屬性。

10４.在VB中,用于產(chǎn)生輸入對(duì)話框的函數(shù)是__Ｉnputbox＿_(dá)_，其返回值類型為__字符型___,若要運(yùn)用該函數(shù)接受數(shù)值型的數(shù)據(jù)，則可運(yùn)用__Ｖal＿_(dá)_函數(shù)對(duì)其返回值進(jìn)行轉(zhuǎn)換而得到。

?10５.用ＰｉｃtｕｒeBｏx和Iｍaｇe控件裝載圖形圖像時(shí)，為了使圖形圖像與所在的控件大小相等，可以改變

１06．形狀的Shａpe屬性可以?。達(dá)_６____個(gè)值，分別代表各種不同的形狀。1０７.假如在圖片框上使用繪圖方法繪制一個(gè)圓,則圖片框的＿Bａcｋcｏｌor_屬性不會(huì)對(duì)該圓的外觀產(chǎn)生影響。PictureBox的__＿ｓtrｅｔｃh___屬性和Ｉｍａge的__aｕtｏsize__屬性。

１08．求ａ與ｂ之積除以ｃ的余數(shù)，用VB表達(dá)式為_＿＿mod(（a*ｂ)／ｃ)___。?１０9．VisｕalＢａｓic常見控件中可以作為其他控件容器的控件有__框架＿＿＿和＿圖片框_。

110．ViｓuaｌBasic的菜單可在__菜單編輯器__中設(shè)計(jì)完畢。若要使某項(xiàng)菜單在運(yùn)營時(shí)不可見,可設(shè)立該菜單對(duì)象的____Visiｂｌe＿＿_(dá)＿＿屬性為Fａｌse來實(shí)現(xiàn)；若要使某項(xiàng)菜單在運(yùn)營時(shí)失效,則應(yīng)設(shè)立菜單項(xiàng)對(duì)象_＿Eｎabled___屬性為False。?１11.在代碼設(shè)計(jì)中,為了使定期器Tｉmer1能處在關(guān)閉狀態(tài),使系統(tǒng)不響應(yīng)它的Ｔiｍer()事件，可以設(shè)立Timer１．Eｎablｅd=Ｆａｌse或__tｉmｅｒ1.Interval=0___。

112.表達(dá)式Chr（Asｃ(“R”)-Asc(“Ａ”)+Ａｓc（“a”))的值是__＿r＿_(dá)_。?１１3．ＰriｎtMid$(Str$（-１2３4）,3,2)的結(jié)果為__23

＿_(dá)_。程序閱讀題

四、閱讀下列程序,寫出運(yùn)營結(jié)果。?1、程序1?PrｉｖateSubCoｍmaｎｄ1_Ｃliｃk()

DｉｍxAsIntegｅｒ,sAｓＩｎｔｅger

x=Vaｌ(InｐｕtBox("請(qǐng)輸入一個(gè)正整數(shù)＝"）)?

Ｉfｘ<5Tｈeｎ?

s=s*x

Else

s=s＋ｘ?

ＥndIf

tｅxt1．Text="ｓ=＂＋Str(ｓ)?EndＳub?程序運(yùn)營時(shí)連續(xù)3次單擊Command１，且設(shè)輸入的數(shù)是5，2和4時(shí)，分別寫出文本框Text1.Text的值。?2、程序2?PｒiｖateＳubForm_Cｌick()?

Foｒm１．Cｌs?

w=3

Ｆork＝２To6Sｔep2

Forｍ1.Print"w＝＂;ｗ,＂k＝";k?

w=w+１?

Nextｋ?

Fｏｒｍ1．Ｐrｉnｔ"w＝"；w,"ｋ=";ｋ?EndＳub

寫出程序運(yùn)營時(shí)單擊窗體后，F(xiàn)orｍ1上的輸出結(jié)果。

3、程序3

Privａt(yī)eSubFｏｒm_Click(）

DｉｍxAｓString

DimiＡsIｎteger，nAsIntegｅr?

Ｆorm1.Cls?

x="ABCDＥFＧHKL"?

ｎ＝Ｌen(ｘ）

Foｒi=nTo1Step-２?

Ｆoｒm１.ＰｒiｎｔTａb（20－i）;Mid（x,i,1)?

Nｅｘtｉ?EndSub

寫出程序運(yùn)營時(shí)單擊窗體后，F(xiàn)ｏrm1上的輸出結(jié)果。?4、程序４?

ＤｉmaAsIｎtｅｇer,yAsIｎteger?

PriｖaｔｅSubFｏｒm_Loａd()?

Open＂c：\a1.dat"ＦorOｕtpuｔAs＃1

Ｃlose#１

EndSｕb

ＰrivateSubＣoｍmand1_Clｉck（)

Opｅｎ"c:\a1.ｄaｔ"ForAｐpenｄＡs#１?

Ｃａllaa(5)?

ｙ＝y(tǒng)+a?

Pｒint#1,＂y="；y，"a=＂;a

Cｌｏse＃1

EndSuｂ

Ｓubaa(ｉAｓＩｎtegｅr)?

x＝1

ＤｏＵｎｔｉlx>i

ａ=a+x

ｘ=x+3

Loop?EｎｄSub

寫出程序運(yùn)營時(shí)連續(xù)3次單擊Ｃｏmｍａnd1后，a１.daｔ文獻(xiàn)的最終結(jié)果。

程序閱讀題答案：1.?ｓ=５

s=１０?s=４0?２．?w=3k=2

w=4k=4

w=５k＝6?w＝６k=8?３.

Ｌ?

H?

F?

D

B

4.

y=5a=5?y=15a＝１0

y=3０a=15五.程序填空題

仔細(xì)閱讀下列各小題的程序說明和相應(yīng)的程序，在每小題提供的若干可選答案中,挑選一個(gè)對(duì)的答案。

1.【程序說明】

本程序求３～1０0之間的所有素?cái)?shù)（質(zhì)數(shù))并記錄個(gè)數(shù),同時(shí)將這些素?cái)?shù)從小到大依次寫入順序文獻(xiàn)e:\ｄataout．txt，素?cái)?shù)的個(gè)數(shù)顯示?在窗體Fｏrｍ１上。?【程序】

ＰｒivateＳuｂCｏmmａnｄ１_Clicｋ()

DimｃoｕntＡsInteｇer,flaｇAsBooｌｅan

DｉmtiAsＩntｅgeｒ,t2ＡｓIｎtegｅr?

(1)?

coｕｎt=0

Forti=3To100

flaｇ=Ｔruｅ

Fｏrt2=２ToInt（Sqｒ(t1)）

Iｆ(2）Tｈenflag=False?

Nextt2

（３)

cｏｕｎｔ=cｏunt+1

Wｒite#1,t1?

EndＩf

Nｅxｔt1?

（4)

Clｏse#1?ＥndSｕb?(1）A、Ｏpenｅ:\datａoｕt.tｘtForＯutputＡs#1

Ｂ、Opeｎe：＼dataout.txｔＦorInputAｓ#1

C、Opene：＼dataouｔ.txtForOuｔpuｔＡs＃2

D、Ｏｐenｅ:\dataoｕt．txｔForOutｐutAs#１?(2)A、ｔ2\t1=0B、t1Modt２=0C、t1\t2=0Ｄ、t2Modt1=0?（3)A、IfｆｌagThenＢ、Ift２>t1Then

Ｃ、Ｉｆｔ1>t2ＴhenD、Iｆｔ2>inｔ（ｓqｒ（t１))Ｔhｅn

(4)A、Forml．Print＂素?cái)?shù)個(gè)數(shù)：＂;ｃouｎt

B、Ｐrint＃l＂素?cái)?shù)個(gè)數(shù)：＂;Count?

C、Ｆorm１.Print"素?cái)?shù)個(gè)數(shù)：";ｃoｕｎt

Ｄ、Form1.Pｒint"素?cái)?shù)個(gè)數(shù):＂：Couｎt

２．[程序說明]?由輸入對(duì)話框輸入n（設(shè)n為大于零且小于30的自然數(shù)),計(jì)算下列表達(dá)式并在標(biāo)簽框Labｅｌ1上顯示。

1／(1*2)+１／(2*3)+1/（3＊４)+……＋1／（n*(n+1）)

【程序】?PｒivatｅSｕｂＦorm_Clｉcｋ（)?DiｍｎA(yù)sIntｅger,suｍAsＤouｂlｅ,kＡｓＩnteger

Do（5)?

n=Vaｌ(InputBoｘ(＂n＝＂,＂請(qǐng)重輸")）?Lｏoｐ?sｕm=0?

（６)

Ｄｏ?

ｋ=k＋1

sum=(7)?LooｐUntilk>=n?Labｅl１.Cａptｉon="Sum"+Ｓtr（sｕm)?EndSub

（5)Ａ、Ｗhilｅn＜=Ooｒn＞=3０B、Wｈilen＜＝OAndn>=30

C、Untｉlｎ>0Ｏrn<30D、Untiln>=0andn<=3０?(6)A、k=2Ｂ、k=１Ｃ、K=-１D、k＝0

(７)A、1/（k＊（k+１））Ｂ、l/(k－1)＊k?

Ｃ、sｕm+1/(k＊(k＋１）)D、suｍ+１／ｋ＊(k+1）

3.【程序說明】

本程序用于解決文本框Textl.Tｅxt中的內(nèi)容,假設(shè)文本框中有偶數(shù)個(gè)字符。規(guī)定將文本框從頭尾至中間依次各取字符，組成一個(gè)新的字符串str2,并在窗體上輸出。?如:Tｅｘtｌ．Texｔ＝"123４5678",則Str2＝＂1８27３645"?【程序】?ＰrｉvateSubForｍ_Ｃlick()

ＤimStr1AsＳｔrｉｎｇ，Str2AｓStrinｇ?Stｒ1=TeXt1.Text

Ｓｔr２="＂

m＝0

Do（8）?

Str2=Stｒ2+(9）?

Stｒ２=Ｓtr2+（10)?

m=m+l

Lｏop

foｒｍｌ.PｒintStr2

EnｄSub?(8)Ａ、Whilem

C、Untilm>Leｎ(Stｒ1)/２D、Untｉlm＜Lｅn（Sｔr１)／２

(9)A、Mid(str1,m，１)Ｂ、Ｍiｄ(ｓｔr１,len（stｒ１)-ｍ,1)?

C、Ｍiｄ(m，Stｒl，l)D、Miｄ(Sｔｒ1，m+l,1）?(10）A、Mｉｄ(sｔr1,len(ｓｔｒ1)-m+1,１)?

B、Mｉd(sｔr1，ｍ,1)?

Ｃ、Ｍid(sｔr1,ｌen(str1)-m，1)?

Ｄ、Mid(sｔr1,len(ｓtｒ1)-m＋1,1）?

程序填空題答案：DBＡCADＣADC六、程序填空題?1.下面是一個(gè)求ｎ！的自定義函數(shù)代碼。

PrｉvateFｕnctionJC（nAｓInteｇer)AsLoｎg?ＤimResｕltＡsLonｇ

Ifp=１Ｔhen

Resuｌt=1

Elｓｅ

Rｅsｕlｔ=(1）

EｎdIf

JC＝（2)

EｎdFuｎｃtiｏn2．下面的程序完畢以下功能:單擊窗體上的“測(cè)試”（Comｍand1)按鈕，出現(xiàn)一個(gè)輸入框,規(guī)定輸入一串字符，將該字符串中的非字母字符刪除后,顯示在窗體中的一個(gè)文本框(Ｔext1)中。?PｒｉvatｅSubＣommanｄ１_Clｉcｋ（)?DimSt1，Sｔ2ＡsＳｔring?ＤimＣｈＡs（３）?DimLＡsIｎtｅgｅr

St1=InputBoｘ("請(qǐng)輸入一串字符"，"字符串輸入")

L=（4)?Sｔ2=""?Foｒｉ=1ToL

Ch=Mｉd(Ｓｔ1,i，１)?Iｆ(Ｃh>"Ａ"Aｎd(5））Or(Cｈ>"a"AndCh<＂z＂)Thｅｎ?

St２=St2+Ｃh?ＥndIｆ?Nｅｘti

Ｔｅｘt1．Tｅｘt=（6)?ＥndＳub３.下面的程序完畢以下功能:窗體上有兩個(gè)命令按鈕“產(chǎn)生”(Cｏmmanｄ１)和“排序”（Cｏｍmaｎd2）。單擊“產(chǎn)生”按鈕時(shí),隨機(jī)產(chǎn)生10個(gè)[1,20］范圍內(nèi)的整數(shù)放在數(shù)組Ａ中，并在窗體上輸出。單擊“排序”按鈕時(shí)，用選擇法排序這１０個(gè)數(shù)并輸出。?DimA(１0)AsIｎtegerPｒｉvatｅSubＣommａｎｄ1＿Ｃlｉｃk()

DｉmiAｓＩｎtｅger?Randomizｅ?Print"排序前的數(shù)列:＂

Fori=１To10?

A(i)=(7）?PrintSｔr(A(ｉ)）+＂";

Ｎexti?Prｉｎt

ＥndSubＰrｉｖａt(yī)ｅSubCommａnｄ２＿Clｉcｋ(）?Dimｉ,ｊ，Min,TｅmpAｓInteｇer?Print?Pｒint＂選擇排序后的數(shù)列:"

?Foｒi＝1Tｏ9

Min=A(i)?Ｆｏrj＝（８）To10

ＩfA(j)<ＭinＴheｎ

Ｔｅmｐ＝A(j)?

A（ｊ)=（9)

Ｍiｎ＝Tｅmp?

EnｄIｆ

Neｘtｊ?A(i)=Miｎ?（10)

Forｉ=1To10

PｒintStr(A（i）)+"";

Nexti

Prinｔ

ＥndＳub程序填空題答案：（1)n*Jc(n-1)(２）resulｔ（3）string（4)ｌen(str)(5)ch<"z"（6)ｓt2(7)iｎt(Rnd*２0)+1(8)Ｉ+１（9)ｍin（10)nexti七、程序填空題

1.程序說明:運(yùn)用一個(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分10秒”。(假設(shè)對(duì)象的屬性都在程序代碼中設(shè)定）一個(gè)動(dòng)態(tài)秒?程序代碼如下

DimｘＡsＬonｇ

DimhＡsIｎtegｅr,ｍAｓIntegｅr,ｓAｓInteｇer

PriｖateSｕbFoｒｍ＿Loaｄ()

Fｏｒm１.Captiｏn=＂動(dòng)態(tài)秒表(小時(shí):分:秒)＂?

Ｃommａｎｄ1.Capｔiｏn=＂開始［&S］＂

Commanｄ2.Capｔion="結(jié)束[&E］"

Label1.Aliｇnmenｔ＝2?

Lａbeｌ1.Captｉon="0：0:0"?

Ｔiｍｅr1.Interval＝（１）?

Tiｍer1.Eｎableｄ=Ｆalｓｅ

x=0

EndＳuｂ

PrｉvateSｕbCommaｎd1_Cｌick(）

(2)

EndSuｂ?ＰrivateSubCｏｍmaｎd2＿Ｃlicｋ(）

Ｔｉmer1.Ｅnａblｅd＝Fａlｓｅ

x=(3）

Lａbeｌ1．Cａptioｎ＝"運(yùn)營了"+Str(h)+"小時(shí)"＋Str（m)+"分"+Sｔr（s)+"秒"?EｎdSub?Ｐriｖａt(yī)eSｕｂTiｍeｒ1_Timer（)?

x=x+1?

h=(4）?

m=(xＭoｄ３6０0)\60?

s=(5)?

Label1.Caｐｔion=Str(h)+":"+Sｔr(ｍ)+":"+Str(s）?EｎdSｕb?２．程序說明：己知自然對(duì)數(shù)的底數(shù)e的級(jí)數(shù)表達(dá)如下:?e=1+1/(1！)+１／（2！)+...+1/（n!)+..．

本程序運(yùn)用函數(shù)過程ｆact（)求e，其中的絕對(duì)值小于ＩE-8的項(xiàng)被忽略。程序代碼如下

PｒivateFunctioｎfact（mAsInｔegeｒ)AsSingｌe

'求m！的函數(shù)

DiｍxAｓSｉngｌe,iＡsIntegｅr?

x=1?

Fori=１Tｏm?

X＝(6）?

Nｅxti?

ｆaｃt=x?EnｄＦｕｎｃtion?Prｉvａt(yī)eSubForm_Clｉck(）

DimeＡsＳingｌe,iteｍAsSingｌe?

DiｍnAsIntegeｒ?

e＝１:ｎ＝(7）

Ｄo?

n＝ｎ+1

item=(8）

e=e+itｅm?

LoopＷｈilｅ（9）程序填空題答案:⑴、1０00⑵、Tiｍｅr1.Enａbled=True或Time1＝Truｅ⑶、0⑷、x\360０⑸、xMｏd60⑹、x*I⑺、0⑻、1／faｃt(n）⑼、Abs(iｔeｍ)>=0.000０000１八、１.分別寫出下面兩段程序執(zhí)行三次后的結(jié)果。PrivatｅSubFｏｒｍ_Ｃlｉck（)

DiｍiAsＩnteger

Sｔａt(yī)icjAsＩnteger?ｊ=j＋1

i=ｉ＋1

Ｐｒiｎt"ｉ＝"；Ｓtｒ(ｉ),"j=";Ｓtr(ｊ)

ＥnｄSubＤｉmi,jAsIｎteｇer?PrｉvateSuｂFoｒｍ_Cｌiｃk(）?j＝j(luò)+1?ｉ＝i＋１?Prｉnt"i="；Str(i）,＂j＝＂;Sｔr（j)?EndＳub參考答案：1左:右：

I=１ｊ=1I=１j=1I=1ｊ＝2I＝２j=2I=1j=3I=３j=3九.寫出下面程序執(zhí)行后的結(jié)果（其中在Form_Cｌiｃk()事件中調(diào)用了子過程Ｐroc）。

PrｉvateＳｕbFｏｒm_Click(）

Dimx,yAsＩnteｇer?Diｍu,vＡｓＩｎteger

x=1

ｙ=２

ｕ=3

Prｏcx