一、選擇題

1.以下敘述中錯(cuò)誤的是一B—。

A..vbp文獻(xiàn)是工程文獻(xiàn)，一個(gè)工程可以包含.bas文獻(xiàn)

B..frm文獻(xiàn)是窗體文獻(xiàn)，一個(gè)窗體可以包含.bas文獻(xiàn)

C..vbp文獻(xiàn)是工程文獻(xiàn)，一個(gè)工程可以由多個(gè).frm文獻(xiàn)組成

D..vbg文獻(xiàn)是工程組文獻(xiàn)，一個(gè)工程組可以由多個(gè)工程組成

2.以下合法的VB變量名是__C____。

A.CaseB.t-nameC.namelOD.x*y

3.以下描述中錯(cuò)誤的是—B—。

A.窗體的標(biāo)題通過(guò)其Caption屬性設(shè)立

B.窗體的名稱(chēng)（Name屬性）可以在運(yùn)營(yíng)期間修改

C.窗體的背景圖形通過(guò)其Picture屬性設(shè)立

D.窗體最小化時(shí)的圖標(biāo)通過(guò)其Icon屬性設(shè)立

4.在VisualBasic集成環(huán)境中，可以列出工程中所有模塊名稱(chēng)的窗口是—A—。

A.工程資源管理器窗口B.窗體設(shè)計(jì)窗口

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

5.在VisualBasic集成環(huán)境中，要添加一個(gè)窗體，可以單擊工具欄上的一個(gè)按鈕，這個(gè)按鈕是___A

A.「aB.酎C./D.囪

6.在VisualBasic集成環(huán)境中，要結(jié)束一個(gè)正在運(yùn)營(yíng)的工程，可單擊工具欄上的一個(gè)按鈕，這個(gè)按鈕是

D—。

A.門(mén)B.?c.酎D.■

7.以下變量名中合法的是_C____o

A.x2~lB.printC.str_nD.2x

8.執(zhí)行語(yǔ)句DimX,YAsInleger后，D。

A.X和丫均被定義為整型變量

B.X和丫均被定義為變體類(lèi)型變量

C.X被定義為整型變量，丫被定義為變體類(lèi)型變量

D.X被定義為變體類(lèi)型變量，丫被定義為整型變量

9.在設(shè)計(jì)窗體時(shí)雙擊窗體的任何地方，可以打開(kāi)的窗口是—A。

A.代碼窗口B.屬性窗口

C.工程資源管理器窗口D.工具箱窗口

10.以下敘述中錯(cuò)誤的是一D。

A.標(biāo)準(zhǔn)模塊文獻(xiàn)的擴(kuò)展名是.bas

B.標(biāo)準(zhǔn)模塊文獻(xiàn)是純代碼文獻(xiàn)

C.在標(biāo)準(zhǔn)模塊中聲明的全局變量可以在整個(gè)工程中使用

D.在標(biāo)準(zhǔn)模塊中不能定義過(guò)程

H.以下敘述中錯(cuò)誤的是C_O

A.在VisualBasic的窗體中，一?個(gè)命令按鈕是一?個(gè)對(duì)象

B.事件是可以被對(duì)象辨認(rèn)的狀態(tài)變化或動(dòng)作

C.事件都是由用戶(hù)的鍵盤(pán)操作或鼠標(biāo)操作觸發(fā)的

D.不同的對(duì)象可以具有相同的方法

12.設(shè)x是小于10的非負(fù)數(shù)。對(duì)此陳述，以下對(duì)的的VB表達(dá)式是_C.

A.OWxVlOB.0<=x<10

C.x>=0Andx<10D.x>=0Orx<-10

13.在設(shè)計(jì)階段，當(dāng)按Ctrl+R鍵時(shí)，所打開(kāi)的窗口是_B。

A.代碼窗口B.工程資源管理器窗口

C.工具箱窗口D.屬性窗口

14.在設(shè)計(jì)階段，當(dāng)按下F4鍵時(shí)，所打開(kāi)的窗口是一D—。

A.代碼窗口B.工具箱窗口

C.工程資源管理器窗口D.屬性窗口

15.在VisualBasic集成環(huán)境的設(shè)計(jì)模式下，用鼠標(biāo)雙擊窗體上的某個(gè)控件打開(kāi)的窗口是

A.工程資源管理器窗口B.屬性窗口

C.工具箱窗口D.代碼窗口

16.設(shè)x是整型變量,與函數(shù)Ilf(x>0-x,x)有相同結(jié)果的代數(shù)式是一B—。

A.|x|B.-|x|C.xD.-x

5x+3

2y—6

17.把數(shù)學(xué)表達(dá)式表達(dá)為對(duì)的的VB表達(dá)式應(yīng)當(dāng)是—Do

A.(5x+3)/(2y-6)B.x*5+3/2*y-6

C.(5*x+3)(2*y-6)D.(x*5+3)/(y*2-6)

18.以下關(guān)系表達(dá)式中，其值為T(mén)rue的是B_。Ascii碼A65a97

A.'XYZ”>"XYz"B."VisualBasic,,o,,visualbasicM

C."the"="there"D.'Integer"<"Int"

19.若變量a未事先定義而直接使用(例如：a=0),則變量a的類(lèi)型是_D—。

A.IntegerB.StringC.BooleanD.Variant

20.在VisualBasic中，表達(dá)式3*2\5Mod3的值是__A。

A.1B.0C.3D.出現(xiàn)錯(cuò)誤提醒

21.設(shè)x=3.3,y=4.5,表達(dá)式x-Int(x)+Fix(y)的值是C。Int(n):?。?n的最大整數(shù)；Fix(n)：取n的整

數(shù)部分

A.3.5B.4.8C.4.3D.4.7

22.以下關(guān)于窗體的敘述中，錯(cuò)誤的是—D—。

A.窗體的Name屬性用于標(biāo)記一個(gè)窗體

B.運(yùn)營(yíng)程序時(shí)改變窗體大小，可以觸發(fā)窗體的Resize事件

C.窗體的Enabled屬性為False時(shí)，不能響應(yīng)單擊窗體的事件

D.程序運(yùn)營(yíng)期間，可以改變Name屬性值

23.設(shè)有如下變量聲明語(yǔ)句：

Dima,bAsBoolean

則下面敘述中對(duì)的的是—B。

A.a和b都是布爾型變量

B.a是變體型變量，b是布爾型變量

C.a是整型變量，b是布爾型變量

D.a和b都是變體型變量

24.為了使標(biāo)簽具“透明”的顯示效果，需要設(shè)立的屬性是一C

A.CaptionB.Alignment

C.BackStyleD.AutoSize

25.下列敘述中錯(cuò)誤的是D—°

A.列表框與組合框都有List屬性

B.列表框有Selected屬性，而組合框沒(méi)有

C.列表框和組合框都有Style屬性

D.組合框有Text屬性，而列表框沒(méi)有

26.設(shè)窗體文獻(xiàn)中有下面的事件過(guò)程：

PrivateSubCommandl_Click()

Dims

a%=100

Printa

EndSub

其中變量a和s的數(shù)據(jù)類(lèi)型分別是C_o

A.整型，整型B.變體型，變體型

C.整型,變體型D.變體型，整型

27.下面有關(guān)標(biāo)準(zhǔn)模塊的敘述中，錯(cuò)誤的是一A—。

A.標(biāo)準(zhǔn)模塊不完全由代碼組成，還可以有窗體

B.標(biāo)準(zhǔn)模塊中的Private過(guò)程不能被工程中的其他模塊調(diào)用

C.標(biāo)準(zhǔn)模塊的文獻(xiàn)擴(kuò)展名為.bas

D.標(biāo)準(zhǔn)模塊中的全局變量可以被工程中的任何模塊引用

28.執(zhí)行以下程序段

a$=,'VisualBasicProgramming'*

b$="C++”

c$=UCase(Left$(a$,7))&b$&Right$(a$,12)

后,變量c$的值為B—。

A.VisualBASICProgramming

B.VISUALC++Programming

C.VisualC++Programming

D.VISUALBASICProgramming

29.為把圓周率的近似值3.14159存放在變量pi中，應(yīng)當(dāng)把變量pi定義為—C

A.DimpiAsIntegerB.Dimpi⑺AsInteger

C.DimpiAsSingleD.DimpiAsLong

30.以下選項(xiàng)中，不合法的VisualBasic的變量名是B。

A.a5bB._xyzC.a_bD.andif

31.窗體上有一個(gè)名稱(chēng)為Commandl的命令按鈕，其中部分代碼如下：

PrivateSubCommandl_Click()

Dima(10)AsInteger

DimnAsInteger

Callcalc(a,n)

EndSub

calc過(guò)程的首行應(yīng)當(dāng)是___A____o

A.Subcalc(x()AsInteger,nAsInteger)

B.PublicSubcalc(x()AsInteger)

C.PrivateSubcalc(a(n)AsInteger,nAsInteger)

D.PublicSubcalc(aAsInteger,nAsInteger)

32.下面定義窗體級(jí)變量a的語(yǔ)句中錯(cuò)誤的是_D_____o

A.Dima%B.Privatea%

C.PrivateaAsIntegerD.Statica%

33.下列可作為VisualBasic變量名的是_D____。

A.A#AB.4ABC

C.?xyD.Erint.lext

34.下面可以產(chǎn)生20?30(含20和30)的隨機(jī)整數(shù)的表達(dá)式是__B—。

A.Int(Rnd*10+20)B.Int(Rnd*ll+20)

C.Int(Rnd*20+30)D.Int(Rnd*30+20)

35.設(shè)窗體上有一個(gè)命令按鈕數(shù)組，可以區(qū)分?jǐn)?shù)組中各個(gè)按鈕的屬性是—B.

A.NameB.IndexC.CaptionD.Left

36.下面哪個(gè)屬性肯定不是柢架控件的屬性—A—o

A.TextB.CaptionC.LeftD.Enabled

37.下面控件中，沒(méi)有Caplion屬性的是—C。

A.復(fù)選框B.單選按鈕C.組合框D.框架

38.下列敘述中對(duì)的的是C_o

A.MsgBox語(yǔ)句的返回值是一個(gè)整數(shù)

B.執(zhí)行MsgBox語(yǔ)句并出現(xiàn)信息框后，不用關(guān)閉信息框即可執(zhí)行其他操作

C.MsgBox語(yǔ)句的第一個(gè)參數(shù)不能省略Msgbox（提醒，【，按鈕】【，標(biāo)題】）

D.假如省略MsgBox語(yǔ)句的第三個(gè)參數(shù)(Title),則信息框的標(biāo)題為空

39.表達(dá)式2*3A2+4*2/2+3人2的值是__B。

A.30B.31C.49D.48

40.以下數(shù)組定義語(yǔ)句中，錯(cuò)誤的是_C。

A.Statica(l0)AsInteger

B.Dimc(3,lTo4)

C.Dimd(-10)若省略下界時(shí)，默認(rèn)為0

D.Dimb(0To5,1To3)AsInteger

41.設(shè)有如下程序：

Subf(xAsInteger,ByVaiyAsInteger)

x=2*x

y=y+x

EndSub

PrivateSubCommand1_Click()

DimaAsInteger,bAsInteger

a=6:b=35

Callf(a,b)

Printa,b

EndSub

程序運(yùn)營(yíng)后，單擊命令按鈕Command1,輸出結(jié)果為一D

A.6B.1247

C.6D.1235

例：Subs1(ByValxAsInteger,ByVaiyAsInteger)

DimtAsInteger

t=x

x=y

y=t

EndSub

Subs2(xAsInteger,yAsInteger)

DimtAsInteger

t=x

x=y

y=t

EndSub

PrivateSubCommandl_Click()

DimaAsInteger,bAsInteger

a=12

b=13

Callsl(a,b)

Printa,b

Calls2(a,b)

Printa,b

EndSub

輸出結(jié)果為什么是12131312

s1是值傳遞，形參的改變不影響實(shí)參，s2是地址傳遞，形參的改變影響實(shí)參

42.表達(dá)式Int(Rnd(0)*50)所產(chǎn)生的隨機(jī)數(shù)范圍是C。

A.(0,50)B.(1,50)C.(0,49)D.(1,49)

43.假定一個(gè)滾動(dòng)條的LargeChange屬性值為100,則100表達(dá)—A。

A.單擊滾動(dòng)條箭頭和滾動(dòng)框之間某位置時(shí)滾動(dòng)框位置的變化量

B.滾動(dòng)框位置的最大值

C.拖動(dòng)滾動(dòng)框時(shí)滾動(dòng)框位置的變化量

D.單擊滾動(dòng)條箭頭時(shí)滾動(dòng)框位置的變化量

44.設(shè)窗體上有一個(gè)名稱(chēng)為HS1的水平滾動(dòng)條，假如執(zhí)行了語(yǔ)句：

HSl.Value=(HSl.Max-HSl.Min)/2+HSl.Min則C。

A.滾動(dòng)塊處在最左端

B.滾動(dòng)塊處在最右端

C.滾動(dòng)塊處在中間位置

D.滾動(dòng)塊也許處在任何位置，具體位置取決于Max、Min屬性的值

45.滾動(dòng)條可以響應(yīng)的事件是—B。

A.LoadB.Scroll

C.ClickD.MouseDown

46.下面不能在信息框中輸出“VB”的是_D。

A.MsgBoxWB"B.x=MsgBox("VBM)

C.MsgBox("VB")D.CallMsgBox'VB',

47.用來(lái)設(shè)立文字字體是否斜體的屬性是_D。

A.FontUnderlineB.FontBold

C.FontSlopeD.Fontltalic

48.在窗體上畫(huà)一個(gè)文本框(名稱(chēng)為T(mén)extl)和一個(gè)標(biāo)簽(名稱(chēng)為L(zhǎng)abell),程序運(yùn)營(yíng)后，在文本框中每輸入一個(gè)

字符，都會(huì)立即在標(biāo)簽中顯示文本框中字符的個(gè)數(shù)。以下可以實(shí)現(xiàn)上述操作的事件過(guò)程是Ao

A.PrivateSubTextl_Change()

Label1.Caption=Str(Len(Text1.Text))

EndSub

B.PrivateSubTextl_Click()

LabelI.Caption=Str(Len(lextl.Text))

EndSub

C.PrivateSubTextl_Change()

Label1.Caption=Textl.Text

EndSub

D.PrivateSubLabell_Change()

Label1.C叩tion二Str(Len(Textl.Text))

EndSub

49.以下不能輸出"Program"的語(yǔ)句是__D。

A.PrintMid("VBProgram",3,7)

B.PrintRightC'VBProgram",7)

C.PrintMid("VBProgram,\3)

D.PrintLeflC'VBProgram"，7)

50.現(xiàn)有語(yǔ)句：y=IIf(x>0,xMod3,0)?：x=10,則y的值是B__°

A.0B.1C.3D.語(yǔ)句有錯(cuò)

51.以下敘述中對(duì)的的是A。

A.窗體及窗體上所有控件的事件過(guò)程代碼都保存在窗體文獻(xiàn)中

B.在工程中只有啟動(dòng)窗體可以建立菜單

C.窗體名稱(chēng)必須與窗體文獻(xiàn)的名稱(chēng)相同

D.程序一定是從某個(gè)窗體開(kāi)始執(zhí)行的

52.設(shè)x=5,執(zhí)行語(yǔ)句Printx=x*10,窗體上顯示的是_D。

A.15B.5C.TrueD.False

53.在窗體上面一個(gè)命令按鈕，然后編寫(xiě)如下事件過(guò)程：

PrivateSubCommandl_Click()

MsgBoxStr(123+321)

EndSub

程序運(yùn)營(yíng)后，單擊命令按鈕，則在信息框中顯示的提醒信息為_(kāi)_B____。

A.字符串”123+321"B.字符串“444”

C.數(shù)值"444"D.空白

54.窗體上有一個(gè)名稱(chēng)為Cbl的組合框，程序運(yùn)營(yíng)后，為了輸出選中的列表項(xiàng)，應(yīng)使用的語(yǔ)句是_B

A.PrintCb1.Selected

B.PrintCbl.List(Cbl.Listlndex)

C.PrintCb1.Selected.Text

D.PrintCb1.List(Listlndex)

55.設(shè)a=5,b=6,c=7,d=8,執(zhí)行語(yǔ)句x=IIf((a>b)And(c>d),10,20)B,x的值是B。

A.10B.20C.30D.200

56.窗體上有一個(gè)名稱(chēng)為Oplion1的單選按鈕數(shù)組,程序運(yùn)營(yíng)時(shí)，當(dāng)單擊某個(gè)單證按鈕時(shí),會(huì)調(diào)用下面的事件過(guò)

程

PrivateSubOptionl_Click(IndexAsInteger)

EndSub

下面關(guān)于此過(guò)程的參數(shù)Index的敘述中對(duì)的的是C—。

A.Index為1表達(dá)單選按鈕被選中，為0表達(dá)未選中

B.Index的值可正可負(fù)

C.Index的值用來(lái)區(qū)分哪個(gè)單選按鈕被選中

D.Index表達(dá)數(shù)組中單選按鈕的數(shù)量

57.若看到程序中有以下事件過(guò)程，則可以肯定的是，當(dāng)程序運(yùn)營(yíng)時(shí)D_o

PrivateSubClick_MouseDown(ButtonAsInteger,_

ShiftAsInteger,XAsSingle,YAsSingle)

Print"VBProgram"

EndSub

A.用鼠標(biāo)左鍵單擊名稱(chēng)為“Commandl”的命令按鈕時(shí)，執(zhí)行此過(guò)程

B.用鼠標(biāo)左鍵單擊名稱(chēng)為“MouseDown”的命令按鈕時(shí),執(zhí)行此過(guò)程

C.用鼠標(biāo)右鍵單擊名稱(chēng)為“MouseDown”的控件時(shí)，執(zhí)行此過(guò)程

D.用鼠標(biāo)左鍵或右鍵單擊名稱(chēng)為“Click”的控件時(shí)，執(zhí)行此過(guò)程

58.在窗體上畫(huà)兩個(gè)單選按鈕（名稱(chēng)分別為Optionl、Option2,標(biāo)題分別為“宋體”和“黑體”卜1個(gè)復(fù)選

框（名稱(chēng)為Checkl,標(biāo)題為“粗體”）和1個(gè)文本框（名稱(chēng)為T(mén)extl,Texl屬性為“改變文字字體”），窗體外

觀如圖所示。程序運(yùn)營(yíng)后，規(guī)定“宋體”單選按鈕和“粗體”復(fù)選框被選中，則以下可以實(shí)現(xiàn)上述操作的

語(yǔ)句序列是_D_____o

A.Option1.Value=False

Check1.Value=True

B.Option1.Value=True

Checkl.Value=0

C.Option2.VaIue=False

Checkl.Value=2

D.Option1.Value=True

Checkl.Value=l

59.窗體上有一個(gè)名稱(chēng)為Framel的框架（如下圖），若要把框架上顯示的“Framel”修改為漢字“框架”，下

面對(duì)的的語(yǔ)句是B_o

A.Framel.Name二"框架"B.FrameLCaption="框架”

C.Framel.Texl="框架”D.Framel.Value="框架"

60.為了使文本框同時(shí)具有垂直和水平滾動(dòng)條，應(yīng)先把MultiLine屬性設(shè)立為T(mén)rue,然后把ScrollBars屬性

設(shè)立為D_o

A.0B.IC.2D.3

61.窗體上有一個(gè)名稱(chēng)為Commandl的命令按鈕，其單擊事件過(guò)程代碼如下:

PrivateSubCommandl_Click()

StaticxAsVariant

n=0

x=Array(1,23,4,5,6,7,8,9,10)

Whilen<=4

x(n)=x(n+5)

Printx(n);

n=n+l

Wend

EndSub

運(yùn)營(yíng)程序，單擊命令按鈕Commandl,窗體上顯示的是B

A.12345B.678910C.23456D.62345

62.設(shè)有如下數(shù)組聲明語(yǔ)句：

Dimarr(-2To2,0To3)AsInteger

該數(shù)組所包含的數(shù)組元素個(gè)數(shù)是A

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

63.假定有以下程序:

PrivateSubForm_Click()

a=l:b=a

DoUntila>=5

x=a*b

Printb;x

a=a+b

b=b+a

Loop

EndSub

程序運(yùn)營(yíng)后，單擊窗體，輸出結(jié)果是Do

A.11B.11C.11D.11

23243836

64.為了在窗體上建立2組單選按鈕，并且當(dāng)程序運(yùn)營(yíng)時(shí)，每組都可以有一個(gè)單選按鈕被選中，則以下做法

中對(duì)的的是Do

A.把這2組單選按鈕設(shè)立為名稱(chēng)不同的2個(gè)控件數(shù)組

B.使2組單選按鈕的Index屬性分別用同

C.使2組單選按鈕的名稱(chēng)分別相同

D.把2組單選按鈕分別畫(huà)到2個(gè)不同的框架中

65.語(yǔ)句PrintSgn(-6A2)+Abs(—6A2)+Int(—6人2)的輸出結(jié)果是—C。

A.~36B.1C.-1D.-72

66.設(shè)窗體中有一個(gè)文本框Textl,若在程序中執(zhí)行了Textl.SetFocus,則觸發(fā)_B

A.Textl的SetFocus事件B.Textl的GotFocus事件

C.Texll的LoslFocus事件D.窗體的GolFocus事件

67.可以產(chǎn)生30?50(含30和50)之間的隨機(jī)整數(shù)的表達(dá)式是—A。

A.Int(Rnd*21+30)B.Int(Rnd*20+30)

C.Int(Rnd*50-Rnd*30)D.Int(Rnd*30+50)

68.在窗體上畫(huà)一個(gè)名稱(chēng)為Commandl的命令按鈕，然后編寫(xiě)如下事件過(guò)程：

PrivateSubCommand1_Click()

c=1234

cl=Trim(Str(c))

Fori=lTo4

Print______

Next

EndSub

程序運(yùn)營(yíng)后，單擊命令按鈕，規(guī)定在窗體上顯示如下內(nèi)容：

1

12

123

1234

則在橫線處應(yīng)填入的內(nèi)容為_(kāi)B。

A.Right?,i)B.Left(cl,i)

C.Mid(cljJ)D.Mid(cl,i,i)

69.以下敘述中錯(cuò)誤的是D_。

A.在通用過(guò)程中，多個(gè)形式參數(shù)之間可以用逗號(hào)作為分隔符

B.在Print方法中，多個(gè)輸出項(xiàng)之間可以用逗號(hào)作為分隔符

C.在Dim語(yǔ)句中，所定義的多個(gè)變量可以用逗號(hào)作為分隔符

D.當(dāng)一行中有多個(gè)語(yǔ)句時(shí)，可以用逗號(hào)作為分隔符用冒號(hào)

70.文本框Textl的KeyDown事件過(guò)程如下：

PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)

EndSub

其中參數(shù)KeyCode的值表達(dá)的是發(fā)生此事件時(shí)_C。

A.是否按下了Alt鍵或Ctrl鍵B.按下的是哪個(gè)數(shù)字鍵

C.所按的鍵盤(pán)鍵的鍵碼D.按下的是哪個(gè)鼠標(biāo)鍵

71.窗體上有一個(gè)名稱(chēng)為L(zhǎng)abell的標(biāo)簽和一個(gè)名稱(chēng)為Command1的命令按鈕。命令按鈕的單擊事件過(guò)程如下:

PrivateSubCommandl_Click()

x=InputBox（"輸入x:",,0）

y=Inpu【Box（"輸入y:",,0）

Label1.Caption=x+y

EndSub

運(yùn)營(yíng)程序，單擊命令按鈕，在輸入對(duì)話(huà)框中分別輸入2、3,運(yùn)營(yíng)的結(jié)果是—D____o

A.程序運(yùn)營(yíng)有錯(cuò)誤，數(shù)據(jù)類(lèi)型不匹配

B.程序運(yùn)營(yíng)有錯(cuò)誤，InputBox函數(shù)的格式不對(duì)

C.在Label1中顯示5

D.在Labell中顯示23

72.現(xiàn)有由多個(gè)單選按鈕構(gòu)成的控件數(shù)組，用于區(qū)別該控件數(shù)組中各控件的屬性是—B—。

A.NameB.IndexC.CaptionD.Value

73.在窗體上畫(huà)一個(gè)名稱(chēng)為L(zhǎng)istl的列表框，列表框中顯示若干城市的名稱(chēng)。當(dāng)單擊列表框中的某個(gè)城市

名時(shí)，該城市名消失。下列在ListlClick事件過(guò)程中能正的確現(xiàn)上述功能的語(yǔ)句是D-o

A.Listl.RemoveitemListl.TextB.Listl.RemoveltemList1.Clear

C.Listl.RemoveltemListl.ListCountD.Listl.RemoveltemListl.Listindex

74.假如一個(gè)直線控件在窗體上呈現(xiàn)為一條垂直線，則可以擬定的是__B。

A.它的Yl、Y2屬性的值相等

B.它的XI、X2屬性的值相等

C.它的XI、Y1屬性的值分別與X2、丫2屬性的值相等

D.它的XI、X2屬性的值分別與Yl、Y2屬性的值相等

75.假如一個(gè)直線控件在窗體上呈現(xiàn)為一條水平線,則可以擬定的是__A_____。

A.它的Yl、Y2屬性的值相等

B.它的XI、X2屬性的值相等

C.它的XI、Y1屬性的值分別與X2、Y2屬性的值相等

D.它的XI、X2屬性的值分別與Yl、Y2屬性的值相等

76.VB中有3個(gè)鍵盤(pán)事件：KeyPress>KsyDown>KeyUp,若光標(biāo)在Textl文本框中，則每輸入一個(gè)字母

Ao

A.這3個(gè)事件都會(huì)觸發(fā)B.只觸發(fā)KeyPress事件

C.只觸發(fā)KeyDown、KeyUp事件D.不觸發(fā)其中任何一個(gè)事件

77.在程序運(yùn)營(yíng)時(shí)，下面的敘述中對(duì)的的是—Co

A.用鼠標(biāo)右鍵單擊窗體中無(wú)控件的部分，會(huì)執(zhí)行窗體的Form_Load事件過(guò)程

B.用鼠標(biāo)左鍵單擊窗體的標(biāo)題欄，會(huì)執(zhí)行窗體的Form_Click事件過(guò)程

C.只裝入而不顯示窗體，也會(huì)執(zhí)行窈體的Form_Load事件過(guò)程

D.裝入窗體后，每次顯示該窗體時(shí)，都會(huì)執(zhí)行窗體的Form_Click事件過(guò)程

78.假定有以下程序段：

Fori=lTo3

Forj=5To1Step-1

Printi*j

Nextj

Nexti

則語(yǔ)句Printi*j的執(zhí)行次數(shù)是A—。

A.15B.16C.17D.18

79.設(shè)窗體上有一個(gè)列表框控件Listl,具有若干列表項(xiàng)。以下能表達(dá)當(dāng)前被選中的列表項(xiàng)內(nèi)容的是

____C，

A.List1.ListB.List1.Listindex

C.List1.TextD.List1.Index

80.窗體上有一個(gè)名稱(chēng)為HScrolll的滾動(dòng)條，程序運(yùn)營(yíng)后，當(dāng)單擊滾動(dòng)條兩端的箭頭時(shí)，立即在窗體上顯示

滾動(dòng)框的位置(即刻度值)。下面可以實(shí)現(xiàn)上述操作的事件過(guò)程是一A。

A,PrivateSubHScroHlChaneeC)

PrintHScrollLVa山e

EndSub

B.PrivateSubHScroIll_Change()

PrintHScroIl1.SmallChange

EndSub

C.PrivateSubHScroIll_Scroll()

PrintHScroIl1.Value

EndSub

D.PrivateSubHScroIll_Scroll()

PrintHScroIll.Sma11Change

EndSub

81.窗體上有一個(gè)名稱(chēng)為Shapel的形狀控件和由三個(gè)命令按鈕組成的名稱(chēng)為cmdDraw的控件數(shù)組。窗體外觀

如圖所示(從上到下的3個(gè)命令按鈕的下標(biāo)值分別為0、1、2)。有事件過(guò)程如下：

PrivateSubcmdDraw_Click(IndexAsInteger)

SelectCaseIndex

Case0

ShapeI.Shape=O

Case1

Shapel.Shapc=l

Case2

ShapeI.Shape=3

EndSelect

EndSub

當(dāng)單擊“畫(huà)圓”命令按鈕時(shí)，會(huì)執(zhí)行cmdDraw_Click事件過(guò)程。以下敘述中對(duì)的的是—D

A.Case2分支有錯(cuò)，此Case后面表達(dá)式的值應(yīng)當(dāng)與賦給Shape1.Shape的值一致

B.程序運(yùn)營(yíng)有錯(cuò)，控件數(shù)組的下標(biāo)應(yīng)當(dāng)從1開(kāi)始

C.Index是形狀控件的參數(shù)

D.程序正常運(yùn)營(yíng)，形狀控件被顯示為圓形

82.設(shè)有分段函數(shù)：

以下表達(dá)上述分段函數(shù)的語(yǔ)句序列中錯(cuò)誤的是_A_o

A.SelectCasex

CaseIsvO

CaseIs<=5?Is>0

v=2*x

CaseElse

v=x*x+l

B.Ifx<0Then

y=5

Elselfx<=5Then

y=2*x

Else

y=x*x+l

EndIf

C.y=IIf(x<0,5,IIf(x<=5,2*x,x*x+1))

D.Ifx<0Theny=5

Ifx<=5Andx>=0Theny=2*x

Ifx>5Theny=x*x+l

83.列表框中的項(xiàng)目保存在一個(gè)數(shù)組中，這個(gè)數(shù)組的名字是—C

A.ColumnB.StyleC.ListD.MultiSeleel

84.設(shè)a=2,b=3,c=4,d=5,則下面語(yǔ)句的輸出是A。

Print3>2*bOra=cAndbOcOrc>d

A,FalseB.1C.TrueD.-1

85.在窗體上畫(huà)一個(gè)名稱(chēng)為Commandl的命令按鈕。單擊命令按鈕時(shí)執(zhí)行如下事件過(guò)程:

PrivateSubCommand1_Click()

a$="softwareandhardware"

b$-Right(a$,8)

c$=Mid(a$,l,8)

MsgBoxa$,,b$,c$,l

EndSub

則在彈出的信息框標(biāo)題欄中顯示的標(biāo)題是—B—<,

A.softwareandhardwareB.hardware

C.softwareD.I

86.下面關(guān)于標(biāo)準(zhǔn)模塊的敘述中錯(cuò)誤的是一B—。

A.標(biāo)準(zhǔn)模塊中可以聲明全局變量

B.標(biāo)準(zhǔn)模塊中可以包含一個(gè)SubMain過(guò)程，但此過(guò)程不能被設(shè)立為啟動(dòng)過(guò)程

C.標(biāo)準(zhǔn)模塊中可以包含一些Public過(guò)程

D.一個(gè)工程中可以具有多個(gè)標(biāo)準(zhǔn)模決

87.窗體上有名稱(chēng)為Command1的命令按鈕和名稱(chēng)為T(mén)extl的文本框

PrivateSubCommand1_Click()

Textl.Text="程序設(shè)計(jì)”

Textl.SetFocus

EndSub

PrivateSubTextl_GotFocus()

Textl.Text="等級(jí)考試”

EndSub

運(yùn)營(yíng)以上程序，單擊命令按鈕后—B―o

A.文本框中顯示的是“程序設(shè)計(jì)”，且焦點(diǎn)在文本框中

B.文本框中顯示的是“等級(jí)考試'且焦點(diǎn)在文本框中

C.文本框中顯示的是“程序設(shè)計(jì)"，且焦點(diǎn)在命令按鈕上

D.文本框中顯示的是“等級(jí)考試”，且焦點(diǎn)在命令按鈕上

88.在窗體上畫(huà)兩個(gè)文本框(名稱(chēng)分別為T(mén)extl和Text2)和一個(gè)命令按鈕(名稱(chēng)為Commandl),然后編寫(xiě)如下事

件過(guò)程：

PrivateSubCommandl_Click()

x=0

DoWhilex<50

x=(x+2)*(x+3)

n=n+l

Loop

Textl.Text=Str(n)

Text2.Text=Str(x)

EndSub

程序運(yùn)營(yíng)后，單擊命令按鈕，在兩個(gè)文本框中顯示的值分別為一B—o

A.1和0B.2和72C.3和50D.4和168

89.設(shè)a=4,b=5,c=26,執(zhí)行語(yǔ)句Printa<bAndbvc后，窗體上顯示的是_A。

A.TrueB.FalseC.犯錯(cuò)信息D.0

90.若已把一個(gè)命令按鈕的Default屬性設(shè)立為T(mén)rue,則下面可導(dǎo)致按鈕的Click事件過(guò)程被調(diào)用的操作是

—CO

A.用鼠標(biāo)右鍵單擊此按鈕B.按鍵盤(pán)上的Esc鍵

C.按鍵盤(pán)上的回車(chē)鍵D.用鼠標(biāo)右鍵雙擊此按鈕

91.假如一個(gè)正整數(shù)從高位到低位上的數(shù)字依次遞減，則稱(chēng)其為降序數(shù)(如：9632是降序數(shù)，而8516則不是

降序數(shù))?，F(xiàn)編寫(xiě)如下程序，判斷輸入的E整數(shù)是否為降序數(shù)。

PrivateSubCommand1_Click()

DimnAsLong

DimflagAsBoolean

n=InpulBox("輸入一個(gè)正整數(shù)")

s=Trim(Str(n))

Fori=2ToLen(s)

IfMid(s,i-1,1)<Mid(s,i,1)ThenExitFor

Nexti

Ifi=Len(s)Thcnflag=TrucElseflag=False

IfflagThen

Printn;"是降序數(shù)"

Else

Printn;"不是降序數(shù)”

EndIf

EndSub

運(yùn)營(yíng)以上程序，發(fā)現(xiàn)有錯(cuò)誤，需要對(duì)給flag變量賦值的If語(yǔ)句進(jìn)行修改。以下對(duì)的的修改是B

A.Ifi=Len(s)+1Thenflag=FalseElseflag=True

B.Ifi=Len(s)+1Thenflag=TrueElseflag=False

C.Ifi=Len(s)-1Thenf!ag=FalseElseflag=True

D.Ifi=Len(s)-1Thenflag=TrueElseflag:False

92.設(shè)程序中有如下語(yǔ)句：

x=InputBox(“輸入“，”數(shù)據(jù)”,100)

Printx

運(yùn)營(yíng)程序，執(zhí)行上述語(yǔ)句，輸入5并單擊輸入對(duì)話(huà)框上的“取消”按鈕，則窗體上輸出D_

A.0B.5C.100D.空白

93.有人編寫(xiě)了如下程序：

PrivateSubForm_Click()

DimsAsInteger,xAsInteger

s=0

x=0

DoWhiles=10000

x=x+1

s=s+xA2

Loop

Prints

EndSub

上述程序的功能是：計(jì)算s=l+22+3?+…+r?+…，直至UsXOOOO為止。程序運(yùn)營(yíng)后，發(fā)現(xiàn)得不到對(duì)的的結(jié)

果，必須進(jìn)行修改。下列修改中對(duì)的的是Bo

A.把x=0改為x=l

B.把DoWhiles=10000改為DoWhiles<=10000

C.把口0亞卜加5=10000改為口0\￥忻怕5>10000

D.互換x=x+^l3s=s+x八2的位置

94.窗體Forml上有一個(gè)名稱(chēng)為Commandl的命令按鈕，以下相應(yīng)窗體單擊事件的事件過(guò)程是B—。

A.PrivateSubForml_Click()

EndSub

B.PrivateSubFormClickO

EndSub

C.PrivateSubCommandl_Click()

EndSub

D.PrivateSubCommand_Click()

EndSub

95.在窗體上畫(huà)一個(gè)文本框(名稱(chēng)為T(mén)ex")和一個(gè)標(biāo)簽(名稱(chēng)為L(zhǎng)abell),程序運(yùn)營(yíng)后，假如在文本框中輸入文

本，則標(biāo)簽中立即顯示相同的內(nèi)容。以下可以實(shí)現(xiàn)上述操作的事件過(guò)程是A_o

A.PrivateSubTe\>lChange/)

LabelLCaDtion=TextLTexi

EndSub

B.PrivateSubLabelI_Change()

Label1.Caption=Text1.Text

EndSub

C.PrivateSubTextl_Click()

Label1.Caption=Textl.Text

EndSub

D.PrivateSubLabell_Click()

Label1.Caption=Textl.Text

EndSub

96.設(shè)窗體的名稱(chēng)為Forml,標(biāo)題為Win,則窗體的MouseDown事件過(guò)程的過(guò)程名是__C.

A.Forml_MouseDownB.Win_MouseDown

C,FomiMouseDownD.MouseDown_Form1

97.設(shè)窗體上有名稱(chēng)為Optionl的單選按鈕，且程序中有語(yǔ)句：

IfOptionl.Value=TrueThen

下面語(yǔ)句中與該語(yǔ)句不等價(jià)的是一C―O

A.IfOption1.ValueThenB.IfOptionl=TrueThen

C,IfValuc=TrucThenD.IfOptionlThen

98.閱讀程序：

PrivateSubForm_Click()

a=0

Forj=lTo15

a=a+jMod3

Nextj

Printa

EndSub

程序運(yùn)營(yíng)后，單擊窗體，輸出結(jié)果是—D―o

A.105B.1C.120D.15

99.執(zhí)行下列語(yǔ)句：

slrInpu【=【nputBox("請(qǐng)輸入字符串字符串對(duì)話(huà)框“，“字符串”)

將顯示輸入對(duì)話(huà)框。此時(shí)假如直接單擊“擬定”按鈕，則變量strl叩ut的內(nèi)容是C

A.”請(qǐng)輸入字符串"B.”字符串對(duì)話(huà)框"

C."字符串“D.空字符串

100.可以存放組合框的所有項(xiàng)目?jī)?nèi)容的屬性是_C。

A.CaptionB.TextC.ListD.Selected

101.現(xiàn)有以下程序:

PrivateSubCommand1_Click()

cl=0

c2=0

Fori=llb100

IfiMod3=0Then

c1=c1+1

ElselfiMod7=0Then

c2=c2+l

EndIf

Next

Printcl+c2

EndSub

此程序運(yùn)營(yíng)后輸出的是在1100范圍內(nèi)_Bo

A.同時(shí)能被3和7整除的整數(shù)個(gè)數(shù)

B.能被3或7整除的整數(shù)個(gè)數(shù)(同時(shí)被3和7整除的數(shù)只記一次)

C.能被3整除，而不能被7整除的整數(shù)個(gè)數(shù)

D.能被7整除，而不能被3整除的整數(shù)個(gè)數(shù)

102.現(xiàn)有如下一段程序：

OptionBase1

PrivateSubCommandl_Click()

Dima

a=Array(3,5,7,9)

x=l

Fori=4Tb1Step-1

s=s+a(i)*x

x=x*10

Next

Prints

EndSub

執(zhí)行程序，單擊Command1命令按鈕，執(zhí)行上述事件過(guò)程，輸出結(jié)果是_C

A.9753B.35C.3579D.79

103.設(shè)有如下程序：

PrivateSubForm_Click()

DimsAsLong,fAsLong

DimnAsInteger,iAsInteger

f=l

n=4

Fori=lTon

f=f*i

s=s+f

Nexti

Prints

EndSub

程序運(yùn)營(yíng)后，單擊窗體，輸出結(jié)果是D_o

A.32B.35C.34D.33

104.默認(rèn)情況下，下面聲明的數(shù)組的元素個(gè)數(shù)是_D。6*5=30

Dima(5,-2To2)

A.20B.24C.25D.30

105.以下說(shuō)法中錯(cuò)誤的是一C—。

A.假如把一個(gè)命令按鈕的Default屬性設(shè)立為T(mén)rue,則按回車(chē)鍵與單擊該命令按鈕的作用相同

B.可以用多個(gè)命令按鈕組成命令按鈕數(shù)組

C.命令按鈕只能辨認(rèn)單擊(Click)事件

D.通過(guò)設(shè)立命令按鈕的Enabled屬性，可以使該命令按鈕有效或禁用

106.下面對(duì)的使用動(dòng)態(tài)數(shù)組的是_A0

A.Dimart()AsInteger

ReDimarr(3,5)

B.Dimarr()AsInteger

ReDimarr(50)AsString

C.Dimarr()

ReDimarr(50)AsInteger

D.Dimarr(50)AsInteger

ReDimarr(20)

107.設(shè)窗體上有1個(gè)水平滾動(dòng)條，已經(jīng)通過(guò)屬性窗口把它的Max屬性設(shè)立為Min屬性設(shè)立為100。下面敘

述中對(duì)的的是A。

A.程序運(yùn)營(yíng)時(shí)，若使?jié)L動(dòng)塊向左移動(dòng)，滾動(dòng)條的Value屬性值就增長(zhǎng)

B.程序運(yùn)營(yíng)時(shí)，若使?jié)L動(dòng)塊向左移動(dòng)，滾動(dòng)條的Value屬性值就減少

C.由于滾動(dòng)條的Max屬性值小于Min屬性值，程序會(huì)犯錯(cuò)

D.由于滾動(dòng)條的Max屬性值小于Min屬性值，程序運(yùn)營(yíng)時(shí)滾動(dòng)條的長(zhǎng)度會(huì)縮為一點(diǎn)，滾動(dòng)塊無(wú)法移動(dòng)

108.以下說(shuō)法中對(duì)的的是A_。

A.當(dāng)焦點(diǎn)在某個(gè)控件上時(shí)，按下一個(gè)字母鍵，就會(huì)執(zhí)行該控件的KeyPress事件過(guò)程

B.由于窗體不接受焦點(diǎn)，所以窗體不存在自己的KeyPress事件過(guò)程

C.若按下的鍵相同，KeyPress事件過(guò)程中的KeyAscii參數(shù)與KeyDown事件過(guò)程中的KeyCode參數(shù)的值

也相同

D.在KeyPress事件過(guò)程中，KeyAscii參數(shù)可以省略

109.窗體上有Command】、Command2兩個(gè)命令按鈕?，F(xiàn)編寫(xiě)以下程序：

OptionBase0

Dima()AsInteger,mAsInteger

PrivateSubCommand1_Click()

m=InputBox("請(qǐng)輸入一個(gè)正整數(shù)")

RcDima(m)

EndSub

PrivateSubCommand2_Click()

m=InputBox("請(qǐng)輸入一個(gè)正整數(shù)")

ReDima(m)

EndSub

運(yùn)營(yíng)程序時(shí)，單擊Command1后輸入整數(shù)10,再單擊Command2后輸入整數(shù)5,則數(shù)組a中元素的個(gè)數(shù)是

B_<,0—56個(gè)

A.5B.6C.10D.11

110.要使兩個(gè)單選按鈕屬于同一個(gè)框架，對(duì)的的操作是—A。

A.先畫(huà)一個(gè)框架，再在框架中畫(huà)兩個(gè)單選按鈕

B.先畫(huà)一個(gè)框架，再在框架外畫(huà)兩個(gè)單選按鈕，然后把單選按鈕拖到框架中

C.先畫(huà)兩個(gè)單選按鈕，再畫(huà)框架將單選按鈕框起來(lái)

D.以上三種方法都對(duì)的

111.窗體上有一個(gè)名稱(chēng)為Commandl的命令按鈕，并有如下程序：

PrivateSubCommand1_Click()

x=15

DoWhilexX)

x=x-3

x=IIf(Int(x/5)=x/5,x+2,x)

Loop