VB期末道選擇題

期末VB150道選擇題

1.能被對象所識別的動(dòng)作與可執(zhí)行的活動(dòng)分別稱為對象的一B。

A.方法、事件

B.事件、方法

C.事件、屬性

D.過程、方法

（1分）錯(cuò)了！

2.一個(gè)應(yīng)用程序D窗體。

A.只許有一個(gè)

B.可以沒有

C.應(yīng)該有兩個(gè)

D.可包括多個(gè)

（1分）錯(cuò)了！

3.對象在響應(yīng)某個(gè)事件時(shí)，計(jì)算機(jī)要執(zhí)行一段程序，以完成相應(yīng)的操作，這樣的程序片段

叫做_B_過程。

A.方法

B.事件

C.調(diào)動(dòng)

D.編譯

（1分）錯(cuò)了！

4.以下關(guān)于事件的說法，正確的是A。

A.事件是由系統(tǒng)預(yù)先定義好的，能夠被對象識別的動(dòng)作

B.用戶可以根據(jù)需要建立新的事件

C.事件的名稱是可以改變的，由用戶預(yù)先定義

D.不同類型的對象所能識別的事件一定不相同

（1分）錯(cuò)了！

5.VisualBasic中的工程文件的擴(kuò)展名是D

A..reg

B..frm

C..bas

D..vbp

（1分）錯(cuò)了！

6.C是接收用戶鼠標(biāo)或鍵盤輸入的能力。當(dāng)對象具有時(shí)，可接受用

戶的輸入。

A.事件

B.屬性

C.焦點(diǎn)

D.對象

(1分)錯(cuò)了！

7.所謂A就是使某個(gè)對象講入活動(dòng)狀態(tài)(又稱激活)的一種操作或動(dòng)作。

A.事件

B.屬性

C.方法

D.對象

(1分)錯(cuò)了！

8.一只白色的足球踢進(jìn)球門，則白色、足球、踢、進(jìn)球門是_B。

A.屬性、對象、方法、事件

B.屬性、對象、事件、方法

C.對象、屬性、方法、事件

D.對象、屬性、事件、方法

(1分)錯(cuò)了！

9.VisualBasic是一種面向—D的程序設(shè)計(jì)語言。

A.過程

B.用戶

C.方法

D.對象

(1分)錯(cuò)了！

10.下面C語句,可以將列表框Listl中當(dāng)前選定的列表項(xiàng)的值替換成、'ABC"。

A.Listl.Additem''ABC,Z,Listl.Listindex

B.Listl.Text=''ABC,z

C.Listl.List(Listl.Listindex)=''ABC,Z

D.前三項(xiàng)均可

(1分)錯(cuò)了！

11.下面所列的控件屬性中，其值既能在程序設(shè)計(jì)時(shí)設(shè)定，又能在程序運(yùn)行時(shí)通過賦值改

變的是一D。

A.Listl.ListCount

B.Textl.Index

C.Dirl.Path

D.Labell.Visible

(1分)錯(cuò)了！

12.單選按鈕(OptionButton)用于一組互斥的選項(xiàng)中。若一個(gè)應(yīng)用程序包含多組互斥條件,

可在不同的D中安排適當(dāng)?shù)膯芜x按鈕，即可實(shí)現(xiàn)。

A.框架控件(Frame)或圖象控件(Image)

B.組合框(ComboBox)或圖象控件(Image)

C.組合框(ComboBox)或圖片框(PictureBox)

D.框架控件(Frame)或圖片框(PictureBox)

(1分)錯(cuò)了！

13.以下有關(guān)對象屬性的說法中正確的是Do

A.對象所有的屬性都羅列在屬性窗口列表

B.不同對象不可能有同名屬性

C.不同對象的同名屬性取值一定相同

D.對象的某些屬性即可在屬性窗口設(shè)置，也可以通過屬性代碼設(shè)置或改變。

（1分）錯(cuò)了！

14.用窗體的C屬性來設(shè)置窗體的標(biāo)題。

A.Style

B.Text

C.Caption

D.Name

（1分）錯(cuò)了！

15.如果要在兩個(gè)菜單命令項(xiàng)之間加一條分隔線，可在標(biāo)題文本框中鍵入

A.-

B.+

C.&

D.#

（1分）錯(cuò)了！

16.關(guān)于窗體Name屬性的敘述，正確的是_D。

A.窗體Name屬性可以具有與別的公共對象相同的名字

B.窗體Name屬性和變量定義一樣

C.窗體Name屬性最長可達(dá)255個(gè)字符

D.窗體Name屬性不能具有與別的公共對象相同的名字

（1分）錯(cuò)了！

17.窗體有?個(gè)方法可以使窗體隱藏但不從內(nèi)存中卸載，該方法是C。

A.Show

B.Release

C.Hide

D.Unload

（1分）錯(cuò)了!

18.設(shè)在菜單編輯器中定義了一個(gè)菜單項(xiàng)，名為menul。為了在運(yùn)行時(shí)讓該菜單項(xiàng)變灰,

應(yīng)使用的語句是Bo

A.menul.Enabled=True

B.menul.Enabled=False

C.menul.Visible=True

D.menul.Visible=False

（1分）錯(cuò)了！

19.當(dāng)對象失去焦點(diǎn)時(shí)，將會(huì)發(fā)生____B事件。

A.GetFocus

B.LostFocus

C.Focus

D.SetFocus

（1分）錯(cuò)了！

20.要使文本框能顯示多行文字，則需設(shè)定它的C屬性為True。

A.Caption

B.PasswordChar

C.MultiLine

D.Seleted

（1分）錯(cuò)了！

21.將文本框的ScrollBars屬性設(shè)置為非零值，卻沒有效果，原因是B。

A.文本框中沒有內(nèi)容

B.文本框的MultiLine屬性值為False

C.文本框的MultiLine屬性值為True

D.文本框的Locked屬性值為True

（1分）錯(cuò)了！

22.當(dāng)命令按鈕的_A屬性被設(shè)置為True時(shí)，按［Esc］鍵與單擊該命令按鈕的作用相

同。

A.Cancel

B.Default

C.Style

D.Picture

（1分）錯(cuò)了！

23.對于一個(gè)含有計(jì)時(shí)器控件的窗體，每經(jīng)過一段由—D屬性指定的時(shí)間間隔，就

會(huì)產(chǎn)生一個(gè)Timer事件。

A.Name

B.Enabled

C.Caption

D.Interval

（1分）錯(cuò)了！

24.只有當(dāng)一個(gè)對象的A和屬性為True時(shí)，它才能獲得焦點(diǎn)。

A.Enabled;Visible

B.Visible;Caption

C.Visible;Name

D.Enabled;Caption

（1分）錯(cuò)了！

25.下列控件中，可以接收焦點(diǎn)的是

A.文本框

B.圖像框

C.框架

D.形狀

（i分）錯(cuò)了！

26.在3種類型的組合框中，只有_B才能接收DbICIick事件。

A.下拉式組合框

B.簡單組合框

C.下拉式列表框

D.下拉式列表框和下拉式組合框

（1分）錯(cuò)了！

27.在運(yùn)行過程中要把某控件變灰，應(yīng)把D屬性設(shè)置為False。

A.Default

B.Visible

C.Activate

D.Enabled

（1分）錯(cuò)了！

28.能夠獲得一個(gè)文本框中被選取文本的內(nèi)容的屬性是D。

A.Text

B.Length

C.SelStart

D.SelText

（1分）錯(cuò)了!

29.某些對象有只讀屬性，如Name屬性，這種屬性在設(shè)計(jì)階段設(shè)置，不能在運(yùn)行期間改

變。以下一C屬性為只讀屬性。

A.ControBox

B.Enabled

C.Borderstyle

D.Windowstate

（1分）錯(cuò)了！

30.描述X、Y中只有一個(gè)小于Z的邏輯表達(dá)式是C。

A.X<ZAndY<Z

B.X<ZOrY<Z

C.X<ZXorY<Z

D.X<Y<Z

（1分）錯(cuò)了！

31.下列語句運(yùn)行時(shí)系統(tǒng)給出錯(cuò)誤提示的是_A。

A.Print-32000-769

B.Print"lE2"+8

C.Print"AB"&128

D.Print3=2=4

（1分）錯(cuò)了！

32.對于某對象的SetFocus與GotFocus描述正確的是_A、

A.SetFocus是方法，GotFocus是事件

B.SetFocus是事件，GotFocus是事件

C.SetFocus是方法，GotFocus是方法

D.SetFocus是事件，GotFocus是方法

（1分）錯(cuò)了！

33.有應(yīng)用代碼:Textl.Text="VisualBasic",其中的Textl、Text和"VisualBasic”分別代表

_C_.

A,對象、值、屬性

B.對象、方法、屬性

C.對象、屬性、值

D.屬性、對象、值

（1分）錯(cuò)了！

34.在使用菜單編輯器創(chuàng)建菜單時(shí)，可在菜單名稱中首字母前插入符號—B,那么

在運(yùn)行程序時(shí)按Alt鍵和該字母鍵就可打開該命令菜單。

A.下劃線

B.&

C.$

D.@

（1分）錯(cuò)了！

35.在程序中可以通過復(fù)選框和單選框按鈕的B屬性值來判斷它們的當(dāng)前狀

態(tài)它。

A.Caption

B.Value

C.Checked

D.Selected

（1分）錯(cuò)了!

36.應(yīng)用程序窗體的名稱屬性為Frml,窗體上有一個(gè)命令按鈕，其名稱屬性為Cmdl,窗

體和命令按鈕的Click事件過程名分別為C。

A.Form_Click()Commandl_Click

B.Frml_Click()Commandl_Clic

C.Form_Click()Cmdl_Click

D.Frml_Click()Cmdl_Click

(1分)錯(cuò)了！

37.在下列關(guān)于菜單的說法中，錯(cuò)誤的是B.

A,每個(gè)菜單項(xiàng)都是一個(gè)控件，與其他控件一樣也有自己的屬性和事件

B.除了Click事件之外，菜單項(xiàng)還能響應(yīng)其他的如DbICIick等事件

C.菜單項(xiàng)的捷徑鍵不能任意設(shè)置

D.在程序執(zhí)行時(shí)，如果菜單項(xiàng)的Enabled屬性為False,則該菜單項(xiàng)變成灰色，不能被用

戶選擇

（I分）錯(cuò)了！

38.在用菜單編輯器設(shè)計(jì)菜單時(shí)，必須輸入的項(xiàng)有D。

A.快捷鍵

B.標(biāo)題

C.索引

D.名稱

（1分）錯(cuò)了！

39.揖數(shù)據(jù)項(xiàng)"China”添加到列表框（Listl）中成為第一項(xiàng)應(yīng)使用A語句。

A.Listl.Additem"China",0

B.Listl.Additem"China",1

C.Listl.AddItem0,"China"

D.Listl.Addltem1,"China"

（1分）錯(cuò)了！

40.下列控件中，沒有Caption屬性的是B。

A.框架

B.列表框

C.復(fù)選框

D.單選按鈕

（1分）錯(cuò)了！

41.窗體Forml的名稱屬性是frm,它的Load事件過程名是_B—。

A.Form-Load

B.Form_Load

C.frm_Load

D.Me_CmdOK

（1分）錯(cuò)了！

42.以下有關(guān)對象屬性的說法中錯(cuò)誤的是D。

A.所有的對象都具有Name（名稱）屬性

B.只能在執(zhí)行時(shí)設(shè)置或改變的屬性為執(zhí)行時(shí)屬性

C.對象的某些屬性只能在設(shè)計(jì)時(shí)設(shè)定，不能使用代碼改變

D.Enabled屬性值設(shè)為False的控件對象在窗體上將不可見

（1分）錯(cuò)了！

43.使用D方法，可以將列表框Listl中的所有項(xiàng)刪除掉。

A.Listl.Txt=""

B.Addltem

C.Removeitem

D.Clear

（1分）錯(cuò)了！

44.對正實(shí)數(shù)X的第四位小數(shù)四舍五入的VB表達(dá)式是_D。

A.0.001*Int(x+0.0005)

B.0.001*(1000*x+0.5)

C.0.001*Int(1000*x+5)

D.0.001*Int(1000*(x+0.0005))

(1分)錯(cuò)了！

45.設(shè)整型變量a、b的當(dāng)前取值分別為200與20,以下賦值語句中不能正確執(zhí)行的是_

_B_____o

A.Textl=a/b*a

B.Textl=a*a/b

C.Textl=''200,z*a/b

D.Textl=a&b&a

(1分)錯(cuò)了！

46.函數(shù)Cint(-3.5),Int(-3.5),Fix(-3.5)的值分別是B。

A.-3,—4,—3

B.-41-4,-3

C.-3,Y,-4

D.-4,-3,—3

(1分)錯(cuò)了！

47.執(zhí)行語句"Printformat(5459.478,"##z##0.00")",正確的輸出結(jié)果是—B。

A.5459.48

B.5,459.48

C.5,459.478

D.5,459.47

(1分)錯(cuò)了！

48,下列沒有類型說明符的變量是A。

A.日期型

B.長整型

C.字符串型

D.貨幣型

(1分)錯(cuò)了！

49.VB表達(dá)式Sqr(a+b)人3*2中優(yōu)先進(jìn)行運(yùn)算的是B—。

A.Sqr函數(shù)

B.+

（1分）錯(cuò)了!

卜列語句中不能正常執(zhí)行的是一A

A.print+32758+10

B.print5+9=15

C.print"65"+12

D.print"65"&12

（1分）錯(cuò)了！

51.如果一個(gè)變量未指明數(shù)據(jù)類型，那么，VB默認(rèn)這個(gè)變量為_A_變量。

A.變體型

B.整型

C.公共

D.字符串型

（1分）錯(cuò)了！

52.在窗體Forml上畫兩個(gè)文本框（Name屬性分別為Fextl和Text2）和一個(gè)命令按鈕（N

ame屬性為Commandl）,程序如下。執(zhí)行后結(jié)果為C。

PrivateSubCommandl_Click（）

a=Textl.Text+Text2.Text

Printa

EndSub

PrivateSubForm_load（）

Textl.Text="123"

Text2.Text="321"

EndSub

A.444

B.321123

C.123321

D.132231

（1分）錯(cuò)了！

53.要判斷''月收入在2000元以上（含2000元）且5000元以下（不含5000元）”的職工,

應(yīng)該使用的邏輯表達(dá)式是Co

A.M>2000ANDM<=5000

B.M>2000OrM<=5000

C.M>=2000ANDM<5000

D.M>=2000OrM<5000

（1分）錯(cuò)了！

54.下列程序的執(zhí)行結(jié)果是B。

x=-6A2

PrintSgn（x）+Abs（x）+Int（x）

A.-36

B.-1

C.0

D.-72

（1分）錯(cuò)了！

55.下列語句執(zhí)行后的輸出結(jié)果是A。（一個(gè)方格表示一個(gè)空格）

Wage=26

Print"工資

PrintWage

A.工資口26

B.工資口口26

C.''工資”口26

D.''工資"□口26

（1分）錯(cuò)了！

56.語句Print4+5\6*7/8Mod9的值是B。

A.4

B.5

C.6

D.7

（1分）錯(cuò)了！

57.下列A是合法的VB變量名。

A._5a

B.我_AB

C.5name

D.Use&DASF

（1分）錯(cuò)了!

58.MsgBox函數(shù)返回值的類型為B。

A.整體數(shù)值

B.字符串

C.變體

D.數(shù)值或字符串

（1分）錯(cuò)了！

59.用于字符串連接的運(yùn)算符是Do

A.&

B.+

C.And

D.A、B都可以

（1分）錯(cuò)了！

60.表達(dá)式（-l）*Scin（-100+Int（Rnd*100））的侑是C.

A.隨機(jī)數(shù)

B.0

C.1

D.-1

（1分）錯(cuò)了！

61.如果a是一個(gè)正實(shí)數(shù)，對x的第3位小數(shù)四舍五入的表達(dá)式是C

A.0.01*Int(a+0.005)

B.0.01*Int(a+0.05)

C.0.01*Int(100*(a+0.005)

D.0.01*Int(100*(a+0.05))

(1分)錯(cuò)了！

62.不能正確表示條件''兩個(gè)整型變量X和Y之一為0,但不能同時(shí)為0"的布爾表達(dá)式是_

C

A.X*Y=0And(X<>0OrY<>0)

B.(X=0OrY=0)And(X<>0OrY<>0)

C.Not((X=0OrY=0)And(X<>0OrY<>0))

D.X*Y=0AndX+Y<>0

(1分)錯(cuò)了！

63.函數(shù)Int(Rnd*ll)+10的徜的范圍是A。

A.[10,20]

B.[0,20]

C.[10,10]

D.[10,11]

(1分)錯(cuò)了！

64.滿足''當(dāng)a的值是偶數(shù)時(shí)為0,是奇數(shù)時(shí)為1”的要求的表達(dá)式是。

A.aMod2=0

B.NotaMod2<>0

C.Not(aMod2)

D.(a\2*2-a)=0

(1分)錯(cuò)了！

65.VisualBasic的一行可以寫多條語句，語句之間用D隔開。

A.逗號

B.分號

C.頓號

D.冒號

（1分）錯(cuò)了！

66.如果將布爾常量False賦值給一個(gè)整形變量，則整型變量的值為A。

A.0

B.-1

C.True

D.False

（1分）錯(cuò)了！

67.設(shè)a為Integer■型變量，s為Single型變量，把3.75賦值給s后，再執(zhí)行下列某一語

句，則在文本框中顯示的結(jié)果與執(zhí)行語句a=s:Textl=a的結(jié)果相同的有—B個(gè)。

①a=InXs）:Textl=a

②a=Fix⑸:Textl=a

@a=CInt（s）:Textl=a

④a=Formats,"#####'）:Textl=a

A.1

B.2

C.3

D.4

（1分）錯(cuò)了！

68.i被j整除的邏輯表達(dá)式是Do

A.i/j=0

B.i\j=0

C.i<>0

D.imodj=0

（1分）錯(cuò)了！

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

A.x+y<10,x-y>0

B.（x+y<10）:（x-y）>0

C.x+y<10Andx-y>0

D.x+y<10x-y>0

（1分）錯(cuò)了！

70.賦值語句：a=123+MID（"123456",3,2）執(zhí)行后，a變量中的值是D

A."12334"

B.123

C.12334

D.157

（1分）錯(cuò)了！

71.表達(dá)式Len（"123程序設(shè)計(jì)ABC"）的值是A。

A.10

B.14

C.20

D.17

（1分）錯(cuò)了！

72,己知A$"12345678"；,則表達(dá)式Val（Left（A,4）+Mid（A,4,2））的值為B

A.123456

B.123445

C.8

D.6

（1分）錯(cuò)了！

73.\、/、Mod、*四個(gè)算術(shù)運(yùn)算符中，優(yōu)先級別最低的是C。

A.\

B./

C.Mod

D.*

(1分)錯(cuò)了！

74.表達(dá)式16/4-2八5*8/4MOD5/2的值為B。

A.14

B.4

C.20

D.2

(1分)錯(cuò)了！

乃.語句Print"5*20"輸出的結(jié)果是C。

A."5*20"

B.出現(xiàn)錯(cuò)誤信息

C.5*20

D.100

(1分)錯(cuò)了!

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

A.x+y<10Orx-y>0

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

C.x+y<10Andx-y>0

D.x+y<10.And.x-y>0

(1分)錯(cuò)了!

77.在文本框Textl中輸入數(shù)字12,Text2中輸入數(shù)字34,執(zhí)行以下語句，只有B_

?？墒刮谋究騎ext3中顯示46。

A.Text3.Text=Textl.Text&Text2.Text

B.Text3.Text=Val(Textl.Text)+Val(Text2.Text)

C.Text3.Text=Textl.Text+Text2.Text

D.Text3.Text=Val(Textl.Text)&Val(Text2.Text)

(1分)錯(cuò)了！

78.在程序中將變量Inta、BkSt、D分別定義為Integer類型、Boolean類型、String類型

和Date類型，下列賦值語句中，正確的是B。

A.Inta="333"+"22"

B.D=#10/05/01#

C.St=5+"abc"

D.BI=#True#

(1分)錯(cuò)了！

79.以下C程序段可以實(shí)施X,Y變量值的變換.

A.Y=X:X=Y

B.Z=X:Y=Z:X=Y

C.Z=X:X=Y:Y=Z

D.Z=X：W=Y:Y=Z:X=Y

(1分)錯(cuò)了！

80.語句Print、'Int(-13.2)=";Int(-13.2)的輸出結(jié)果為D.

A.Int(-13.2)=-13.2

B.Int(-13.2)=13.2

C.Int(-13.2)=-13

D.Int(-13.2)=-14

(1分)錯(cuò)了！

81.語句x=x+l的正確含義是—C.

A.變量X的值與X+1的值相等

B.將變量X的值存在X+1中去

C.將變量X的值加1后賦給變量X

D.變量X的值為1

(1分)錯(cuò)了！

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

A.PrivateA(n)AsInteger

B.DimA()AsInteger

C.DimA(,)AsInteger

D.DimA(1ton)

(1分)錯(cuò)了！

83.在窗體上畫一個(gè)命令按鈕，名稱為Commandl,然后編寫如下程序:

PrivateSubCommandl_Click(B)

DimaAsInteger,bAsInteger

DoWhileb<100

b=b+5

a=a+b

Ifb>20ThenExitDo

Loop

Printa,b

EndSub

程序運(yùn)行后，如果單擊命令按鈕，則在窗體上顯示的內(nèi)容是。

A.5020

B.7525

C.5025

D.7520

(1分)錯(cuò)了！

84.有如下程序：

PrivateSubCommandl_Click(D)

score=65

selectCasescore

CaseIs<60

a$="F"

Case60To69

a$="Dn

Case70To79

a$="C"

Case80To89

a$=”B”

Caseelse

a$=nA"

EndSelect

MsgBoxa$

EndSub

程序運(yùn)行后，消息對話框中顯示的內(nèi)容為o

A.A

B.B

C.C

D.D

(1分)錯(cuò)了！

85,下列程序：

PrivateSubForm_Click()

Forj=lTo15

a=a+jMod3

Nextj

Printa

EndSub

運(yùn)行后輸出的結(jié)果是Bo

A.1

B.15

C.90

D.120

(1分)錯(cuò)了！

86.在窗體上畫一個(gè)名稱為Commandl的命令按鈕，然后編寫如下程序：

PrivateSubCommandl_Click()

StaticAAsInteger

StaticBAsInteger

Cis

B=2

B=B+3

A=3+A

printA,B

EndSub

程序運(yùn)行時(shí)，3次單擊命令按鈕Commandl后，窗體上顯示的結(jié)果為A

A.35

B.66

C.95

D.33

(1分)錯(cuò)了！

87.在窗體中添加一個(gè)命令按鈕，并編寫如下程序代碼：

PrivateSubCommandl_Click()

DimyAsInteger

y=0

DoWhiley<7

y=y+2

Loop

MsgBoxy

EndSub

程序運(yùn)行后，消息對話框中顯示C。

A.0

B.7

C.8

D.2

(1分)錯(cuò)了！

88.在單擊窗體中的按鈕Commandl第3次后，如下程序打印結(jié)果是_C—。

PrivateSubCommandl_Click()

StaticaASInteger

a=a+1

SelectCasea

Case1:Print"歡迎大家"

Case2:Print"努力就能成功

Case3:Print"希望你能通過考試”

Case4:Print"再見"

EndSelect

EndSub

A.''歡迎大家”

B.'、努力就能成功”

C."希望你能通過考試"

D.''再見"

(1分)錯(cuò)了！

89.下面是計(jì)算1~100奇數(shù)的和的程序，請補(bǔ)充完整，填空應(yīng)為C。

PrivateSubCommandl_Click()

DimsAsLong,xAsInteger

s=0

Forx=Step-2

s=s+x

Nextx

Prints

EndSub

A.100To1

B.1To100

C.99To1

D.1To99

（1分）錯(cuò)了！

90.下列程序的輸出結(jié)果是A,

DimyAsInteger

y=10

DoWhiley<>0

y=y-i

Loop

Print"y=";y

A.y=0

B.y=l

C.y=隨機(jī)值

D.y=-l

（1分）錯(cuò)了！

91.以下程序的輸出結(jié)果是B

DimiAsInteger,aAsInteger

DoWhilei<20

DoWhileTrue

IfiMod10=0Then

ExitDo

Else

i=i-l

EndIf

Loop

i=i+ll

a=a+i

Loop

Printa

A.21

B.32

C.33

D.11

（4分）錯(cuò)了！

92.

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

x=Int（（69-60）*Rnd+60）

SelectCasex

CaseIs>=90

Print"優(yōu)秀"

Case80To89

Print"良好"

Case60To79

Print"合格"

CaseElse

Print"不合格"

EndSelect

A.優(yōu)秀

B.良好

C.合格

D.不合格

（4分）錯(cuò)了！

93.下面程序的內(nèi)層循環(huán)次數(shù)是_B.

Fori=lTO3

Forj=lTOi

Fork=jTO3

Nextk

Nextj

Nexti

A.3

B.14

C.9

D.21

（4分）錯(cuò)了！

94,結(jié)構(gòu)化程序設(shè)計(jì)方法的核心是規(guī)定了三種基本結(jié)構(gòu)：B結(jié)構(gòu)、分支結(jié)構(gòu)、循環(huán)

結(jié)構(gòu)。

A.條件

B.順序

C.當(dāng)型

D.邏輯

（4分）錯(cuò)了！

95.下列循環(huán)能正常結(jié)束循環(huán)的是C。

A.i=5

Do

i=i+l

LoopUntili<0

B.i=l

Do

i=i+2

LoopUntili=10

C.i=10

Do

i=i+l

LoopUntili>0

D.i=6

Do

i=i-2

LoopUntili=l

(4分)錯(cuò)了！

96.語句Ifx=lTheny=l,下列說法正確的是C。

A.x=l和y=l均為賦值語句

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

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

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

(4分)錯(cuò)了！

97.在過程中有語句ForI=NlToN2StepN3,在該循環(huán)體內(nèi)有下列四條語句，其中

C會(huì)影響循環(huán)執(zhí)行的次數(shù)。①N1=N1+I②N2=N2+N3③I=I+N3④N3=2*N3

A.①②

B.①②③

C.③

D.①②??

(1分)錯(cuò)了！

98.執(zhí)行下面的程序，單擊窗體后在窗體上顯示的結(jié)果是A

PrivateSubForm_Click()

DimStrlAsString,Str2AsString

DimStr3AsString,IAsInteger

Strl="e"

ForI=1To2

Str2=UCase(Strl)

Strl=Str2&Strl

Str3=Str3&Strl

Strl=Chr(Asc(Strl)+I)

NextI

PrintStr3

EndSub

A.EeFF

B.eEfF

C.EEFF

D.eeFF

(1分)錯(cuò)了！

99.用Msgbox"你好"，vbokonly,"Hello"顯示的消息對話框窗口的標(biāo)題是_D。

A.你好

B.vbokonly

C.Ok

D.Hello

(1分)錯(cuò)了！

100.執(zhí)行以下語句后，a的值為C”

DimaAsInteger

a=l

DoUntila=100

a=a+2

Loop

A.99

B.100

C.溢出

D.101

(1分)錯(cuò)了！

101.表達(dá)式(7\3+l)*(18\5-1)的值是C.

A.8.67

B.7.8

C.6

D.6.67

(1分)錯(cuò)了！

102.表達(dá)式X+1>X是D.

A.算術(shù)表達(dá)式

B.非法表達(dá)式

C.字符串表達(dá)式

D.關(guān)系表達(dá)式

(1分)錯(cuò)了！

103.下列有關(guān)數(shù)組的說法中，不正確的是一B。

A.在窗體模塊中不可以定義全局?jǐn)?shù)據(jù)組

B.可以使用Erase語句釋放所有數(shù)組所占據(jù)的存儲儲空間

C.語句DimX(3.6+2)AsInteger定義了一個(gè)維上界是6的一維的整型數(shù)組

D.形參數(shù)組的類型可以是定長符串類型

(1分)錯(cuò)了！

104.在窗體模塊的通用聲明處用下面的語句聲明變量、數(shù)組，正確語句有B個(gè)。

①PublicA(5)AsInteger

②PublicNAsInteger

③PublicStAsString

④Privateb()AsInteger

A.2

B.3

C.4

D.1

(1分)錯(cuò)了！

105.對窗體編寫如下代碼：

OptionBase1

PrivateSubCommandl_Click()

a=Array(237z126,87,48,498)

ml=a(l)

m2=l

Fori=2To5

Ifa(i)>mlThen

ml=a(i)

m2=i

EndIf

Nexti

Printml;m2

EndSub

程序運(yùn)行后，按回車鍵，輸出結(jié)果為C_o

A.484

B.2371

C.4985

D.4984

(1分)錯(cuò)了！

106.在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過程：

OptionBase1

PrivateSubCommandl_Click()

DimaAsVariant

a=Array(lz2,3z4)

j=1

Fori=4To1Step-1

s=s+a(i)*j

j=j*10

Nexti

Prints

EndSub

運(yùn)行上面的程序，單擊命令按鈕，其輸出結(jié)果是D。

A.4321

B.12

C.34

D.1234

(1分)錯(cuò)了！

107.程序代碼如下，當(dāng)單擊窗體上Commandl控件時(shí)，窗體上顯示的結(jié)果是_C

OptionBase1

PrivateSubCommandl_Click()

DimiAsInteger

Dimx(3,3)AsInteger

Fori=1To3

Forj=1To3

x(i,j)=(i-1)*3+j

Nextj

Nexti

Fori=1To3

Printx(i,4-i)

Nexti

EndSub

A.159

B.147

C.357

D.369

(1分)錯(cuò)了！

108.運(yùn)行以下程序段，輸出結(jié)果是(D)

Dima(lTo10)

Dimp(lTo4)

k=5

Fori=1To4

p(i)=i*2

Nexti

Fori=1To4

k=k+p(i)*2

Nexti

Printk

A.48

B.32

C.30

D.45

(1分)錯(cuò)了！

109.當(dāng)發(fā)生Commandl_Click事件后，程序輸出結(jié)果是_D

OptionBase1

PrivateSubCommandl_Click()

Dima(4,4)AsInteger,!AsInteger,sAsInteger

s=0

Fori=lTo4

Forj=lTo4

a(i,j)=(i-l)*4+j*2

Nextj

Nexti

Fori=1To4

s=s+a(i,i)

Nexti

Prints

EndSub

A.28

B.32

C.30

D.44

(1分)錯(cuò)了！

110.下列程序段的輸出結(jié)果是B

DimiAsInteger

Dima(8)AsInteger

y=18:i=0

Do

a(i)=yMod2

i=i+1

y=y\2

LoopUntily<1

Forj=i-1To0Step-1

Printa(j);

Nextj

A.1000

B.10010

C.00110

D.10100

(1分)錯(cuò)了！

111.下列程序的輸出結(jié)果是B。

DimiAsInteger,kAsInteger

Dima(10)AsInteger,p(3)AsInteger

k=5

Fori=0To9

a(i)=i

Nexti

Fori=0To2

P(i)=a(i*(i+1))

Nexti

Fori=0To2

k=k+p(i)*2

Nexti

Printk

A.17

B.21

C.22

D.23

(1分)錯(cuò)了！

112.下列程序段的執(zhí)行結(jié)果是一D。

DimA(3,3)

ForM=1TO3

ForN=1TO3

IfN=MOrN=3-M+lThen

A(M,N)=1

Else

A(M,N)=0

EndIf

NextN

NextM

ForM=1TO3

ForN=1TO3

PrintA(M,N);

NextN

Print

NextM

A.100

010

001

B.111

111

111

C.000

000

000

D.101

010

101

(1分)錯(cuò)了！

113.如下數(shù)組聲明語句，則數(shù)組a包含元素的個(gè)數(shù)有A

Dima(3,-2to2,5)

A.120

B.75

C.60

D.13

(1分)錯(cuò)了！

114.如下二維數(shù)組聲明語句，B正確。

A.Dima[3,4]AsInteger

B.Dima(3,4)AsInteger

C.Dima(n,n)AsInteger

D.Dima(34)AsInteger

(1分)錯(cuò)了！

115.OptionBase1(A)

PrivateSubCommandl_Click()

Dima%(3,3)

Fori=1To3

Forj=1To3

Ifj>1Andi>1Then

a(i,j)=a(a(i-1,j-1),a(i,j-1))+1

日se

a(i,j)=i*j

EndIf

Printa(i,j);"

Nextj

Print

Nexti

EndSub

A.123

231

323

B.123

123

123

C.123

246

369

D.111

222

333

(1分)錯(cuò)了！

116.要分配存放如下方陣的數(shù)據(jù)，C數(shù)組聲明語句能實(shí)現(xiàn)(不能浪費(fèi)空間)。

每行三個(gè)元素，第一行為：第二行為：第三行為：

A.Dima(9)AsSingle

B.Dima(3,3)AsSingle

C.Dima(-lToI,-5To-3)AsSingle

D.Dima(-3To-1,5To7)AsInteger

(1分)錯(cuò)了！

117.在窗體的通用聲明處有語句DimA()AsSingle,以下在某事件過程中重定義此數(shù)組的

一組正確語句是：Do

A.ReDimA(3,3)

ReDimA(4,4)AsInteger

B.ReDimA(3,3)

ReDimPreserveA(4,4)

C.ReDimA(3)

ReDimA(3,3)AsInteger

D.ReDimA(3,3)

ReDimPreserveA(3,4)

(1分)錯(cuò)了！

118.下列程序段的輸出結(jié)果是C

DimA(5)

For1=0TO4

A(I)=I+1

M=I+1

IfM=3Then

A(M-1)=A(I-1)

日se

A(M)=A(I)

EndIf

If1=3ThenA(I+l)=A(M-4)

PrintA(I);

NextI

A.11122

B.21144

C.12245

D.22141

(1分)錯(cuò)了！

119.運(yùn)行程序產(chǎn)生死循環(huán)時(shí)，按一C鍵可以終止程序的運(yùn)行。

A.Ctrl+C

B.Ctrl+Z

C.Ctrl+Break

D.單擊停止運(yùn)行按鈕

(1分)錯(cuò)了！

120.單擊按鈕,輸出為Co

PrivateSubfun()

StaticaAsInteger

a=a+2

Printa;

EndSub

PrivateSubCommandl_Click()

DimmAsInteger

Form=lTo3

Callfun

Nextm

EndSub

A.222

B.000

C.248

D.246

(1分)錯(cuò)了！

121.在單擊命令按鈕時(shí)的輸出結(jié)果是A.

PrivateSubCommandl_Click()

Dimx%,y%

x=l:y=l

Forn=lto3

z=First(xzy)

Printn,z

Nextn

EndSub

PrivateFunctionFirst%(x%,y%)

Dimn%

DoWhilen<=4

x=x+y

n=n+l

Loop

First=x

EndFunction

A.16211316

B.26131116

C.123456

D.213133

(1分)錯(cuò)了！

122.設(shè)有下列程序代碼，在單擊命令按鈕時(shí)的輸出結(jié)果是—B

SubSS(ByVaix,ByRefy,z)

x=x+l

y=y+i

Z=Z+1

EndSub

PrivateSubCommandl_Click()

A=l:B=2:C=3

CallSS(AZB,C)

PrintA,BZC

EndSub

A.123

B.134

C.224

D.133

(1分)錯(cuò)了！

123.程序運(yùn)行后，如果單擊命令按鈕，則在文本框中顯示的內(nèi)容是B

PrivateSubCommandl_Click()

dimx,y,zAsInteger

x=5:y=7:z=0

textl='''z

callpl(x,y,z)

textl=str(z)

EndSub

PrivateSubpl(ByVala%,ByVaib%,c%)

c=a+b

EndSub

A.0

B.12

C.Str(z)

D.沒有顯示

(1分)錯(cuò)了！

124.當(dāng)在Cmdl按鈕上單擊時(shí)，程序的輸出是(A).

PublicFunctionFunc(a%,b%)AsInteger

StaticmAsInteger:DimiAsInteger

m=0:i=2:i=i+m+l:m=i+a+b:Func=m

EndFunction

PrivateSubCmdl_Click()

Dimk%zm%,n%

k=4:m=l:n=Func(kzm)

Printn,Func(kzm)

EndSub

A.88

B.820

C.816

D.817

(1分)錯(cuò)了！

125.在CmdLClick事件中有效的地址傳遞的調(diào)用語句是(B)

PublicSubFl(n%)

n=3*n+4

EndSub

PrivateSubCmdl_Click()

Dimn%,m%

n=3:m=4

...'調(diào)用Fl語句

EndSub

A.Fln+m

B.Flm

C.Fl5

D.Flm+5

(I分)錯(cuò)了！

126.調(diào)用由語句PrivateSubConvert(YAsInteger)定義的Sub過程時(shí)，以下不是按值傳

遞的語句是。

A.CallConvert((X))

B.CallConvert(X*l)

C.Convert(X)

D.ConvertX

(1分)錯(cuò)了！

127.若在應(yīng)用程序中用PrivateSubSubl(Xasinteger,YasSingle)定義了子程序Subl,

調(diào)用程序中的變量i、j均為Integer型，則正確調(diào)用子程序Subl的Call語句是(B)。

①CallSubl(i,j)②CallSubl(3.1415,i)

③CallSubl(3.14,234)④CallSubl(''245",''2315)

A.@@

B.③④

C.??③

D.無

(I分)錯(cuò)了！

128.在調(diào)用Sub或Function過程時(shí)，采用_B傳送相應(yīng)過程的變量名、數(shù)組名、常數(shù)

或表達(dá)式。

A.形式參數(shù)

B.實(shí)際參數(shù)

C.對象參數(shù)

D.數(shù)組參數(shù)

(1分)錯(cuò)了！

129.在程序中的不同過程之間，不能通過D進(jìn)行數(shù)據(jù)傳遞。

①全局變量②窗體或模塊級變量③形參與實(shí)參結(jié)合④靜態(tài)變量

A.(D@④

B.①②③

C.@@

D.④

(1分)錯(cuò)了！

130.Sub過程與Function過程的本質(zhì)區(qū)別是D。

A.Sub過程可以使用Call語句或直接使用過程名調(diào)用，而Function過程不可以

B.Function過程可以有形參，Sub過程不能有形參

C.兩種過程參數(shù)傳遞方式不同

D.Sub過程沒有返回值，F(xiàn)unction過程能返回值

(1分)錯(cuò)了！

131.模塊的通用聲明處有如下語句，會(huì)產(chǎn)生錯(cuò)誤的語句是(D)。

①ConstaasInteger=25

②PublicStAsString*8

③ReDimB(3)AsInteger

④DimConstXAsInteger=10

A.①②

B.①③

C.①②③

D.②③④

(1分)錯(cuò)了！

132.在過程中定義的變量，如果希望在離開該過程后，還能保持過程中局部變量的值，則

應(yīng)該使用一D關(guān)鍵字在過程中定義局部變量。

A.Dim

B.Private

C.Public

D.Static

(1分)錯(cuò)了！

133.以下有關(guān)變量作用域的說明中，錯(cuò)誤的是(A)。

A.只有在標(biāo)準(zhǔn)模塊中用Public語句說明的變量才是全局變量

B.在過程中不能使用Public語句說明全局變量

C.在標(biāo)準(zhǔn)模塊的通用聲明處可用語句說明模塊級變量

D.在窗體的通用聲明處可用Private語句說明窗體級變量

(I分)錯(cuò)了！

134.要想在過程調(diào)用后返回兩個(gè)結(jié)果，下面的過程定義語句合法的是C—。

A.SubProd(ByVain,ByVaim)

B.SubProd(n,ByVaim)

C.SubProd(n,m)

D.SubProcl(ByVain,m)

(1分)錯(cuò)了！

135.在語句PublicSubSort(iAsInteger)中i是一個(gè)按A傳遞的參數(shù)。

A.地址

B.值

C.變量

D.常量

(1分)錯(cuò)了!

136_.在窗體上添加一個(gè)命令按鈕，名為Commands事件過程如下。執(zhí)行結(jié)果是_A_

O

Subpb(b()AsInteger)

Fori=lTo4

B(i)=2*i

Nexti

EndSub

PrivateSubCommandl_Click()

Dima(lTo4)AsInteger

a(l)=5:a(2)=6:a(3)=7:a(4)=8

pba

Fori=lTo4

Printa(i);

Nexti

EndSub

A.555

51010

B.555

5510

C.5510

51010

D.555

101010

(1分)錯(cuò)了！

137.閱讀下列程序，其輸出的結(jié)果是一C。

PrivateSubCommandl_Click()

Dima(lTo3)AsInteger

Fori=lTo3

a(i)=i

Nexti

Callsubl(a)

Fori=2To3

Printa(i)

Nexti

EndSub

PublicSubsubl(a()AsInteger)

Fori=lTo3

a(i)=i*i

Nexti

EndSub

A.12

B.23

C.49

D.14

(1分)錯(cuò)了！

138.程序中未定義的變量均為integer,單擊Commands程序的輸出是(A)

PrivateSubCommandl_Click()

k=4：m=l

n=Func(k,m)

Printn,Func(k,m)

EndSub

PublicFunctionFunc(aAsInteger,bAsInteger)AsInteger

StaticmAsInteger

m=0：i=2

i=i+m+l

m=i+a+b

Func=m

EndFunction

A.88

B.820

C.816

D.817

(1分)錯(cuò)了！

139,給出下列程序代碼，在單擊命令按鈕時(shí)的輸出結(jié)果是A。

PrivateSubCommandl_Click()

DimxAsInteger,yAsInteger

x=l:y=l

Forn=lTO3

z=FirstFunc(x,y)

Printn,z,

Nextn

EndSub

PrivateFunctionFirstFunc(xAsInteger,yAsInteger)AsInteger

DimnAsInteger

DoWhilen<=4

x=x+y

n=n+l

Loop

FirstFunc=x

EndFunction

A.16211316

B.26131116

C.123456

D.213133

(1分)錯(cuò)了！

140.給出下列程序代碼在第一次單擊命令按鈕時(shí)文本框Textl和Text2中的內(nèi)容，第二次

單擊命令按鈕時(shí)文本框Textl和Text2的內(nèi)容。(D)

DimyAsInteger

PrivateSubCommandl_Click()

DimxAsInteger

x=2

Textl.Text=SecondFunc(FirstFunc(x)zy)

Text2.Text=Fi