大學(xué)VB考試題庫(kù)

大學(xué)VB考試題庫(kù)

一、單項(xiàng)選擇題

1、與傳統(tǒng)的程序設(shè)計(jì)語(yǔ)言相比,VisualBasic最突出的特點(diǎn)是().

A、結(jié)構(gòu)化程序設(shè)計(jì)B、程序開發(fā)環(huán)境

C、事件驅(qū)動(dòng)編程機(jī)制D、程序調(diào)試技術(shù)

2、賦值語(yǔ)句:a=123&MID("123456”,3,2)執(zhí)行后,a變量中的值是()。

A、"12334"B、123C、12334D、157

3、保存一個(gè)工程至少應(yīng)保存兩個(gè)文件，這兩個(gè)文件分別是(B)o

A、文本文件和工程文件B、窗體文件和工程文件

C、窗體文件和標(biāo)準(zhǔn)模塊文件D、類模塊文件和工程文件

4、以下能在窗體Forml的標(biāo)題欄中顯示"VisualBasic窗體"的語(yǔ)句是(C),)

A、Forml.Name="VisualBasic窗體”

B、Forml.Title=*VisualBasic窗體”

C、Forml.Caption=z/VisualBasic窗體”

I)、Forml.Text="VisualBasic窗體”

5、為了裝入一個(gè)VisualBasic應(yīng)用程序，應(yīng)當(dāng)(D)

A、只裝入窗體文件(.frm)

B、只裝入工程文件(.vbp)

C、分別裝入工程文件和標(biāo)準(zhǔn)模塊文件(.bas)

D、分別裝入工程文件、窗體文件和標(biāo)準(zhǔn)模塊文件

6、賦給一個(gè)數(shù)組的數(shù)據(jù)類型一定要(A)?

A、相同B、不相同C、兩可D、都不對(duì)

7、下面正確的賦值語(yǔ)句是(C)。

A、x+y=30B、y=n*r*rC、y=x+30I)、3y=x

8、VisualBasic6.0集成環(huán)境的主窗口中不包括(C)o

A、標(biāo)題欄B、菜單欄C、狀態(tài)欄D、工具欄

9、以下敘述中錯(cuò)誤的是(C)。

A、VisualBasic是事件驅(qū)動(dòng)型可視化編程工具

B、VisualBasic應(yīng)用程序不具有明顯的開始和結(jié)束語(yǔ)句

C、VisualBasic工具箱中的所有控件都具有寬度(Width)和高度(Height)屬性(計(jì)時(shí)器)

D、VisualBasic中控件的某些屬性只能在運(yùn)行時(shí)設(shè)置

10、要使Print方法在FormLoad事件中起作用，要對(duì)窗體的(C)屬性進(jìn)行設(shè)置。

A、BackcolorB、ForeColor

C、AutoRedrawD、BackStyle

11、若要使命令按鈕不可操作，要對(duì)(A)屬性進(jìn)行設(shè)制。

A、EnabledB、Visible

C、BackColorD、Caption

12、以下敘述中錯(cuò)誤的是(B)。

A、一個(gè)工程中可以包含多個(gè)窗體文件

B、在一個(gè)窗體文件中用Private定義的通用過程能被其他窗體調(diào)用

C、在設(shè)計(jì)VB程序時(shí)，窗體、標(biāo)準(zhǔn)模塊、類模塊等需要分別保存為不同類型的磁盤文件。

D、一個(gè)工程默認(rèn)的啟動(dòng)對(duì)象是Forml

13、Cis方法可以清除窗體或圖片框中的(C)內(nèi)容。

A、在設(shè)計(jì)階段使用Picture設(shè)置的背景位圖

B、在設(shè)計(jì)階段放置的控件

C、在運(yùn)行階段產(chǎn)生的圖形和文字

D、以上均可

14、設(shè)x=3,y=5,則以下表達(dá)式值為真的是(C)

A、(-3+5>x)And(y>0)B、(x<0)Eqv(y>0)

C、(x>y)Or(y>0)D、x>=yAndy>10

15、為了防止用戶隨意將光標(biāo)置于控件之上，應(yīng)將進(jìn)行(D)設(shè)置。

A、將控件的Tabindex屬性設(shè)置為0

B、將控件的TabStop屬性設(shè)置為True

C、將控件的TabStop屬性設(shè)置為False

I)、將控件的Enabled屬性設(shè)置為False

16、要判斷在文本框是否按了Enter鍵，應(yīng)在文本框的(D)事件中判斷。

A、ChangeB、KeyDownC、ClickI)、KeyPress

17、以下關(guān)于焦點(diǎn)的敘述中，錯(cuò)誤的是(A)。

A、如果文本框的TabStop屬性為False,則不能接收從鍵盤上輸入的數(shù)據(jù)

B、當(dāng)文本框失去焦點(diǎn)時(shí)，觸發(fā)LostFocus事件

C、當(dāng)文本框的Enabled屬性為False時(shí)，其Tab順序不起作用

D、可以用Tabindex屬性改變Tab順序

18、如果文本框的Enabled屬性設(shè)為False,則(A)。

A、文本框的文本將變成灰色，并且此時(shí)用戶不能將光標(biāo)置于文本框上。

B、文本框的文本將變成灰色，用戶仍然能將光標(biāo)置于文本框上，但是不能改變文本框中的

內(nèi)容。

C、文本框的文本將變成灰色，用戶仍然能改變文本框中的內(nèi)容。

D、文本框的文本正常顯示，用戶能將光標(biāo)置于文本框上，但是不能改變文本框中的內(nèi)容。

19、程序運(yùn)行后，在窗體上單擊鼠標(biāo)，此時(shí)窗體不會(huì)接收到的事件是(C)。

A、MouseDownB、MouseUp

C、LoadD>Click

20、圖像框有一個(gè)屬性，可以自動(dòng)調(diào)整圖形的大小，以適應(yīng)圖像框的尺寸，這個(gè)屬性是(B)。

A、AutosizeB、Stretch

C、AutoRedrawD、Appearance

21、為了防止用戶隨意將光標(biāo)置于控件之上，應(yīng)設(shè)置的屬性是(D)。

A、將控件的Tabindex屬性設(shè)置為0

B、將控件的TabStop屬性設(shè)置為True

C、將控件的TabStop屬性設(shè)置為False

D、將控件的Enabled屬性設(shè)置為False

22、不論何控件，共同具有的是(B)屬性。

A、TextB、Name

C、ForeColorD、Caption

23、以下關(guān)于窗體的描述中，錯(cuò)誤的是(A)。

A、執(zhí)行UnloadForml語(yǔ)句后，窗體Forml消失，但仍在內(nèi)存中

B、窗體的Load事件在加載窗體時(shí)發(fā)生

C、當(dāng)窗體的Enabled屬性為False時(shí)，通過鼠標(biāo)和鍵盤對(duì)窗體的操作都被禁止

I)、窗體的Height、Width屬性用于設(shè)置窗體的高和寬

24、當(dāng)運(yùn)行程序時(shí)，系統(tǒng)自動(dòng)執(zhí)行窗體的(A)事件過程.

A、LoadClick

C、UnloadD、GotFocus

25、窗體設(shè)計(jì)器是用來設(shè)計(jì)(B)。

A、應(yīng)用程序的代碼段B、應(yīng)用程序的界面

C、對(duì)象的屬性D、對(duì)象的事件

26、VisualBasic是一種面向?qū)ο蟮目梢暬绦蛟O(shè)計(jì)語(yǔ)言，采取了(A)的編程機(jī)制。

A、事件驅(qū)動(dòng)B、按過程順序執(zhí)行

C、從主程序開始執(zhí)行D、按模塊順序執(zhí)行

27、確定一個(gè)控件在窗體上的位置的屬性是(D)。

A、Width或HeightB、Width和Height

C、Top或LeftD、Top和Left

28、如果要改變窗體的標(biāo)題，則需要設(shè)置的屬性是(A)。

A、CaptionB、Name

C、BackColorD、BorderStyle

29、以下敘述中錯(cuò)誤的是(C)。

A、打開一個(gè)工程文件時(shí)，系統(tǒng)自動(dòng)裝入與該工程有關(guān)的窗體、標(biāo)準(zhǔn)模塊等文件

B、保存VisualBasic程序時(shí)，應(yīng)分別保存窗體文件及工程文件

C、VisualBasic應(yīng)用程序只能以解釋方式執(zhí)行

D、事件可以由用戶引發(fā)，也可以由系統(tǒng)引發(fā)

30、以下敘述中錯(cuò)誤的是(B)。

A、雙擊鼠標(biāo)可以觸發(fā)DblClick事件

B、窗體或控件的事件的名稱可以由編程人員確定

C、移動(dòng)鼠標(biāo)時(shí)，會(huì)觸發(fā)MouseMove事件

I)、控件的名稱可以由編程人員設(shè)定

31、在VisualBasic中最基本的對(duì)象是(C)。它是應(yīng)用程序的基石，是其他控件的容器。

A、文本框B、命令按鈕

C、窗體D、標(biāo)簽

32、以下敘述中正確的是(A)。

A、窗體的Name屬性指定窗體的名稱，用來標(biāo)識(shí)一個(gè)窗體

B、窗體的Name屬性的值是顯示在窗體標(biāo)題欄中的文本

C、可以在運(yùn)行期間改變對(duì)象的Name屬性的值

D、對(duì)象的Name屬性值可以為空

33、在設(shè)計(jì)階段，當(dāng)雙擊窗體上的某個(gè)控件時(shí)，所打開的窗口是(C)。

A、工程資源管理器窗口B、工具箱窗口

C、代碼窗口D、屬性窗口

34、VisualBasic是一種面向?qū)ο蟮目梢暬绦蛟O(shè)計(jì)語(yǔ)言，采取了的編程機(jī)制是(A)。

A、事件驅(qū)動(dòng)B、按過程順序執(zhí)行

C、從主程序開始執(zhí)行D、按模塊順序執(zhí)行

35、用來設(shè)置粗體字的屬性是(C)。

A、FontltalicB、FontName

C、FontBoldD>FontSize

36、如果一個(gè)工程含有多個(gè)窗體及標(biāo)準(zhǔn)模塊，則以下敘述中錯(cuò)誤的是(A)。

A、如果工程中含有SubMain過程，則程序一定首先執(zhí)行該過程

B、不能把標(biāo)準(zhǔn)模塊設(shè)置為啟動(dòng)模塊

C、用Hide方法只是隱藏一個(gè)窗體，不能從內(nèi)存中清除該窗體

D、任何時(shí)刻最多只有一個(gè)窗體是活動(dòng)窗體

37、為了把焦點(diǎn)移到文本框，所使用的方法是(A)。

A、SetFocusB、Visible

C^RefreshD、GetFocus

38、INT(100*RND)產(chǎn)生的隨機(jī)整數(shù)的閉區(qū)間是(A),

A、[0,99]B、[1,100]

C[0,100]D、[1,99]

39、如果要在命令按鈕上顯示圖形文件，應(yīng)設(shè)置命令按鈕的(B)。

A、Style屬性和Graphics屬性B、Style屬性和Picture屬性

C、Caption屬性D、Graphics屬性

40、若要使命令按鈕不可操作，要對(duì)(A)屬性進(jìn)行設(shè)制。

A、EnabledB、Visible

C>BackColorD、Caption

4k假定窗體的名稱為Forml,則把窗體的標(biāo)題設(shè)置為"VB_Test”的語(yǔ)句為(B)。

A、Forml="VBjest”B、Forml.Caption="VBTest”

C、Forml.Text="VB_Test”1)、F="VB_Test”

42、以下敘述中錯(cuò)誤的是(A)。

A、在工程資源管理器窗口中只能包含一個(gè)工程文件及屬于該工程的其他文件

B、以.BAS為擴(kuò)展名的文件是標(biāo)準(zhǔn)模塊文件

C、窗體文件包含該窗體及其控件的屬性

D、一個(gè)工程中可以含有多個(gè)標(biāo)準(zhǔn)模塊文件

43、要使文本框獲得輸入焦點(diǎn)，則應(yīng)采用文本框控件的哪個(gè)方法(A)。

A、GotFocusB、LostFocus

C、KeyPressD、SetFocus

44、以下不能在“工程資源管理器”窗口中列出的文件類型是(B)。

A、.basB、.resC、.frmD、.ocx

45、剛建立一個(gè)新的標(biāo)準(zhǔn)EXE工程后，不在工具箱中出現(xiàn)的控件是(C)。

A、單選按鈕B、圖片框C、通用對(duì)話框D、文本框

46、以下敘述中錯(cuò)誤的是(B)。

A、雙擊鼠標(biāo)可以觸發(fā)DblClick事件

B、窗體或控件的事件的名稱可以由編程人員確定

C、移動(dòng)鼠標(biāo)時(shí)，會(huì)觸發(fā)MouseMove事件

I)、控件的名稱可以由編程人員設(shè)定

47、以下能夠觸發(fā)文本框Change事件的操作是(D)。

A、文本框失去焦點(diǎn)B、文本框獲得焦點(diǎn)

C、設(shè)置文本框的焦點(diǎn)D、改變文本框的內(nèi)容

48、以下敘述中錯(cuò)誤的是(0。

A、一個(gè)工程中只能有一個(gè)SubMain過程

B、窗體的Show方法的作用是將指定的窗體裝入內(nèi)存并顯示該窗體

C、窗體的Hide方法和Unload方法的作用完全相同

D、若工程文件中有多個(gè)窗體，可以根據(jù)需要指定一個(gè)窗體為啟動(dòng)窗體

49、語(yǔ)句PrintAbs(-6~2)+Int(-6*2)的輸出結(jié)果是(A)。

A、0B、1C、-1D、-72

50、如果將布爾常量值TRUE賦值給一個(gè)整型變量，則整型變量的值為(B).

A、0B、-1C、TRUED、FALSE

51、函數(shù)String(n,"str")的功能是(B)。

A、把數(shù)值型數(shù)據(jù)轉(zhuǎn)換為字符串

B、返回由n個(gè)字符組成的字符串

C、從字符串中取出n個(gè)字符

D、從字符串中第n個(gè)字符的位置開始取子字符串

52、語(yǔ)句PrintFormat("HelloWorld",)的輸出結(jié)果是(C)。

A、helloWORLDB、helloworld

C,HELLOWORLDD、HELLOworld

53、聲明符號(hào)常量應(yīng)該用關(guān)鍵字(B)。

A、StaticB、ConstC、PrivateD、Variant

54、要強(qiáng)制顯示聲明變量，可在窗體模塊或標(biāo)準(zhǔn)模塊的聲明段中加入語(yǔ)句(B).

A、OptionBase0B、OptionExplicit

C、OptionBase1D>OptionCompare

55、下列可作為VisualBasic變量名的是作)。

A、A#AB、4AC、?xyD、constA

56、設(shè)a=10,b=5,c=L執(zhí)行語(yǔ)句Printa>b>c后，窗體上顯示的是(B)。

A、TrueB、FalseC、1D、出錯(cuò)信息

57、執(zhí)行x$=String(6,"124abc")后,x的值是(B)。

A、124abcB、111111C、124D、abc

58、設(shè)a=6,則執(zhí)行x=Hf(a〉5,T,0)后，x的值為(D)

A、5B、6C、0D、-1

59、執(zhí)行語(yǔ)句:c$="Glad"&Mid$("Nicetomeetyou”，5,3),則變量c$的值為(C)。

A、NicetomeetyouB、GladNicetomeetyou

C、GladtoD、Glad

60、下面⑻是合法的字符常數(shù)。

A、ABC$B、"ABC"C、’ABC'D、ABC

61、對(duì)于語(yǔ)句Ifx=lTheny=l,下列說法正確的是(C)?

A、x=l和y=l均為賦值語(yǔ)句

B、x=l和y=l均為關(guān)系表達(dá)式

C、x=l為關(guān)系表達(dá)式，y=l為賦值語(yǔ)句

D、x=l為賦值語(yǔ)句，y=l為關(guān)系表達(dá)式

62、設(shè)有聲明:DimXAsInteger,如果Sgn(X)的值為-1,則X的值是(D)。

A、任何整數(shù)B、0C、等于0的整數(shù)D、小于0的數(shù)

63、在一行內(nèi)寫多條語(yǔ)句時(shí)，每個(gè)語(yǔ)句之間用(B)符號(hào)分隔。

A、，B、：C、、D、；

64、從鍵盤上輸入兩個(gè)字符串，分別保存在變量strl、str2中。確定第二個(gè)字符串在第一

個(gè)字符串中起始位置的函數(shù)是(D)o

A、LeftB、MidC^StringD^Instr

65、設(shè)S="中華人民共和國(guó)”，表達(dá)式Left(S,l)+Right(S,1)+Mid(S,3,2)的值為(B)

A、“中華民國(guó)"B、"中國(guó)人民”

C、“中共人民"D、"人民共和”

66、下列可作為VisualBasic中的變量名的是(A)。

A、FilenameB、A(A+B)C、254DD、Print

67、下面(A)是合法的變量名。

A、X_yzB、123abcC、IntegerD、X-Y

68、以下變量命名非法的是(C)。

A、xyzl23B、printaaC、booleanD、Bernald

69、設(shè)有變量聲明：DimTestDateAsDate,為變量TestDate正確賦值的表達(dá)方式是(A)。

A、TextDate=#l/1/2002#

B、TestDate=#"1/1/2002”#

C、TextDate=date("1/1/2002”)

D、TestDate=Format(“m/d/yy”，“1/1/2002”)

70、設(shè)a=2,b=3,c=4,d=5,表達(dá)式a>bANDc<=d的值是(B)。

A、TrueB、FalseC、-1D、1

71、表達(dá)式6*8Mod9的值是(B)。

A、4B、3C、6D、7

72、假設(shè)變量bool_x是一個(gè)布爾型(邏輯型)的變量，則下面正確的賦值語(yǔ)句是(D)

A、bool_x="False"B、bool_x=.False.

C、bool_x=#FalseSD、boolx=False

73、設(shè)2="VisualBasic”,下面使b="Basic”的語(yǔ)句是(B)。

A、b=Left(a,8,12)B、b=Mid(a,8,5)

C>b=Rigth(a,5,5)Cb=Left(a,8,5)

74、語(yǔ)句PrintFormat$(32548.5,“###,###.###")的輸出結(jié)果是(B)?

A、32548.5B、32,548.5C、032,548.50D、32,548.50

75、以下聲明語(yǔ)句中錯(cuò)誤的是(D)。

A、Constvarl=123B、Dimvar2='ABC'

CNDimxyz%D、Staticvar3AsInteger

76、可以同時(shí)刪除字符串前導(dǎo)和尾部空白的函數(shù)是(C)。

A、LtrimB、RtrimC、TrimD、Mid

77、下列可為合法變量名的是(D)。

A、IntegerB、FalseC、publicD>thanksgiving

78、變量未賦值時(shí)，數(shù)值型變量的值為(A)o

A、0B、空C、1D、無任何值

79、表達(dá)式16/4-2-5*8/4Mod5\2的值為(B)。

A、14B、4C、20D、2

80、下面If語(yǔ)句統(tǒng)計(jì)滿足性別為男、職稱為副教授以上、年齡小于40歲條件的人數(shù)，不正

語(yǔ)句是(D)o

A、Ifsex=〃男〃Andage<40And(duty=〃教授"Orduty=”副教授〃)Thenn=n+l

B、Ifsex=〃男"Andage<40AndInStr(duty,“教授")>0Thenn=n+l

C、Ifsex=〃男〃Andage<40AndRight(duty,2)=〃教授〃Thenn=n+l

I)、Ifsex=〃男〃Andage<40Andduty=〃教授"Andduty二〃副教授〃Thenn=n+l

81、設(shè)a=3,b=5,則以下表達(dá)式值為真的是(B)。

ANa>=bAndb>10

B、(a>b)0r(b>0)

C、(a<0)or(b<0)

D、(-3+5>a)And(b>0)

82、執(zhí)行語(yǔ)句a二InputBox("Today","Tomorrow","Yesterday",,,z，Daybeforeyesterday”,5),

將顯示一個(gè)輸入對(duì)話框，在對(duì)話框的輸入?yún)^(qū)中顯示的信息是(A)。

A、Today

B、Tomorrow

C、Yesterday

D^DaybeforeYesterday

83、VB提供了結(jié)構(gòu)化程序設(shè)計(jì)的3種基本結(jié)構(gòu)，這3種基本結(jié)構(gòu)是（B）。

A、遞歸結(jié)構(gòu)，分支結(jié)構(gòu)，循環(huán)結(jié)構(gòu)

B、選擇結(jié)構(gòu)，過程結(jié)構(gòu)，順序結(jié)構(gòu)

C、過程結(jié)構(gòu)，輸入、輸出結(jié)構(gòu)，轉(zhuǎn)向結(jié)構(gòu)

D、分支結(jié)構(gòu)，循環(huán)結(jié)構(gòu)，順序結(jié)構(gòu)

84、下面If語(yǔ)句統(tǒng)計(jì)滿足性別為男、職稱為副教授以上、年齡小于40歲條件的人數(shù)，不正

確的語(yǔ)句是（D）?

A、Ifsex="男"Andage<40AndInStr(duty,“教授”)>0Thenn=n+l

B、Ifsex=，，男，，Andage<40And(duty="教授"Orduty="副教授")Thenn=n+l

C、Ifsex=“男”Andage<40AndRight(duty,2)="教授"Thenn=n+l

I)、Ifsex二“男”Andage<40Andduty二“教授”Andduty=“副教授"Thenn=n+l

85、當(dāng)語(yǔ)句w=Hf(4>10,"Red"，“Green”)執(zhí)行后,變量w中的值是(C)0

A、Null

B、“Red”

C、“Green”

D、-1

86、賦值語(yǔ)句:2=123+乂1。（“123456”，3,2）執(zhí)行后,a變量中的值是（D）o

A、“12334”

B、123

C、12334

D、157

87、設(shè)有語(yǔ)句x=lnputBox（“AAAA”，“BBBB”，""），程序運(yùn)行后,所產(chǎn)生的對(duì)話框的標(biāo)

題應(yīng)為（C）。

A、AAAA

B、空

C、BBBB

D、出錯(cuò)，不能產(chǎn)生對(duì)話框

88、下面正確的賦值語(yǔ)句是(C)o

A、x+y=30

B、y=JI*r*r

C、y=x+30

D、3y=x

89、VB提供了結(jié)構(gòu)化程序設(shè)計(jì)的三種基本結(jié)構(gòu)，三種基本結(jié)構(gòu)是(D)。

A、遞歸結(jié)構(gòu)、選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)

B、選擇結(jié)構(gòu)、過程結(jié)構(gòu)、順序結(jié)構(gòu)

C、過程結(jié)構(gòu)、輸入輸出結(jié)構(gòu)、轉(zhuǎn)向結(jié)構(gòu)

D、選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)、順序結(jié)構(gòu)

90、下面程序段求兩個(gè)數(shù)中的大數(shù)，不正確的是(D)。

A、Max=IIf(x>y,x,y)

B>Ifx>yThenMax=xElseMax=y

C、Max=x：Ify>=xThenMax=y

D、Ify>xThenMax=y：Max二x

91>下列程序段：DimxIfxThenPrintxElsePrintx+1運(yùn)行后，顯示的結(jié)果是(A)。

A、1

B、0

C、~1

D、出錯(cuò)

92、以下不屬于vb的三種基本結(jié)構(gòu)的是(C)?

A、順序結(jié)構(gòu)

B、選擇結(jié)構(gòu)

C、遞歸結(jié)構(gòu)

D、循環(huán)結(jié)構(gòu)

93、語(yǔ)句Ifx=1Theny=1,下列說法正確的是(C)。

A、x=l和y=l均為賦值語(yǔ)句

B、x=l和y=l均為關(guān)系表達(dá)式

C、x=l為關(guān)系表達(dá)式，y=l為賦值語(yǔ)句

D、x=l為賦值語(yǔ)句，y=l為關(guān)系表達(dá)式

94、賦值語(yǔ)句：a=123&MID(“123456”,3,2)執(zhí)行后,a變量中的值是(C)。

A、“12334”

B、123

C、12334

D、157

95、下面程序段顯示的結(jié)果是(A)o

Dimx

x=Int(Rnd)+5

SelectCasex

Case5

“優(yōu)秀”

Case4

Print“良好”

Case3

Print“通過”

CaseElse

Print“不通過”

EndSelect

A、優(yōu)秀

B、良好

C、通過

D、不通過

96、為了給x,y,z這3個(gè)變量賦初值1,下面正確的賦值語(yǔ)句是（A）o

A>x=l：y=l：z=l

B、x=l,y=l,z=l

CNx=y=z=l

D、xyz=l

97、下列語(yǔ)句正確的是（C）

A、IfAKBThenPrint"A不等于B”

B、IfAOBThenPrintA不等于B

C、IfAOBThenPrint"A不等于B”

D、IfAWBPrint"A不等于B"

98、設(shè)有語(yǔ)句x$=InputBox（“輸入數(shù)值”,“0”，“示例”），程序運(yùn)行后，如果從鍵盤上

輸入數(shù)值10并按回車鍵，則下列敘述中正確的是（D）。

A、變量X的值是數(shù)值10

B、在InputBox對(duì)話框標(biāo)題欄中顯示的是“示例”

C、0是默認(rèn)值

D、變量X的值是字符串“10”

99、運(yùn)行下列程序段后，顯示的結(jié)果為（B）Jl=4:J2=9IfJ1<J2ThenPrintJ2ElsePrintjl

A、4

B、9

C、13

D、49

100、InputBox函數(shù)返回值的類型為（B）。

A、數(shù)值

B、字符串

C、變體

D、數(shù)值或字符串（視輸入的數(shù)據(jù)而定）

101、一個(gè)數(shù)組說明為Dima（0to5,1to5）AsInteger,則該數(shù)組共有（C）個(gè)元素。

A、25

B、36

C、30

D、不確定

102、數(shù)組聲明語(yǔ)句Dima(2to3,-2to2,3to5)中，數(shù)組a包含元素的個(gè)數(shù)為(C)。

A、120

B、75

C、30

D、13

103、如果在上題語(yǔ)句前加入OptionBase1,則該數(shù)組共有(D)個(gè)元素。

A、15

B、16

C、13

D、不確定

104、如果有聲明Dima(15)AsInteger,則該數(shù)組共有(B)個(gè)元素。

A、15

B、16

C、13

D＞不確定

105、一個(gè)數(shù)組說明為Dima(5,1to5)AsInteger,則該數(shù)組共有(C)個(gè)元素。

A、25

B、36

C、30

D＞不確定

106、在VB中，默認(rèn)的數(shù)組下標(biāo)的下界從0開始，要想在通用聲明段界定下界，則應(yīng)使用(A)o

A、OptionBase

B、OptionExplicit

C、Explicit

D、LowBase

107、如下數(shù)組聲明語(yǔ)句，正確的是(B)。

ANDima[3,4]asInteger

B、Dima(3,4)asInteger

C、Dima(n,n)asInteger

D^Dima[3][4)asInteger

108、賦給一個(gè)數(shù)組的數(shù)據(jù)的值的類型一定要(A)o

A、相同

B、不相同

C、兩可

D、都不對(duì)

109、數(shù)組的下標(biāo)可取的變量類型是(A)。

A、數(shù)值型

B、字符型

C、日期型

D、可變型

110、數(shù)組聲明語(yǔ)句Dima(0to3,-2to2,0to5)中，數(shù)組a包含元素的個(gè)數(shù)為(A)。

A、120

B、75

C、60

D、13

111>假定有如下的Sub過程：SubS(xAsSingle,yAsSingle)t=xx=t/yy=t

ModyEndSub在窗體上添加?個(gè)命令按鈕，然后編寫如下事件過程：PrivateSub

CommandlClickODimaAsSingleDimbAsSinglea=5:b=4Sa,bPrinta,bEnd

Sub程序運(yùn)行時(shí)，單擊命令按鈕得到的結(jié)果(D)o

A、54

B、11

C、1.254

D、1.251

112、用以下方式聲明的變量，(B)可以在整個(gè)程序中通用？

A、在窗體模塊用Dim進(jìn)行聲明

B、在窗體模塊用Public進(jìn)行聲明

C、在窗體模塊用Private進(jìn)行聲明

D、在窗體模塊用Static進(jìn)行聲明

113、在窗體上添加一個(gè)命令按鈕和三個(gè)標(biāo)簽，編寫事件過程：PrivatexAsIntegerPrivate

SubCommandl_Click()StaticyAsIntegerDimzAsIntegerN=10:z=N+z:y=y+z:x=x+z

Label1.Caption=xLabel2.Caption=yLabe13,Caption=zEndSub程序運(yùn)行后，連續(xù)

三次單擊命令按鈕，則三個(gè)標(biāo)簽中顯示的內(nèi)容分別是(A)o

A、101010

B、303030

C、303010

D、103030

114、以下敘述中錯(cuò)誤的是(D)。

A、如果過程被定義為Static類型，則該過程中的局部變量都是Static類型

B、Sub過程中不能嵌套定義Sub過程

C、Sub過程中可以嵌套調(diào)用Sub過程

D、事件過程可以像通用過程一樣由用戶定義過程名

115、在在窗體上添加一個(gè)命令按鈕Command1和一個(gè)文本框Textl,然后編寫如下事件過程:

PrivateSubCommand1Click()

DimxAsInteger,yAsInteger,zAslnteger

x=5

y=7

z=0

Textl.Text二〃〃

Callpl(x,y,z)

Textl.Text=Str(z)

EndSubPrivateSubpl(ByVaiaAsInteger,ByVaibAsInteger,cAsInteger)

c=a+b

EndSub

程序運(yùn)行后，單擊命令按鈕得到的結(jié)果是(A)o

A、12

B、0

C、Str(z)

D、沒有顯示結(jié)果

116、如果在程序中要將a定義為靜態(tài)變量，且為整型數(shù)，則應(yīng)使用的語(yǔ)句是：(B)

A、RedimaAsInteger

B、StaticaAsInteger

C、PublicaAsInteger

D、DimaAsInteger

117、以下程序的運(yùn)行結(jié)果是(C)

Subsl(b()AsInteger)

Fori=1To4

b(i)=2*i

Nexti

EndSub

PrivateSubCommandl_Click()

Dima(lTo4)AsInteger

Fori=1To4

a(i)=i+5

Nexti

sia()

Fori=1To4

Printa(i)

Nexti

EndSub

A、12141618

B>6789

C、2468

D>1234

118>以下程序的運(yùn)行結(jié)果是(D)oFunctionf(mAsInteger)AsIntegerb=1Staticc

AsIntegerb=b+lc=c+lf=m*b*cEndFunctionPrivateSubCommandl_Click()

DimaAsIntegera=2Sum=0Fori=1To3Sum=Sum+f(a)NextiPrintSumEnd

Sub

A、12

B、28

C、32

D、24

119、下列程序輸出結(jié)果(C)o

PrivateSubCommandl_Click()

Fori=1To10

GetValuei

Nexti

PrintGetValue(i)

EndSub

PrivateFunctionGetValue(ByVaiaAsInteger)StaticSAsIntegerS=S+a

GetValue=S

EndFunction

A、10

B、65

C、66

D、11

120、在過程定義的變量，若希望在離開該過程后，還能保存過程中局部變量的值，則應(yīng)使

用(D)關(guān)鍵字在過程中定義局部變量。

A、Dim

B、Private

C、Public

D、Static

121、在過程定義中用(C)表示形參的傳值。

A、Var

B、ByDef

C、ByVai

D、Value

122、在在窗體上添加一個(gè)命令按鈕Commandl和兩個(gè)名稱分別為L(zhǎng)abel1和Label2的標(biāo)簽，

然后編寫如下事件過程：PrivateXAslntegerPrivateSubCommandl_Click()X=5:y=

3Callproc(X,y)Label1.Caption=XLabel2.Caption=yEndSubSubproc(ByVaia

AsInteger,ByVaibAsInteger)X=a*ay=b+bEndSub程序運(yùn)行后，單擊命令

按鈕，則兩個(gè)標(biāo)簽labell和labe租中顯示的內(nèi)容分別是(B)。

A、25,3

B、25,6

C、5,3

D、5,6

123、以下程序的運(yùn)行結(jié)果是(C)oDimxAsInteger,yAsInteger,zAsIntegerSubsl(a

AsInteger,bAsInteger)

DimcAsInteger

a=2*ab=b+2c=a+b

EndSub

Subs2(aAsInteger,ByValbAsInteger)

DimcAsInteger

a2*a

b=b+2

c=a+b

EndSub

PrivateSubCommand1ClickO

x=4：y=：4z=6

Callsi(x,y)

Printx+y+z

Calls2(x,y)

Printx+y+z

EndSub

A、2428

B、2028

C、2018

D、2020

124、以下關(guān)于過程及過程參數(shù)的描述中，錯(cuò)誤的是(C)。

A、過程的參數(shù)可以是控件名稱

B、用數(shù)組作為過程的參數(shù)時(shí)，使用的是“傳地址”方式

C、只有函數(shù)過程能夠?qū)⑦^程中處理的信息傳回到調(diào)用的程序中

D、窗體可以作為過程的參數(shù)

125^以下屬于VisualBasic合法的數(shù)組元素是(C)

A、x8

B、x[8]

C、s(0)

D、v[8]

126、下列敘述中正確的是(C)。

A、在窗體的Form_Load事件過程中定義的變量是全局變量

B、局部變量的作用域可以超出所定義的過程

C、在某個(gè)Sub過程中定義的局部變量可以與其它事件過程中定義的局部變量同名，但其作

用域只限于該過程

D、在調(diào)用過程時(shí)，所有局部變量被系統(tǒng)初始化為0或空字符串

127、假定有以下函數(shù)過程：FunctionFun(SAsString)AsStringDimsiAsStringFor

i=1ToLen(S)si=UCase(Mid(S,i,1))+siNextiFun=siEndFunction在窗體

上添加一個(gè)命令按鈕，然后編寫如下事件過程：PrivateSubCommand1ClickODimstrl

AsString,str2Asstringstrl=InputBox(〃請(qǐng)輸入一個(gè)字符串〃)str2=Fun(strl)Print

str2EndSub程序運(yùn)行后，單擊命令按鈕，如果在輸入對(duì)話框中輸入字符串"abcdefg",

單擊〃確定〃按鈕后程序在窗體上輸出結(jié)果(I))o

A^abcdefg

B、gfedcba

C、GFEDCBA

D、ABCDEFG

128、若已編寫了一個(gè)Sort子過程，在該工程中有多個(gè)窗體，為了方便的調(diào)用Sort子過程，

應(yīng)該將該過程放在(B)。

A、窗體模塊

B、標(biāo)準(zhǔn)模塊

C、類模塊

D、工程

129、下面子過程語(yǔ)句說明合法的是(D)

A、Subfl(ByVain()Aslnteger)

B、Functionfl(flAsInteger)AsInteger

CNSubfl(n()Aslnteger)AsInteger

D、Functionfl(ByVainAsInteger)AsInteger

130、在過程定義的變量，若希望在離開該過程后，還能保存過程中局部變量的值，則應(yīng)使

用(D)關(guān)鍵字在過程中定義局部變量。

A、Dim

B、Private

C、Public

D、Static

131、在窗體上畫三個(gè)單選按鈕，組成一個(gè)名為chkOption的控件數(shù)組。用于標(biāo)識(shí)各個(gè)控件

數(shù)組元素的參數(shù)是(D)。

A、Tag

B、Index

C、Listindex

D、Name

132、假如列表框(Listl)有四個(gè)數(shù)據(jù)項(xiàng)，那么把數(shù)據(jù)項(xiàng)“China”添加到列表框的最后，

應(yīng)使用⑻語(yǔ)句。

A、Listl.Additem3,“China”

B、Listl.Additem"China”,Listl.ListlCount-1

C、Listl.Additem“China”,3

D、Listl.Additem〃China”

133^如果列表框(Listl)中沒有被選定的項(xiàng)目，則執(zhí)行Listl.RemoveitemListl.Listindex

語(yǔ)句的結(jié)果是(D)。

A、移去第一項(xiàng)

B、移去最后一項(xiàng)

C、移去最后加入列表的一項(xiàng)

D、以上都不對(duì)

134、以下敘述中錯(cuò)誤的是(C)。

A、在KeyUp和KeyDown事件過程中，從鍵盤上輸入A或a被視作相同的字母(即具有相同的

KeyCode)

B、在KeyUp和KeyDown事件過程中，將鍵盤上的“1”和右側(cè)小鍵盤上的“1”視作不同的

數(shù)字(具有不同的KeyCode)

C、KeyPress事件中不能識(shí)別鍵盤上某個(gè)鍵的按下與釋放

D、KeyPress事件中可以識(shí)別鍵盤上某個(gè)鍵的按下與釋放

135、設(shè)組合框Combol中有3個(gè)項(xiàng)目，則以下能刪除最后一項(xiàng)的語(yǔ)句是(B)°

A、Combol.RemoveItemText

B、Combol.Removeitem2

C、Combol.Removeltem3

D、Combo1.RemoveItemCombol.Listcount

136、下列控件中，沒有Caption屬性的是(B)。

A、框架

B、列表框

C、復(fù)選框

D、單選按鈕

137、引用列表框(Listl)最后一個(gè)數(shù)據(jù)項(xiàng)應(yīng)使用的表達(dá)式是(C)

A、Listl.List(Listl.ListCount)

B、Listl.List(ListCount)

C>Listl.List(Listl.ListCount-1)

D、Listl.List(ListCount-1)

138、窗體的MouseDown事件過程Form_MouseDown(ButtonAsInteger,ShiftAsInteger,

XAsSingle,YAsSingle)有4個(gè)參數(shù)，關(guān)于這些參數(shù)，正確的描述是(A)。

A、通過Button參數(shù)判定當(dāng)前按下的是哪一個(gè)鼠標(biāo)鍵

B、Shift參數(shù)只能用來確定是否按下Shift鍵

C、Shift參數(shù)只能用來確定是否按下Alt和Ctrl鍵

D、參數(shù)x,y用來設(shè)置鼠標(biāo)當(dāng)前位置的坐標(biāo)

139、復(fù)選框的Value屬性為1時(shí)，表示(B)。

A、復(fù)選框未被選中

B、復(fù)選框被選中

C、復(fù)選框內(nèi)有灰色的勾

D、復(fù)選框操作有錯(cuò)誤。

140、引用列表框的最后一項(xiàng)應(yīng)使用(A)。

A、Listl.List(Listl.ListCount-1)

B、Listl.List(Listl.ListCount)

C、Listl.List(ListCount)

D、Listl.List(ListCount-1)

14k設(shè)窗體上有一個(gè)列表框控件Listl,且其中含有若干列表項(xiàng)。則以下能表示當(dāng)前被選

中的列表項(xiàng)內(nèi)容的是(D)。

A、Listl.List

B、Listl.Listindex

C、Listl.Index

D、Listl.Text

142、表示滾動(dòng)條控件取值范圍最大值的屬性是(A)。

A、Max

B、LargeChange

C、Value

D、Max-Min

143、為了在按下Esc鍵時(shí)執(zhí)行某個(gè)命令按鈕的Click事件過程，需要把該命令按鈕的一個(gè)

屬性設(shè)置為True,這個(gè)屬性是(D)。

A、Value

B、Default

C、Cancel

D、Enabled

144、假如列表框(Listl)有四個(gè)數(shù)據(jù)項(xiàng),那么把數(shù)據(jù)項(xiàng)“China”添加到列表框的最后,

應(yīng)使用語(yǔ)句(D)。

A>Listl.Addltem3,"China”

B、Listl.Addltem"China”,Listl.ListlCount-1

C、Listl.Addltem"China”,3

D、Listl.Addltem"China”,Listl.ListlCount

145、復(fù)選框的Value屬性為2時(shí)，表示(C)。

A、復(fù)選框未被選中

B、復(fù)選框被選中

C、復(fù)選框內(nèi)有灰色的勾

D、復(fù)選框操作有錯(cuò)誤。

146、為了在按下回車鍵時(shí)執(zhí)行某個(gè)命令按鈕的事件過程，需要把該命令按鈕的一個(gè)屬性設(shè)

置為True,這個(gè)屬性是（A）。

A、Value

B、Default

C、Cancel

D、Caption

147、下面說法不正確的是（D）?

A、層菜單不允許設(shè)置快捷鍵

B、使菜單項(xiàng)中的文字具有下畫線，可在標(biāo)題文字前加&符號(hào)

C、一菜單項(xiàng)名為MenuTerm,則語(yǔ)句MenuTerm.Enable=Flase將使該菜單項(xiàng)失效

D、希望在菜單中顯示符號(hào)，則在標(biāo)題欄中輸入"&”符號(hào)

148、以下敘述中錯(cuò)誤的是（C）。

A、在程序運(yùn)行時(shí)，通用對(duì)話框控件是不可見的

B、在同一個(gè)程序中，用不同的方法（如ShowOpen或ShowSave等）打開的通用對(duì)話框具有不

同的作用

C、調(diào)用通用對(duì)話框控件的ShowOpen方法，可以直接打開在該通用對(duì)話框中指定的文件

D、調(diào)用通用對(duì)話框控件的ShowColor方法，可以打開顏色對(duì)話框

149、菜單編輯器中，輸入哪一個(gè)選項(xiàng)（A）會(huì)在菜單欄上顯示文本

A、標(biāo)題

B、名稱

C、索引

D、訪問鍵

150、菜單控件只有一個(gè)事件（B）

A、MouseUp

B、Click

C、DBClick

D、KeyPress

151、在用通用對(duì)話框控件建立“打開”或“保存”文件對(duì)話框時(shí)，如果需要指定文件列表

框所列出的文件類型是文本文件(即.txt文件)，則正確的描述格式是(A)。

A、utext(.txt)|(*.txt)”

B、“文本文件(.txt)|(.txt)v

C、atext(.txt)||(*.txt)”

D、atext(.txt)(*.txt)”

152、下面哪個(gè)屬性可以控制菜單項(xiàng)可見或不可見(C)

A、Hide

B、Checked

C、Visible

D、Enabled

153、下面說法不正確的是(D)

A、層菜單不允許設(shè)置快捷鍵

B、使菜單項(xiàng)中的文字具有下畫線，可在標(biāo)題文字前加&符號(hào)。

C、一菜單項(xiàng)名為MenuTerm,則語(yǔ)句MenuTerm.Enabled=Flase將使該菜單項(xiàng)失效。

D、希望在菜單中顯示符號(hào)，則在標(biāo)題欄中輸入符號(hào)。

154、下面哪個(gè)屬性可以控制菜單項(xiàng)可見或不可見(C)?

A、Hide

BNChecked

C、Visible

D、Enabled

155、改變驅(qū)動(dòng)器列表框的Drive屬性將激活(A)事件。

A、Change

BNScroll

C、KeyDown

D、KeyUp

156、在窗體上建立通用對(duì)話框需要添加的控件是(C)

A、Data控件

B、Form控件

C>CommonDialog控件

D、VBComboBox控件

157、下面幾個(gè)關(guān)鍵字均表示文件的打開方式，只能進(jìn)行讀不能寫的是(A)o

A、Input

B、Output

C、Random

D、Append

158、為建一個(gè)隨機(jī)文件，其中每一條記錄由多個(gè)不同數(shù)據(jù)類型的數(shù)據(jù)項(xiàng)組成，應(yīng)使用(A)o

A、記錄類型

B、數(shù)組

C、字符串類型

D、變體類型

159、下列說法錯(cuò)誤的是(B)。

A、當(dāng)用Write#語(yǔ)句寫順序文件時(shí)，文件必須以O(shè)utput或Append方式打開

B、用Open語(yǔ)句打開一個(gè)文件時(shí)，對(duì)同一個(gè)文件可以用幾個(gè)不同的文件號(hào)打開

C、用Output和Append方式打開文件時(shí)，不用將文件關(guān)閉，就能重新打開文件

D、用Append方式打開文件時(shí)，進(jìn)行寫操作，寫入文件的數(shù)據(jù)附加到原來文件的后面

160、執(zhí)行語(yǔ)句Open"Sample.dat"ForRandomAs#1Len=50后，對(duì)文件"Sample,dat”

中的數(shù)據(jù)能夠進(jìn)行的操作是(C)。

A、只能寫不能讀

B、只能讀不能寫

C、即可以讀，也可以寫

D、不能讀，也不能寫

二、填空題

1,下面程序?qū)σ阎獢?shù)組a,刪除數(shù)組中數(shù)組元素中某個(gè)元素

PrivateSubCommandl_Click()

Dima(),key%,i%,j%

a=Array(1,6,8,3,5,9,10,2,7,4)

key=Val(InputBox(〃輸入要?jiǎng)h除的值〃))

Fori=0ToUBound(a)

Ifkey=a(i)Then

Forj=i+1ToUBound(a)

a(j-1)=a(j)

Nextj

ReDimPreservea(UBound(a)-1)

MsgBox(〃刪除完成〃)

ExitSub

EndIf

Nexti

MsgBox(〃找不到要?jiǎng)h除的元素〃)

EndSub

2,下列程序表示將輸入的一個(gè)數(shù)插入到按遞減的有序數(shù)列中，插入后使該序列仍有序

PrivateSubForm_Click()

Dima,i%,n%,m%

a=Array(19,17,15,13,11,9,7,5,3,1)

n=UBound(a)

ReDimPreservea(n+1)

m=Vai(InputBox(〃輸入欲插入的數(shù)〃))

Fori=UBound(a)-1To0Step-1

Ifm>=a(i)Then

a(i+1)=a(i)

Ifi=0Thena(i)=m

Else

a(i+1)=m

ExitFor

EndIf

Nexti

Fori=0ToUBound(a)

Printa(i)

Nexti

EndSub

3,下列程序在1000~9999之間查找滿足如下條件的整數(shù)：該整數(shù)，逆向排列得到的

另一個(gè)四位數(shù)是它自身的倍數(shù)(2倍以上)。查找結(jié)果和逆向排列數(shù)分別顯示在對(duì)應(yīng)

的列表框

PrivateSubCommand1Click()

DimnAsInteger

DimmAsInteger

DimiAsInteger

Fori=1000To9999

m=0

n=i

DoWhilen>0

m=m*10+nMod10

n=n\10

Loop

IfmModi=0Andm\i>1Then

list!.Addltemi

Iist2.Additemm&"二"&i&&m\i

EndIf

Nexti

EndSub

4,將100150之間的偶數(shù)，拆分成兩個(gè)素?cái)?shù)之和，最后輸出格式如圖。其中，prime函數(shù)判

斷參數(shù)x是否為質(zhì)數(shù)

PrivateFunctionprime(ByVaixAsInteger)AsBoolean

prime=ture

Fori=2ToSqr(x)

IfxModi=0Then

prime=False

ExitFunction

EndIf

Nexti

EndFunction

PrivateSubForm_Load()

i=1

Forn=100Tol50

Fork=3Ton/2

Ifprime(k)Andprime(n-k)Then

Printi;:;=;k;+;n-k

ExitFor

EndIf

Nextk

i=i+1

Nextn

EndSub

10,子過程F(N,M,T)對(duì)一個(gè)四位數(shù)n整整數(shù)判斷：已知該整數(shù)n,逆向排列獲得另一個(gè)4

位數(shù)田是特自身的倍數(shù)，則t為true

表示滿足上述條件。。。

PrivateSubCommand1Click()

DimtAsBoolean,i%,k%

textl="〃

text2=〃〃

Fori=1000To9999

Callf(i,k,t)

IftThen

textl=textl&i&vbCrLf

text2=text2&k&〃二〃&i&〃*〃&k\i&vbCrLf

Endlf

Nexti

EndSub

Subf(ByVain%,ByRefm%,byreyftagAsBoolean)

Dimi%

Tag=False

m=0

i=n

DoWhilei>0

m=m*10+iMod10

i=i\10

Loop

IfmModn=0Andm\n>1Then

Tag=True

EndIf

EndSub

6.8.子過程MoveStr()是把字符組移動(dòng)m個(gè)位置，

當(dāng)Tag為Ture是左移，則前m個(gè)字符一道字符數(shù)組尾

,例如，“abcdefghij”左移3個(gè)位置后，結(jié)果為

“defghijabc”；。。。。。

PublicSubMoveStr(a$(),m%,TagAsBoolean)

Dimi%,j%,t$

IfTagThen

Fori=1Tom

c二a(0)

Forj=0ToUBound(a)-1

a(j)=a(j+1)

Nextj

a(UBound(a))-1

Nexti

Else

Fori=1Tom

c=a(UBound(a))

Forj=UBound(a)To1Step-1

a(j)=a(j-1)

Nextj

a(0)=c

Nexti

Endlf

EndSub

6.9.子過程CountN用來統(tǒng)計(jì)字符串中各數(shù)字

字符(0-9)出現(xiàn)的個(gè)數(shù)；主調(diào)程序?qū)υ趖extboxl

框輸入的文本，每次單擊“統(tǒng)計(jì)”按鈕，調(diào)用該子

過程，在Labell框顯示結(jié)果。

PrivateSubCommandl_Click()

Dimn(9)AsInteger,i%

CallCountN(n(),textl.Text)

listl.Clear

Fori=0To9

Ifn(i)Thenlistl.Addltem”字符〃&i&〃出現(xiàn)的次數(shù)為〃&n(i)

Next

EndSub

SubCountN(ByRefnum%(),ByVaisAsString)

DimcAsString*1,i%,m%,j%

Fori=0To9

num(i)=0

Nexti

m=Len(s)

Fori=1Tom

c=Mid(s,i,1)

Ifc>二〃0〃Andc<=〃9〃Then

j=Vai(c)

num(j)=num(j)+1

EndIf

Nexti

EndSub

6.11.下列程序中的子過程myplit。。用于實(shí)現(xiàn)split函數(shù)的功能，即將數(shù)字字符

s鞍分隔符“，”分離到sAriy數(shù)組中，分離?的個(gè)數(shù)為n。。。。

PrivateSubTextl_KeyPress(KeyAsciiAslnteger)

DimstrlAsString,num(100)AsInteger,n%,i%

IfKeyAscii=13Then

strl=Trim(Textl.Text)

CallMySplit(strl,num,n)

listl.Text="〃

Fori=1Ton

listl.Additemnum(i)

Next

EndIf

EndSub

SubMySplit(ByVaistrlAsString,ByRefsnOAsInteger,ByRefnAsInteger)

Dimi%,j%,ch$

i=0

j二InStr(Str,〃，“)

DoWhilej>0

sn(i)=Vai(Mid(strl,1,j-D)

strl=Mid(strl,j+1)

i=i+1

j=InStr(strl,〃,〃)

Loop

sn(i)=Vai(strl)

n=i

EndSub

1工程中有兩個(gè)窗體formMDform2,一個(gè)標(biāo)準(zhǔn)模塊modulel,設(shè)在forml中定義了過程aa,

在modulel中定義了過程bb。

Subaa(x,y,z)

z=x*x+y*y

EndSub

Subbb(x,y,z)

z=x"3+y3

EndSub

當(dāng)在forml中單擊命令按鈕時(shí)，調(diào)用以上過程計(jì)算兩個(gè)數(shù)的平方和和立方和，并分別將計(jì)算

結(jié)果顯示在文本框text3和text4中，請(qǐng)?zhí)羁胀瓿烧{(diào)用語(yǔ)句。

PrivateSubCommand1Click()

a=Val(Textl.Text)

b=Val(Text2.Text)

Call[aa(a,b,cl)]

Text3.Text=cl

bb[a,b,c2]

Text4.Text=c2

EndSub

2下面的程序用于根據(jù)文本框X中輸入的內(nèi)容進(jìn)行以下處理：若X為2、4、6,則打印〃X的

值為2、4、6〃；若X在11到15之間，則打印〃X的值為大于等于11小于等于15〃；若X大于20,

則打印〃X的值大于20〃；否則，打印〃X不在范圍內(nèi)〃。

PrivateSubCommandl_Click()

SelectCaseVai(X.Text)

Case[2,4,6]

Print，ZX的值為2,4,6〃

Case[llto15]

Print〃X的值為大于等于11小于等于15〃

CaseIs>20

Print-X的值大于20〃

CaseElse

Print"X不在范圍內(nèi)”

EndSelect

EndSub

3下面的程序是使用冒泡法對(duì)數(shù)組進(jìn)行排序，請(qǐng)將程序補(bǔ)充完整。

OptionBase1

PrivateSubCommand1Click()

DimiA(0To10)

n=6

iA(0)=8:iA(l)=6:iA(2)=9:iA(3)=3:iA(4)=2:iA(5)=7

Fori=1Ton-1,進(jìn)行nT遍比較

對(duì)第i遍比較時(shí)，大數(shù)沉底

For[j=lton-i]在數(shù)組i'n個(gè)元素中選最小元素的下標(biāo)

If[iA(j)>iA(j+l)]Then

t=iA(j)

iA(j)=iA(j+1)

iA(j+1)=t

EndIf

Nextj

EndSub

4程序的功能是使用輾轉(zhuǎn)相除法求兩個(gè)數(shù)的最大公約數(shù)。

PrivateSubCommandl_Click()

Dimm%,n%

m=Int(InputBox(z/inputaninteger"))

n=Int(InputBox(z，inputanotherinteger"))

Printgcd(m,n)

EndSub

PublicFunctiongcd%(m%,n%)

Dimt%

If[m<n]Thent=m:m=n:n=t

Do

r=mModn

Ifr=0ThenExitDo

m=n

[n=r]

Loop

gcd=n

EndFunction

5、輸入任意長(zhǎng)度的字符串，要求將字符順序倒置，例如，將輸入的“ABCDEF”變換成

“FEDCBA”°請(qǐng)將程序補(bǔ)充完整。

PrivateSubCommand1Click()

Dima$,i%,c$,n%'n存放字符串的長(zhǎng)度

a二InputBox(〃inputastring")

n=[Len(a)]

Fori=1ToInt(n/2)

c=Mid(a,i,1)

Mid(a,i,1)=[Mid(a,n-i+l,1)]

Mid(a,n-i+1,1)=c

Nexti

EndSub

6、下面的程序允許用戶按Enter(回車)鍵后，將組合框中沒有的項(xiàng)目添加到組合框。請(qǐng)將

程序補(bǔ)充完整。

PrivateSubCombo1KeyPress(KeyAsciiAslnteger)

DimflagAsBoolean

IfKeyAscii=13Then

flag=False

Fori=0ToCombol.ListCount-1'查找項(xiàng)目是否已存在

If[combol.text=combol.list(i)]Then

flag=True

ExitFor

EndIf

Nexti

Ifflag=FalseThen'不