第2章VB語言基礎(chǔ)

2.1學(xué)習(xí)要點(diǎn)與必備知識(shí)

【學(xué)習(xí)要點(diǎn)】

?常量、變量與數(shù)據(jù)類型，運(yùn)算符與表達(dá)式。

?數(shù)組：概念，基本操作。

?常用標(biāo)準(zhǔn)函數(shù)，人機(jī)對(duì)話函數(shù)。

?編程基礎(chǔ)與程序流程控制：順序結(jié)構(gòu)，選擇結(jié)構(gòu)，循環(huán)結(jié)構(gòu)?；境绦虻木幹婆c算法。

【必備知識(shí)】

i.數(shù)據(jù)運(yùn)算基礎(chǔ)

數(shù)據(jù)類型(種類、表示范圍、自定義數(shù)據(jù)類型)，常量(文字常量、符號(hào)常量)，變量(命名、

類型、定義、類型符)，運(yùn)算符與表達(dá)式(算術(shù)運(yùn)算、關(guān)系及邏輯運(yùn)算、運(yùn)算優(yōu)先順序)。

2.標(biāo)準(zhǔn)函數(shù)

轉(zhuǎn)換函數(shù)，數(shù)學(xué)函數(shù)，時(shí)間與日期函數(shù)，字符串處理函數(shù)。

算術(shù)函數(shù)(Abs、Sin/Cos/Atn/Tan>Exp/LogRnd/Randomize>Sgn>Sqr)；

字符串函數(shù)(Lcase/Ucase、Left/Right>Len、Ltrim/Rtrim/TrimMid>Space>String、InStr)；

日期及時(shí)間函數(shù)(Time/Date、Now>DateValue、Day/Month/Year/WeekDay)；

轉(zhuǎn)換函數(shù)(Str/Val、Chr/Asc、Fix/Int、Cint/Cbool/Cbytc/Cdatc/Cdbl/Cstr)o

由于VB的函數(shù)眾多，為了學(xué)好函數(shù)的使用，可以通過立即窗口。立即窗口是VB提供的

交互執(zhí)行窗口。在立即窗口中可以輸入命令，命令行解釋程序?qū)斎氲拿钸M(jìn)行解釋，并立即

響應(yīng)。

3.數(shù)據(jù)的輸入與輸出

InputBox函數(shù),MsgBox函數(shù)，Print方法。

(1)字體的控制

在VB的應(yīng)用程序中，可以輸入或顯示各種英文字體和漢字字體。字體具有類型、大小、

字形等屬性。這些屬性可以通過屬性窗口進(jìn)行靜態(tài)設(shè)置，亦可通過代碼進(jìn)行動(dòng)態(tài)設(shè)置。使用代

碼動(dòng)態(tài)設(shè)置的方法如下：

字體的類型：objecl.FonlName[二font]

object能夠接收字符的對(duì)象名，可以是窗體、文本框、標(biāo)簽、打印機(jī)等。其中，font是系

統(tǒng)字體的合法名稱，其名稱可以通過Fonts屬性得到。如省略，則使用系統(tǒng)默認(rèn)字體為“宋體”。

字體大?。簅bject.FontSize[=points]

object與上同，points是指所設(shè)置字體的點(diǎn)數(shù)。在默認(rèn)情況下，系統(tǒng)使用最小的字體，點(diǎn)數(shù)

為9。

20VisualBasic學(xué)習(xí)輔導(dǎo)與上機(jī)實(shí)習(xí)

字體的字形：在VB中能夠像Word那樣對(duì)字體的字形進(jìn)行設(shè)置，主要的屬性有：

粗體---FontBold,斜體----Fontltalic,刪除線---FontStrinkthru,下劃線----FontUnderlineo

這幾個(gè)屬性的值均為Boolean型，有兩個(gè)值：True與Falseo如取True則表示加上這些屬

性，否則取消這些屬性。

(2)格式輸出函數(shù)

當(dāng)使用Print方法輸出指定信息時(shí)，盡管可以使用該方法提供的格式來規(guī)定輸出信息的輸出

形式，但這種輸出的形式還不夠豐富。為此，VB專門提供了一個(gè)格式輸出函數(shù)Format用來指

定數(shù)值或日期的格式輸出。其格式為：

Format(expression[,format])

該函數(shù)的功能是按格式字符串format指定的格式輸出表達(dá)式expression的值，一般情況下

它總用于數(shù)值表達(dá)式。若省略格式字符串，其與Str函數(shù)相似，所不同的是當(dāng)輸出一個(gè)正數(shù)時(shí),

Str函數(shù)會(huì)在輸出值前產(chǎn)生一個(gè)空格，而Format函數(shù)則不會(huì)。

使用該函數(shù)主要需確定格式字符串。格式字符串及其用法如表2?1所示。

表2-1格式字符串及用法

字符作用及用法

數(shù)字：#的個(gè)數(shù)決定了顯示的長度，如數(shù)值位數(shù)小于指定的長度，數(shù)值左對(duì)齊，多余位不補(bǔ)0；

否則，數(shù)值原樣顯示

0數(shù)字：功能與#相同，只是在多余的位補(bǔ)0

小數(shù)點(diǎn)：與#或0結(jié)合使用，根據(jù)其位置，小數(shù)部分多余的數(shù)字將按四舍五入處理

千分位分隔符：從小數(shù)點(diǎn)開始，向左每3位一個(gè)逗號(hào)。該符號(hào)可以放在格式串小數(shù)點(diǎn)左邊的

任何位置，但一般不要放在開始或緊靠小數(shù)點(diǎn)的位置

%百分比符號(hào)：放在格式串的尾部，用來輸出％

$美元符號(hào)：放在格式事的起始，在所顯示的數(shù)值前加上一個(gè)$

+,一正、負(fù)號(hào)：指定輸出的數(shù)值帶+號(hào)或一號(hào)

E+,E-指數(shù)符號(hào)：以指數(shù)的形式顯示數(shù)值

例如，在立即窗口試驗(yàn)以下函數(shù)：

①?format("1223.456","#####,##.##")

1,223.46

②?format("1223.456","000,00.0000")

01,223.4560

@?furmal(".456","http://().()%")

45.6%

④?format(1,123.45',,"$000.0n)

$123.5

⑤?format("123.45",“-000.0”)

-123.5

?format("123.45n；,+000.0")

+123.5

⑥?format("l2345.67',；'0.00E+00")

1.23E+04

?format(".()()()12345,,,,,0.00E+()0")

1.23E-04

4.數(shù)組

數(shù)組的定義，靜態(tài)數(shù)組與動(dòng)態(tài)數(shù)組，數(shù)組的輸入、輸出、復(fù)制與初始化，控件數(shù)組。

為了便于對(duì)數(shù)組進(jìn)行操作，VB提供了以下3個(gè)主要的數(shù)組函數(shù)：

Array。函數(shù)

語法格式為：Array(arglist)o該函數(shù)的作用是對(duì)數(shù)組賦值，使用方法是：

數(shù)組名=Array(數(shù)組元素值列表)

例如，給一個(gè)數(shù)組賦初值1、2、3、4、5o

DimarrNasVariant

ArrN=Array。23,4,5)

使用該函數(shù)為數(shù)組賦值時(shí)要注意：

(1)數(shù)組在定義時(shí)不能指定維數(shù)及卜下標(biāo)值.

(2)數(shù)組在定義時(shí)只能使用Variant類型。

Ubound()/Lbound()函數(shù)

語法格式為：Ubound/Lbound(arrayname[,dimension])。功能為返回指定數(shù)組arrayname指

定維dimension的上/下界值，如省略維則返回第1維的上下界值。

5.程序流程控制

單行選擇結(jié)構(gòu)、塊選擇結(jié)構(gòu)、多分支選擇結(jié)構(gòu)、For循環(huán)結(jié)構(gòu)、當(dāng)型循環(huán)結(jié)構(gòu)、直到型循

環(huán)結(jié)構(gòu)、多重循環(huán)結(jié)構(gòu)。

無條件轉(zhuǎn)移語句GoTo命令的使用

GoTo語句可以改變程序的執(zhí)行次序，因此既可以構(gòu)成選擇結(jié)構(gòu)也可以構(gòu)成循環(huán)結(jié)構(gòu)。由

于該語句的執(zhí)行是無條件的，過多使用會(huì)影響程序的質(zhì)量，違反了結(jié)構(gòu)化程序設(shè)計(jì)的基本原則，

因此一般并不推薦使用。GoTo語句的語法是：

GoToline

line參數(shù)可以是一個(gè)標(biāo)號(hào)或一個(gè)行號(hào)。標(biāo)號(hào)是一個(gè)以冒號(hào)結(jié)尾的標(biāo)識(shí)符，如，Start:；行號(hào)

則是一個(gè)整形數(shù)，尾部不加冒號(hào)，如，100。

程序在執(zhí)行到GoTo語句時(shí)，將無條件轉(zhuǎn)移到line參數(shù)指定的標(biāo)號(hào)或行號(hào)所在程序行執(zhí)行。

Iif()函數(shù)

Iif()函數(shù)用來進(jìn)行簡單條件判斷，其語法為：

Iif(expr,trucpart,falscpart)

執(zhí)行時(shí),先判斷邏輯表達(dá)式expr的值。若值為“True”,則返回Irueparl的值;否則返回falsepart

部分的值。該函數(shù)的執(zhí)行過程與If…then…else的執(zhí)行過程相似，而且效率更高。例如，輸出X、

y中的大值。

用If語句：

Ifx>yThen

A.TrueB.#1999-12-1#

C.1999-12-01D.False

12.下列敘述中不正確的是()o

A.變量名的長度不能超過255個(gè)字符

B.變量名的第一個(gè)字符必須是字母

C.變量名不能使用VB的關(guān)鍵字

D.變量名可以包含內(nèi)嵌的類型聲明符

13.不能正確表示“兩個(gè)整形變量a與b之一為0,但不同時(shí)為0”的表達(dá)式是()o

A.a*b=0Anda<>b

B.(a=0Orb=0)Andaob

C.Not(a=0Andb=0)And(a=0Orb=0)

D.a*b=0And(a=0Orb=0)

14.設(shè)b的值為7,一表達(dá)式為“x=b=7"，則運(yùn)算后乂為()。

A.TrueB.b=7C.7D.b

15.在表達(dá)式54+3*12八2-5116+1)/2中最先進(jìn)行運(yùn)算的是(

A.12A2B.3*12C.x+1D.Sin()

16.x+y小于10且x-y大于0的邏輯表達(dá)式是。

A.x+y<10orx-y>0B.(x+y<10):(x-y)>0

C.x+y<10Andx-y>()D.x+y<l().AnD.x-y>()

17.代數(shù)表達(dá)式~十山+田,對(duì)應(yīng)VisualBasic表達(dá)式是_____。

2JI-1

A.EA(x+y)+|x+y|Al/2/2n+l

B.Exp(x+y)+Sqr(Abs(x+y))/2*3.14159+1

C.(Exp(x+y)+Sqr(Abs(x+y)))/(2*3.14159+1)

D.(Exp(x+y)+Sqr(Abs(x+y)))/2*兀+1

耳,3

18.代數(shù)表達(dá)式In―+>n”對(duì)應(yīng)的VisualBasic表達(dá)式為()。

x+y

A.Log(Abs((Exp(3.14159)+Sin(x)A3)/(x+y)))

B.Ln(Abs((Exp(3.14159)+Sin(x)A3)/(x+y)))

C.Log(Abs(Exp(3.14159)+Sin(x)A3)/(x+y))

D.Log|Abs(Exp(3.14159)+Sin(x)A3)/(x+y)|

19.下面表達(dá)式的值為真的是()o

A.Mid("VisualBasic",1,12)=Right(HProgrammingLanguageVisualBasic",⑵

B.uABCRG">',abcdcn

C.Int(134.69)>=Cint(134.69)

D.78.9/32.77<=97.5/43.97And-45.4>-4.98

24VisualBasic學(xué)習(xí)輔導(dǎo)與上機(jī)實(shí)習(xí)

20.下面說法不正確的是()o

A.VB允許將一個(gè)數(shù)字字符串賦值給一個(gè)數(shù)值型的變量

B.VB允許使用未經(jīng)說明的變量，其類型都是Variant類型

C.Cis只清除運(yùn)行時(shí)在窗體或圖形框中顯示的文本或圖形

D.事件過程既可建在窗體模塊中，也可建在標(biāo)準(zhǔn)模塊中

21.假定變量Logic的類型是Boolean,下面賦值語句()是正確的。

A.logic二“True"B.logic二.True.

C.logic=#True#D.logic=3<4

22.在過程中可以用()語句定義變量。

A.Dim、PrivateB.Dim、StaticC.Dim、PublicD.Dim>Static>Private

23.執(zhí)行語句PrintFormat(5459.478,"##,##0.00")w的正確輸出結(jié)果是()。

A.5459.48B.5,459.48C.5,459.478D.5,459.47

24.下列語句中()語句可以用來正確地聲明一個(gè)動(dòng)態(tài)數(shù)組。

A.PrivateA(n)AsIntegerB.DimA()AsInteger

C.DimA(,)AsIntegerD.DimA(1Ton)

25.假定變量Logic的類型是Boolean,下面賦值語句中()是不正確的。

A.Logic=TrueB.Logic=NotTrue

C.Logic=#True#D.Logic=3<4

26.表達(dá)式Str(L衣(“3212"))+Str(88.8)的值為()。

A.488.8B.488.8C.3300.8D.321288.8

27.函數(shù)Len(Str(Val(”ULl”)))的值為()<>

A.5B.6C.111.1D.111

28.設(shè)B="234455678”，則表達(dá)式丫叫1^仕也,4))+丫磯?^(1也,4,2))的值為()。

A.2389B.234455C.2344D.55

29.設(shè)A="abcdefgh”,下面函數(shù)中只有()的值不為“fgh”。

A.Mid(A,6,8)B.Right(A,3)C.Left(A,6,3)D.Mid(A,6,3)

30.Rnd函數(shù)不可能產(chǎn)生()值。

A.0B.1C.0.9999D.0.00001

31.表達(dá)式的值不為2的是()。

A.10/5B.12\5C.5mod3D.12\5mod2

32.能產(chǎn)生30To。之間隨機(jī)數(shù)的表達(dá)式為()o

A.Int(71*Rnd)+30B.Int(l()0*Rnd)+30

C.Int(70*Rnd)D.Int(100*Rnd)

33.在Rnd(n)函數(shù)中，要想生成不相同的隨機(jī)數(shù)，n的取值必須為()。

A.>0B.<0C.>1D.=0

34.要使用Rnd函數(shù)來模擬方形骰子投擲，應(yīng)使用()表達(dá)式。

A.Int(6*Rnd(l))B.Int(l+6*Rnd(l))

C.Inl(6*Rnd(l)-l)D.Int(7*Rnd⑴?1)

35.以下函數(shù)中，不屬于算術(shù)函數(shù)的是（）。

A.Sin()B.Str()C.Abs()D.Exp()

36.能夠返字符代碼的函數(shù)為（）。

A.Chr()B.Mid()C.InStr()D.Asc()

37.刪除字符串前導(dǎo)與尾隨空格的函數(shù)是（)°

A.Ltrim()B.Rtrim()C.Trim()D.Lcase()

38.能實(shí)現(xiàn)字符ANSI編碼方式與Unicode方式轉(zhuǎn)換的函數(shù)是（）。

A.StrB.StrconvC.TrimD.Mid

39.Double類型的數(shù)據(jù)由（）個(gè)字節(jié)組成。

A.2B.4C.16D.8

40.獲得系統(tǒng)日期的函數(shù)為（）o

A.Data$B.Time$C.Date$D.GetTimeS

41.執(zhí)行以下程序后，變量c$的值為（）0

a$="VisualBasicProgramming"

b$="C++"

c$=Ucase(left$(a$,7))&b$&Right$(a$,12)

A.VisualBasicProgrammingB.VISUALC++Programming

C.VisualC++ProgrammingD.VISUALBASICProgramming

42.下列各組變量聲明正確的是（）o

A.DimabcasintegcrjiumassingleB.DimI%,N$asinteger

C.DimA%,b%,c%,a$D.PublicDimn%

43.字符串的連接運(yùn)算符為（）<>

A.@B.$C.&D.*

44.下列選項(xiàng)中為十六進(jìn)制數(shù)的是（）o

A.123B.&123C.&O123D.&H123

45.要聲明一個(gè)長度為20個(gè)字符的定長字符串，下列只有（）是正確的。

A.DimstrasstringB.Dimstrasstring(20)

C.Dimstrasstring[20JD.Dimstrasstring*20

46.下列表達(dá)式不合法的是()。

A.,,123,'+"abcMB.123&"abc"

C.l+2\3D.[3*(4+5)-6]/7

47.下列邏輯運(yùn)算結(jié)果為“1”的是()o

A.falseornottrueB.falseandnottrue

C.trueornottrueD.trueandnottrue

48.Single類型的數(shù)據(jù)由()字節(jié)組成。

A.1B.2C.4D.8

49.日期型常量必須用()括起來。

A.”B.'C.()D.#

26VisualBasic學(xué)習(xí)輔導(dǎo)與上機(jī)實(shí)習(xí)

50.設(shè)a=2,b=3,c=4,d=5,表達(dá)式“a>bAndc<=dOr2*a>c”的值為（）。

A.-1B.1C.TrueD.False

51.用InputBox函數(shù)可以生成（）。

A.消息框B.“保存”對(duì)話框

C.簡單輸入框D.“顏色”對(duì)話框

52.執(zhí)行下列語句在用戶輸入并按“確定"后，st$變量的內(nèi)容為（）。

st$=InputBox（"請(qǐng)輸入字符串“，"字符串對(duì)話框字符串"）

A.字符串B.請(qǐng)輸入字符串

C.字符串對(duì)話框D.用戶輸入的內(nèi)容

53.已知變量x、y為整形量，且*=4,丫=12上=、”,舊。1<為標(biāo)簽，下列修改標(biāo)簽文字語句合

法的是（）o

A.x=lblok.captionB.lblok.caption=Str（x）

C.x*y=3D.y=x*s

54.下列各賦值語句中不正確的是（）o

A.x+y=5R.iNuniher=15

C.lblsj=,'Timc"D.sLcngth=x+y

55.如果想在程序中反復(fù)使用一個(gè)日期數(shù)據(jù)“2002/8/21”，為了避免在編寫程序時(shí)反復(fù)輸

入這個(gè)數(shù)據(jù)，也為了能一次修改所有用到這個(gè)數(shù)據(jù)的語句，可以采用（）。

A.將這個(gè)數(shù)據(jù)聲明為字符常量，用一個(gè)常量標(biāo)識(shí)符代表它

B.將這個(gè)數(shù)據(jù)聲明為字符變量，用一個(gè)變量標(biāo)識(shí)符代表它

C.將這個(gè)數(shù)據(jù)聲明為日期型常量，用一個(gè)常量標(biāo)識(shí)符代表它

D.將這個(gè)數(shù)據(jù)聲明為日期型變量，用一個(gè)變量標(biāo)識(shí)符代表它

56.執(zhí)行語句PrintFoi*mat（5456.678,正確的輸出是（）。

A.5456.68B.5,456.68C.5,456.678D.5,456.67

57.執(zhí)行語句PrimFormal$(54567,”00000000”)，正確的輸出是()。

A.54567B.54567000C.00054567D.05456700

58.對(duì)于InputBox函數(shù)，下列說法不正確的是（）。

A.每執(zhí)行一次InputBox函數(shù)，只能輸入一個(gè)值

B.InputBox函數(shù)輸入的是數(shù)值型

C.InputBox函數(shù)中的提示參數(shù)能省略

D.函數(shù)值必須賦于一個(gè)變量，否則用戶的輸入就會(huì)丟失

59.Boolean型數(shù)據(jù)只有兩種取值，它們是（）。

A.0和1B.Yes和NoC.“是“和“不是“D.True和False

60.在InpulBox函數(shù)的參數(shù)中，必選的參數(shù)為（）。

A.輸出信息B.提示信息

C.定義無輸入時(shí)的缺省值D.定義輸入框的位置

61.下列調(diào)用錯(cuò)誤的是（）o

A.x%=inpulbox（"請(qǐng)輸入數(shù)據(jù)"）B.Inpulbox（"請(qǐng)輸入數(shù)據(jù)”）

C.x=Msgbox（"是否繼續(xù)查詢”）D.Msgbox（"是否繼續(xù)查詢”）

62.下列輸出語句中，錯(cuò)誤的是（）。

A.?x,yB.Printx,y

C.fbrm.printx,yD.printformatx,y

63.若要強(qiáng)制變量先聲明后使用，應(yīng)該用（）語句來說明。

A.PublicconstB.OptionExplicit

C.ExplicitD.OptionBase

64.如果有圖片框Picture1與文本框Texll,下列不正確的語句是()。

A.Print25B.Picture1.Print25

C.Text1.Print25D.Debug.Print25

65.在立即窗口中以下語句的輸出結(jié)果為（）O（口為空格，下同。）

a=27

b=65

Printa;b

A.27F165R.口27口65C.口27口口65D.口27口口65口

66.在立即窗口中以下語句的輸出結(jié)果為（）0

a="Beijing"

b=HShangHai"

Printa;b

A.Beijing□ShangHaiB.□Beijing□ShangHai

C.BeijingShangHaiD.CBeijing□ShangHai□

67.語句Print5*5\5/5的輸出結(jié)果為(

A.25B.5C.1D.0

68.語句PrintSgM-4A2)+Abs(?4人2)+Int(-4人2)的輸出結(jié)果是()。

A.-16B.-32C.-1D.1

69.執(zhí)行以下語句后的輸出結(jié)果是（)°

a=Sql(3)

PrintFormat(a,"$$####.###")

A.$1.732B.$$1.732C.$1732D.$$0001.732

70.InputBox函數(shù)的返回值是（）o

A.數(shù)值B.字符串C.變體D.視輸入而定

71.一命令按鈕的Click事件過程為：

Dima,basInteger

a=InputBox（"請(qǐng)輸入第一個(gè)數(shù)：”）

b=InputBox（"請(qǐng)輸入第二個(gè)數(shù)："）

Printb+a

程序運(yùn)行時(shí)，單擊該按鈕并分別輸入456和123,則輸出的結(jié)果為（）。

A.579B.123C.456D.123456

28VisualBasic學(xué)習(xí)輔導(dǎo)與上機(jī)實(shí)習(xí)

72.以下4個(gè)運(yùn)算符中，（）運(yùn)算級(jí)別最高。

A.+B.ModC.\D.-

73.執(zhí)行下面的語句后，所產(chǎn)生的信息框標(biāo)題為（）。

a=MsgBox（"AAAA","BBBB',；,',,5）

A.AAAAB.BBBBC.出錯(cuò)，不能產(chǎn)生信息框D.空

74.MsgBox函數(shù)的參數(shù)中，只有（）是不能省略的。

A.promptB.buttonsC.titleD.helpfilc

75.MsgBox函數(shù)中的buttons參數(shù)具有控制對(duì)話框內(nèi)除（）之外的作用。

A.按鈕的種類B.圖標(biāo)的種類

C.按鈕的數(shù)量D.對(duì)話框的標(biāo)題

76.執(zhí)行以下命令所產(chǎn)生的對(duì)話框?yàn)椋ǎ﹐

MsgBox”繼續(xù)查詢嗎？",vbYesNoCancel+vbQuestion,”提問

77.MsgBox函數(shù)的返回值是（）□

A.字符型B.整形C.布爾型D.不一定

78.假設(shè)程序中有如下語句：answer=MsgBox（"string1H,/'string2',,Mstring3,1,2）,執(zhí)行該語句

后將顯示一信息框。此時(shí)如果單擊“確定”按鈕，則answer的值為（）

A.string1B.string2C.string3D.1

79.在VB中可以對(duì)字體除（）以外的屬性進(jìn)行設(shè)置。

A.粗體B.斜體C.下劃線D.空心

80.使用Prim方法可以將信息輸出到除（似外的對(duì)象上。

A.窗體B.文本框C.打印機(jī)D.立即窗口

81.數(shù)組定義時(shí)的上下界只能用（）來表示。

A.數(shù)值B.變量

C.字符D.大于等于0的整數(shù)變量或整數(shù)數(shù)值常量

82.定義了一個(gè)數(shù)組變量為A（?2to4）,則該數(shù)組包含了（）個(gè)元素。

A.7B.6C.-2D.4

83.下列關(guān)于數(shù)組說法，正確的是（）0

A.一個(gè)數(shù)組中只能包含相同類型的數(shù)據(jù)。

B.數(shù)組只能在模塊中定義，不能在過程中定義。

C.在有些情況下，數(shù)組同普通變量一樣也可以不定義，先使用。

D.定義數(shù)組時(shí)，數(shù)組的每一維元素的個(gè)數(shù)必須是常數(shù),不能是變量或表達(dá)式。

84.用下面的語句所定義的數(shù)組的元素個(gè)數(shù)為()o

DimarrA(3to5,-2to2)

A.20B.12C.15D.24

85.執(zhí)行以下代碼后，輸出結(jié)果為()o

OptionBase0

Dima

a=Array("a","b","c","d"：'e","f',"g"；,h'')

Printa(I);a(3):a(5)

A.abcB.bdfC.aceD.出錯(cuò)

86.數(shù)組x中合法的數(shù)組元素表示為()o

A.x9B.x[9]C.x(i+l)D.x{6}

87.定義了一個(gè)a（5）的數(shù)組，現(xiàn)將數(shù)組的最后一個(gè)元素賦給變量b,正確的是（）。

A.b=a(5)B.b=a[5]C.b=a(4)D.b=a⑷

XX.下列數(shù)組聲明的語句中，()是正確的0

A.DimA[3,4]AsIntegerB.DimA(3,4)AsInteger

C.DimA[3;4]AsIntegerD.DimA(3;4)AsInteger

89.有變量定義語句DimaAsInteger,變量a的類型和初值是()。

A.Integer,0B.Variant,空值C.String,""D.Long,。

90.下列語句中()語句可以用來正確地聲明一個(gè)動(dòng)態(tài)數(shù)組。

A.PrivateA(n)AsIntegerB.DimA()AsInteger

C.DimA(,)AsIntegerD.DimA(1Ton)

91.在Fom「Click事件中，執(zhí)行如下語句的正確結(jié)果是()o

PrintFormat。236.54.”+##,##0.0%”）

A.123456B.+123,654.0%C.+123,6.54%D.+123,654

92.在窗體上用復(fù)制、粘貼的方法建立了一個(gè)命令按鈕數(shù)組，數(shù)組名為arrMc設(shè)窗體Forml

的標(biāo)題為“Myforml”，雙擊控釁數(shù)組中的第三個(gè)按鈕，打開代碼編輯器，輸入以下代碼：

PrivateSubanM_Click(IndexAsInteger)

Form1.Caplion="Myform2"

EndSub

運(yùn)行時(shí)，單擊按鈕數(shù)組中的第一個(gè)按鈕,窗體的標(biāo)題為（）o

A.Form1B.arrMC.MyformlD.Myform2

93.一個(gè)具有4個(gè)按鈕的控件數(shù)組,運(yùn)行時(shí)為了判斷用戶單擊了哪一個(gè)按鈕，可以通過檢

查（）來獲得。

A.按鈕的標(biāo)題B.按鈕的名稱

C.事件過程中的Index參數(shù)值D.按鈕的序號(hào)

94.使用復(fù)制、粘貼的方法建立了命令按鈕數(shù)組Command1,以下對(duì)該數(shù)組的說法錯(cuò)誤的

是（）o

30VisualBasic學(xué)習(xí)輔導(dǎo)與上機(jī)實(shí)習(xí)

A.命令按鈕的所有Caption屬性都是Command1

B.在代碼中訪問任意一個(gè)命令按鈕只需要使用名稱Command1

C.命令按鈕的大小都是相同的

D.命令按鈕共享相同的事件過程

95.以下說法不正確的是（）o

A.使用ReDim語句可以改變數(shù)組的維數(shù)

B.使用ReDim語句可以改變數(shù)組的類型

C.使用ReDim語句可以改變數(shù)組的每一維大小

D.使用ReDim語句可以對(duì)數(shù)組中所有的元素進(jìn)行初始化

96.在控件數(shù)組的事件過程中，有一個(gè)參數(shù)Index,它表示的是（）。

A.數(shù)組中控件個(gè)數(shù)B.控件數(shù)組的名稱

C.數(shù)組中的控件編號(hào)D.控件的位置

97.以下關(guān)于建立控件數(shù)組的說法中，（）是錯(cuò)誤的。

A.可以通過復(fù)制、粘貼的方法建立

R.對(duì)已創(chuàng)建好的捽件不能再建立捽件數(shù)組

C.不同的控件不能建立控件數(shù)組

D.對(duì)同類控件可以將其名稱修改為相同來建立控件數(shù)組

98.下列程序段的執(zhí)行結(jié)果為（）

y=-20

IfNotx>()Thenx=y-3Elsey=x+3

Printx-y;y-x

A.-33B.5-8C.3-3D.25-25

99.下列語句正確的是()o

A.Ifx<3*yAndx>yTheny=xA3B.Ifx<3*yAndx>yTheny=x3

C.Ifx<3*y:x>yTheny=xA3-2D.Ifx<3*yAndx>yTheny=x**3

10().能夠?qū)崿F(xiàn)以下分段函數(shù)的程序段是()。

1+x,x>0

/'*)=I

1-x,x<n0

A.Ifx>=0Theny=1+xB.Ifx20Theny=l+x

y=l-xElsey=l-x

EndIf

C.Ifx>0Theny=l+xD.Ifx<0Then

Ifx<=()Theny=l-xy=l-x

y=l+x

EndIf

101.下列程序段中，只有（）能正確實(shí)現(xiàn)條件：如果a>b,則輸出a；否則輸出b。

A.Ifa<bThenPrintaB.Iif(a>b,Printa,Printb)

PrintbIfA>BThen

Printa

Else

Printb

EndIf

C.Ifa<bThenPrintaElsePrintbD.Ifa>bThen

Printa

Else

Printb

EndIf

102.下列程序段執(zhí)行的結(jié)果為()o

x=3

y=2

Ifx*y<lTheny=y-lElsey=-2

Printy-x>0

A.TrueB.FalseC.-1D.1

103.下列程序段的執(zhí)行結(jié)果為()。

A="abcd”

B="bcde°

E=Right(A,3)

F=Mid(B,2,3)

IfE<FThenPrintE+FElsePrintF+E

A.edebedB.eddC.ededD.bedede

104.計(jì)算分段函數(shù)：

0,x<0

=k0<x<l

2,x>1

正確的程序段是()o

A.Ifx<0Theny=0B.Ifx>1Theny=2

Ifx<lTheny=lIfx>=0Theny=l

Ifx>lTheny=2Ifx<0Theny=0

C.Ifx<0ThenD.Ifx>=lThen

y=0y=2

Elselfx>=()ThenElselfx>=()Then

y=iy=i

ElseElse

y=2y=0

EndIfEndIf

32VisualBasic學(xué)習(xí)輔導(dǎo)與上機(jī)實(shí)習(xí)

105.以下語句正確的是（）o

A.SelectCaseaB.SelectCasea

Case"A"Case?'A"

b=lb=l

Case"B"Case"B"

b=2b=2

CaseElseCaseDefault

b=3b=3

EndSelectEndSelect

C.SwitchaD.Switcha

Case"A"Case"A"

b=lb=l

Case"B"Case"B"

b=2b=2

CaseElseCaseDefault

b=3b=3

EndSwitchEndSwitch

106.下列程序執(zhí)行后，變量X的值為（）o

Dima.b,c.dAsSingle

DimxAsSingle

a=l()()

b=20

u-1000

Ifb>aThen

d=a:a=b:b=d

EndIf

Ifb>cThen

x=b

ElseIfa>cThen

x=c

Else

x=a

EndIf

A.100B.20C.1000D.0

107.執(zhí)行下列程序后，整形變量c的值為（)°

a=24

b=328

SelectCaseb\l()

Case0

c=a*10+b

Case1to9

c=a*100+b

Case10to99

c=a*1000+b

EndSelect

A.537B.2427C.24328D.240328

108.程序的基本控制結(jié)構(gòu)是（）o

A.順序結(jié)構(gòu)、多分支結(jié)構(gòu)與單分支結(jié)構(gòu)

B.For…Next結(jié)構(gòu)、Do…Loop結(jié)構(gòu)和Select,,,Case結(jié)構(gòu)

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

D.單行結(jié)構(gòu)與多行結(jié)構(gòu)

109.若整形變量a=2,b=3,則下面的程序段執(zhí)行后整形變量c的值為（）。

Ifa、5Then

Ifb<4Thenc=a-bElsec=b-a

Else

Ifb>3Thenc=a*bElsec=amodb

EndIf

A.2B.-1C.1D.6

no.執(zhí)行下列程序段后，變量a的值為（）。

Dima,b,c,dAsSingle

a-100

b=20

c=1（X）（）

Ifb>aThcn

d=a:a=b:b=d

EndIf

Ifc>aThen

d=a:a=c:c=d

EndIf

Ifc>bThen

d=b:b=c:c=d

EndIf

A.0B.1000C.100D.20

111.窗體上有3個(gè)文本框Textl、Text2>Text3和一個(gè)命令按鈕Commands如果在Text1

中輸入200,在Text2中輸入150,則執(zhí)行下列程序后，Texl3的值為（）。

PrivateSubCommandI_Click（）

34VisualBasic學(xué)習(xí)輔導(dǎo)與上機(jī)實(shí)習(xí)

Dimin,n,tAsInteger

m=Val(Textl.Text)

n=Val(Text2.Text)

Ifn*m=0Then

ExitSub

EndIf

Ifm<nThen

t=m:m=n:n=t

EndIf

Do

r=mModn

m=n

LoopWhiler<>0

Text3.Text=m

EndSub

A.200B.50C.100D.150

112.關(guān)于多行結(jié)構(gòu)的條件語句的執(zhí)行過程，正確的是（）o

A.各個(gè)條件所對(duì)應(yīng)的語句序列中，一定有一個(gè)語句序列被執(zhí)行

B.找到條件為True的第一個(gè)入口，便從此開始執(zhí)行其后所有的語句序列

C.若有多個(gè)條件都為True,則它們對(duì)應(yīng)的語句序列都被執(zhí)行

D.多行結(jié)構(gòu)中的語句序列，有可能任何一個(gè)語句序列都不被執(zhí)行。

113.下列塊結(jié)構(gòu)條件語句中，正確的是（）。

A.Ifx>10ThenB.Ifx>10Then

Print"a"Print"a"

Elseifx>5ThenElseifx>5

Print"b"Print"b"

Elseifx<5ThenElse

Print"c"Print"c"

EndIfEndIf

C.Ifx>10ThenD.Ifx>10Then

Print"a"Print"a"

Elseifx>5ThenElseifx>5ThenPrint"b"

Print"b"Else

Elsex<5ThenPrint"c"

Print"c"EndIf

EndIf

114.當(dāng)條件為5Vx<10時(shí)，x=x+l,則以下語句正確的是（）。

A.If5<x<1（）Thenx=x+1B.If5<xOrx<10Thenx=x+l

C.If5<xAndx<10Thenx=x+1D.If5<xXorx<10Thenx=x+l

115.以下語句錯(cuò)誤的是（）。

A.Ifa=lAndb=2ThenB.Ifa=lThen

c=3c=2

EndIfEndIf

C.c=Iif（af=I,2,3）D.Ifa=lThen

c=2

Elselfa=2Then

c=3

EndIf

116.關(guān)于多分支選擇結(jié)構(gòu)的Case語句，下列寫法錯(cuò)誤的是（）。

A.Case1,5,7,9R.Case8to1（）

C.Case10to2D.CaseIs<"man'*

117.下列程序的輸入值為5時(shí)，其運(yùn)行結(jié)果為（）0

DimaAsInteger

a=InputBox（"請(qǐng)輸入A的值："）

Ifa>10Then

Ifa>=5ThenPrint"A"ElsePrint"BH

Else

Ifa>-5ThenPiinl"C"ElsePiinl"D"

EndIf

A.AB.BC.C