一、選擇題

1.以下敘述中錯誤的是一B—。

A..vbp文獻是工程文獻，一個工程可以包含.bas文獻

B..frm文獻是窗體文獻，一個窗體可以包含.bas文獻

C..vbp文獻是工程文獻，一個工程可以由多個.frm文獻組成

D..vbg文獻是工程組文獻，一個工程組可以由多個工程組成

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

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

3.以下描述中錯誤的是—B—。

A.窗體的標題通過其Caption屬性設立

B.窗體的名稱（Name屬性）可以在運營期間修改

C.窗體的背景圖形通過其Picture屬性設立

D.窗體最小化時的圖標通過其Icon屬性設立

4.在VisualBasic集成環境中，可以列出工程中所有模塊名稱的窗口是—A—。

A.工程資源管理器窗口B.窗體設計窗口

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

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

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

6.在VisualBasic集成環境中，要結束一個正在運營的工程，可單擊工具欄上的一個按鈕，這個按鈕是

D—。

A.門B.?c.酎D.■

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

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

8.執行語句DimX,YAsInleger后，D。

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

B.X和丫均被定義為變體類型變量

C.X被定義為整型變量，丫被定義為變體類型變量

D.X被定義為變體類型變量，丫被定義為整型變量

9.在設計窗體時雙擊窗體的任何地方，可以打開的窗口是—A。

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

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

10.以下敘述中錯誤的是一D。

A.標準模塊文獻的擴展名是.bas

B.標準模塊文獻是純代碼文獻

C.在標準模塊中聲明的全局變量可以在整個工程中使用

D.在標準模塊中不能定義過程

H.以下敘述中錯誤的是C_O

A.在VisualBasic的窗體中，一?個命令按鈕是一?個對象

B.事件是可以被對象辨認的狀態變化或動作

C.事件都是由用戶的鍵盤操作或鼠標操作觸發的

D.不同的對象可以具有相同的方法

12.設x是小于10的非負數。對此陳述，以下對的的VB表達式是_C.

A.OWxVlOB.0<=x<10

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

13.在設計階段，當按Ctrl+R鍵時，所打開的窗口是_B。

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

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

14.在設計階段，當按下F4鍵時，所打開的窗口是一D—。

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

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

15.在VisualBasic集成環境的設計模式下，用鼠標雙擊窗體上的某個控件打開的窗口是

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

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

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

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

5x+3

2y—6

17.把數學表達式表達為對的的VB表達式應當是—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.以下關系表達式中，其值為True的是B_。Ascii碼A65a97

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

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

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

A.IntegerB.StringC.BooleanD.Variant

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

A.1B.0C.3D.出現錯誤提醒

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

數部分

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

22.以下關于窗體的敘述中，錯誤的是—D—。

A.窗體的Name屬性用于標記一個窗體

B.運營程序時改變窗體大小，可以觸發窗體的Resize事件

C.窗體的Enabled屬性為False時，不能響應單擊窗體的事件

D.程序運營期間，可以改變Name屬性值

23.設有如下變量聲明語句：

Dima,bAsBoolean

則下面敘述中對的的是—B。

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

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

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

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

24.為了使標簽具“透明”的顯示效果，需要設立的屬性是一C

A.CaptionB.Alignment

C.BackStyleD.AutoSize

25.下列敘述中錯誤的是D—°

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

B.列表框有Selected屬性，而組合框沒有

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

D.組合框有Text屬性，而列表框沒有

26.設窗體文獻中有下面的事件過程：

PrivateSubCommandl_Click()

Dims

a%=100

Printa

EndSub

其中變量a和s的數據類型分別是C_o

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

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

27.下面有關標準模塊的敘述中，錯誤的是一A—。

A.標準模塊不完全由代碼組成，還可以有窗體

B.標準模塊中的Private過程不能被工程中的其他模塊調用

C.標準模塊的文獻擴展名為.bas

D.標準模塊中的全局變量可以被工程中的任何模塊引用

28.執行以下程序段

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中，應當把變量pi定義為—C

A.DimpiAsIntegerB.Dimpi⑺AsInteger

C.DimpiAsSingleD.DimpiAsLong

30.以下選項中，不合法的VisualBasic的變量名是B。

A.a5bB._xyzC.a_bD.andif

31.窗體上有一個名稱為Commandl的命令按鈕，其中部分代碼如下：

PrivateSubCommandl_Click()

Dima(10)AsInteger

DimnAsInteger

Callcalc(a,n)

EndSub

calc過程的首行應當是___A____o

A.Subcalc(x()AsInteger,nAsInteger)

B.PublicSubcalc(x()AsInteger)

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

D.PublicSubcalc(aAsInteger,nAsInteger)

32.下面定義窗體級變量a的語句中錯誤的是_D_____o

A.Dima%B.Privatea%

C.PrivateaAsIntegerD.Statica%

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

A.A#AB.4ABC

C.?xyD.Erint.lext

34.下面可以產生20?30(含20和30)的隨機整數的表達式是__B—。

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

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

35.設窗體上有一個命令按鈕數組，可以區分數組中各個按鈕的屬性是—B.

A.NameB.IndexC.CaptionD.Left

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

A.TextB.CaptionC.LeftD.Enabled

37.下面控件中，沒有Caplion屬性的是—C。

A.復選框B.單選按鈕C.組合框D.框架

38.下列敘述中對的的是C_o

A.MsgBox語句的返回值是一個整數

B.執行MsgBox語句并出現信息框后，不用關閉信息框即可執行其他操作

C.MsgBox語句的第一個參數不能省略Msgbox（提醒，【，按鈕】【，標題】）

D.假如省略MsgBox語句的第三個參數(Title),則信息框的標題為空

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

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

40.以下數組定義語句中，錯誤的是_C。

A.Statica(l0)AsInteger

B.Dimc(3,lTo4)

C.Dimd(-10)若省略下界時，默認為0

D.Dimb(0To5,1To3)AsInteger

41.設有如下程序：

Subf(xAsInteger,ByVaiyAsInteger)

x=2*x

y=y+x

EndSub

PrivateSubCommand1_Click()

DimaAsInteger,bAsInteger

a=6:b=35

Callf(a,b)

Printa,b

EndSub

程序運營后，單擊命令按鈕Command1,輸出結果為一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

輸出結果為什么是12131312

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

42.表達式Int(Rnd(0)*50)所產生的隨機數范圍是C。

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

43.假定一個滾動條的LargeChange屬性值為100,則100表達—A。

A.單擊滾動條箭頭和滾動框之間某位置時滾動框位置的變化量

B.滾動框位置的最大值

C.拖動滾動框時滾動框位置的變化量

D.單擊滾動條箭頭時滾動框位置的變化量

44.設窗體上有一個名稱為HS1的水平滾動條，假如執行了語句：

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

A.滾動塊處在最左端

B.滾動塊處在最右端

C.滾動塊處在中間位置

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

45.滾動條可以響應的事件是—B。

A.LoadB.Scroll

C.ClickD.MouseDown

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

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

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

47.用來設立文字字體是否斜體的屬性是_D。

A.FontUnderlineB.FontBold

C.FontSlopeD.Fontltalic

48.在窗體上畫一個文本框(名稱為Textl)和一個標簽(名稱為Labell),程序運營后，在文本框中每輸入一個

字符，都會立即在標簽中顯示文本框中字符的個數。以下可以實現上述操作的事件過程是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"的語句是__D。

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

B.PrintRightC'VBProgram",7)

C.PrintMid("VBProgram,\3)

D.PrintLeflC'VBProgram"，7)

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

A.0B.1C.3D.語句有錯

51.以下敘述中對的的是A。

A.窗體及窗體上所有控件的事件過程代碼都保存在窗體文獻中

B.在工程中只有啟動窗體可以建立菜單

C.窗體名稱必須與窗體文獻的名稱相同

D.程序一定是從某個窗體開始執行的

52.設x=5,執行語句Printx=x*10,窗體上顯示的是_D。

A.15B.5C.TrueD.False

53.在窗體上面一個命令按鈕，然后編寫如下事件過程：

PrivateSubCommandl_Click()

MsgBoxStr(123+321)

EndSub

程序運營后，單擊命令按鈕，則在信息框中顯示的提醒信息為__B____。

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

C.數值"444"D.空白

54.窗體上有一個名稱為Cbl的組合框，程序運營后，為了輸出選中的列表項，應使用的語句是_B

A.PrintCb1.Selected

B.PrintCbl.List(Cbl.Listlndex)

C.PrintCb1.Selected.Text

D.PrintCb1.List(Listlndex)

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

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

56.窗體上有一個名稱為Oplion1的單選按鈕數組,程序運營時，當單擊某個單證按鈕時,會調用下面的事件過

程

PrivateSubOptionl_Click(IndexAsInteger)

EndSub

下面關于此過程的參數Index的敘述中對的的是C—。

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

B.Index的值可正可負

C.Index的值用來區分哪個單選按鈕被選中

D.Index表達數組中單選按鈕的數量

57.若看到程序中有以下事件過程，則可以肯定的是，當程序運營時D_o

PrivateSubClick_MouseDown(ButtonAsInteger,_

ShiftAsInteger,XAsSingle,YAsSingle)

Print"VBProgram"

EndSub

A.用鼠標左鍵單擊名稱為“Commandl”的命令按鈕時，執行此過程

B.用鼠標左鍵單擊名稱為“MouseDown”的命令按鈕時,執行此過程

C.用鼠標右鍵單擊名稱為“MouseDown”的控件時，執行此過程

D.用鼠標左鍵或右鍵單擊名稱為“Click”的控件時，執行此過程

58.在窗體上畫兩個單選按鈕（名稱分別為Optionl、Option2,標題分別為“宋體”和“黑體”卜1個復選

框（名稱為Checkl,標題為“粗體”）和1個文本框（名稱為Textl,Texl屬性為“改變文字字體”），窗體外

觀如圖所示。程序運營后，規定“宋體”單選按鈕和“粗體”復選框被選中，則以下可以實現上述操作的

語句序列是_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.窗體上有一個名稱為Framel的框架（如下圖），若要把框架上顯示的“Framel”修改為漢字“框架”，下

面對的的語句是B_o

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

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

60.為了使文本框同時具有垂直和水平滾動條，應先把MultiLine屬性設立為True,然后把ScrollBars屬性

設立為D_o

A.0B.IC.2D.3

61.窗體上有一個名稱為Commandl的命令按鈕，其單擊事件過程代碼如下:

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

運營程序，單擊命令按鈕Commandl,窗體上顯示的是B

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

62.設有如下數組聲明語句：

Dimarr(-2To2,0To3)AsInteger

該數組所包含的數組元素個數是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

程序運營后，單擊窗體，輸出結果是Do

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

23243836

64.為了在窗體上建立2組單選按鈕，并且當程序運營時，每組都可以有一個單選按鈕被選中，則以下做法

中對的的是Do

A.把這2組單選按鈕設立為名稱不同的2個控件數組

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

C.使2組單選按鈕的名稱分別相同

D.把2組單選按鈕分別畫到2個不同的框架中

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

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

66.設窗體中有一個文本框Textl,若在程序中執行了Textl.SetFocus,則觸發_B

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

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

67.可以產生30?50(含30和50)之間的隨機整數的表達式是—A。

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

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

68.在窗體上畫一個名稱為Commandl的命令按鈕，然后編寫如下事件過程：

PrivateSubCommand1_Click()

c=1234

cl=Trim(Str(c))

Fori=lTo4

Print______

Next

EndSub

程序運營后，單擊命令按鈕，規定在窗體上顯示如下內容：

1

12

123

1234

則在橫線處應填入的內容為_B。

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

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

69.以下敘述中錯誤的是D_。

A.在通用過程中，多個形式參數之間可以用逗號作為分隔符

B.在Print方法中，多個輸出項之間可以用逗號作為分隔符

C.在Dim語句中，所定義的多個變量可以用逗號作為分隔符

D.當一行中有多個語句時，可以用逗號作為分隔符用冒號

70.文本框Textl的KeyDown事件過程如下：

PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)

EndSub

其中參數KeyCode的值表達的是發生此事件時_C。

A.是否按下了Alt鍵或Ctrl鍵B.按下的是哪個數字鍵

C.所按的鍵盤鍵的鍵碼D.按下的是哪個鼠標鍵

71.窗體上有一個名稱為Labell的標簽和一個名稱為Command1的命令按鈕。命令按鈕的單擊事件過程如下:

PrivateSubCommandl_Click()

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

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

Label1.Caption=x+y

EndSub

運營程序，單擊命令按鈕，在輸入對話框中分別輸入2、3,運營的結果是—D____o

A.程序運營有錯誤，數據類型不匹配

B.程序運營有錯誤，InputBox函數的格式不對

C.在Label1中顯示5

D.在Labell中顯示23

72.現有由多個單選按鈕構成的控件數組，用于區別該控件數組中各控件的屬性是—B—。

A.NameB.IndexC.CaptionD.Value

73.在窗體上畫一個名稱為Listl的列表框，列表框中顯示若干城市的名稱。當單擊列表框中的某個城市

名時，該城市名消失。下列在ListlClick事件過程中能正的確現上述功能的語句是D-o

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

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

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

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

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

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

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

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

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

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

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

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

76.VB中有3個鍵盤事件：KeyPress>KsyDown>KeyUp,若光標在Textl文本框中，則每輸入一個字母

Ao

A.這3個事件都會觸發B.只觸發KeyPress事件

C.只觸發KeyDown、KeyUp事件D.不觸發其中任何一個事件

77.在程序運營時，下面的敘述中對的的是—Co

A.用鼠標右鍵單擊窗體中無控件的部分，會執行窗體的Form_Load事件過程

B.用鼠標左鍵單擊窗體的標題欄，會執行窗體的Form_Click事件過程

C.只裝入而不顯示窗體，也會執行窈體的Form_Load事件過程

D.裝入窗體后，每次顯示該窗體時，都會執行窗體的Form_Click事件過程

78.假定有以下程序段：

Fori=lTo3

Forj=5To1Step-1

Printi*j

Nextj

Nexti

則語句Printi*j的執行次數是A—。

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

79.設窗體上有一個列表框控件Listl,具有若干列表項。以下能表達當前被選中的列表項內容的是

____C，

A.List1.ListB.List1.Listindex

C.List1.TextD.List1.Index

80.窗體上有一個名稱為HScrolll的滾動條，程序運營后，當單擊滾動條兩端的箭頭時，立即在窗體上顯示

滾動框的位置(即刻度值)。下面可以實現上述操作的事件過程是一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.窗體上有一個名稱為Shapel的形狀控件和由三個命令按鈕組成的名稱為cmdDraw的控件數組。窗體外觀

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

PrivateSubcmdDraw_Click(IndexAsInteger)

SelectCaseIndex

Case0

ShapeI.Shape=O

Case1

Shapel.Shapc=l

Case2

ShapeI.Shape=3

EndSelect

EndSub

當單擊“畫圓”命令按鈕時，會執行cmdDraw_Click事件過程。以下敘述中對的的是—D

A.Case2分支有錯，此Case后面表達式的值應當與賦給Shape1.Shape的值一致

B.程序運營有錯，控件數組的下標應當從1開始

C.Index是形狀控件的參數

D.程序正常運營，形狀控件被顯示為圓形

82.設有分段函數：

以下表達上述分段函數的語句序列中錯誤的是_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.列表框中的項目保存在一個數組中，這個數組的名字是—C

A.ColumnB.StyleC.ListD.MultiSeleel

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

Print3>2*bOra=cAndbOcOrc>d

A,FalseB.1C.TrueD.-1

85.在窗體上畫一個名稱為Commandl的命令按鈕。單擊命令按鈕時執行如下事件過程:

PrivateSubCommand1_Click()

a$="softwareandhardware"

b$-Right(a$,8)

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

MsgBoxa$,,b$,c$,l

EndSub

則在彈出的信息框標題欄中顯示的標題是—B—<,

A.softwareandhardwareB.hardware

C.softwareD.I

86.下面關于標準模塊的敘述中錯誤的是一B—。

A.標準模塊中可以聲明全局變量

B.標準模塊中可以包含一個SubMain過程，但此過程不能被設立為啟動過程

C.標準模塊中可以包含一些Public過程

D.一個工程中可以具有多個標準模決

87.窗體上有名稱為Command1的命令按鈕和名稱為Textl的文本框

PrivateSubCommand1_Click()

Textl.Text="程序設計”

Textl.SetFocus

EndSub

PrivateSubTextl_GotFocus()

Textl.Text="等級考試”

EndSub

運營以上程序，單擊命令按鈕后—B―o

A.文本框中顯示的是“程序設計”，且焦點在文本框中

B.文本框中顯示的是“等級考試'且焦點在文本框中

C.文本框中顯示的是“程序設計"，且焦點在命令按鈕上

D.文本框中顯示的是“等級考試”，且焦點在命令按鈕上

88.在窗體上畫兩個文本框(名稱分別為Textl和Text2)和一個命令按鈕(名稱為Commandl),然后編寫如下事

件過程：

PrivateSubCommandl_Click()

x=0

DoWhilex<50

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

n=n+l

Loop

Textl.Text=Str(n)

Text2.Text=Str(x)

EndSub

程序運營后，單擊命令按鈕，在兩個文本框中顯示的值分別為一B—o

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

89.設a=4,b=5,c=26,執行語句Printa<bAndbvc后，窗體上顯示的是_A。

A.TrueB.FalseC.犯錯信息D.0

90.若已把一個命令按鈕的Default屬性設立為True,則下面可導致按鈕的Click事件過程被調用的操作是

—CO

A.用鼠標右鍵單擊此按鈕B.按鍵盤上的Esc鍵

C.按鍵盤上的回車鍵D.用鼠標右鍵雙擊此按鈕

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

降序數)。現編寫如下程序，判斷輸入的E整數是否為降序數。

PrivateSubCommand1_Click()

DimnAsLong

DimflagAsBoolean

n=InpulBox("輸入一個正整數")

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;"是降序數"

Else

Printn;"不是降序數”

EndIf

EndSub

運營以上程序，發現有錯誤，需要對給flag變量賦值的If語句進行修改。以下對的的修改是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.設程序中有如下語句：

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

Printx

運營程序，執行上述語句，輸入5并單擊輸入對話框上的“取消”按鈕，則窗體上輸出D_

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

93.有人編寫了如下程序：

PrivateSubForm_Click()

DimsAsInteger,xAsInteger

s=0

x=0

DoWhiles=10000

x=x+1

s=s+xA2

Loop

Prints

EndSub

上述程序的功能是：計算s=l+22+3?+…+r?+…，直至UsXOOOO為止。程序運營后，發現得不到對的的結

果，必須進行修改。下列修改中對的的是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上有一個名稱為Commandl的命令按鈕，以下相應窗體單擊事件的事件過程是B—。

A.PrivateSubForml_Click()

EndSub

B.PrivateSubFormClickO

EndSub

C.PrivateSubCommandl_Click()

EndSub

D.PrivateSubCommand_Click()

EndSub

95.在窗體上畫一個文本框(名稱為Tex")和一個標簽(名稱為Labell),程序運營后，假如在文本框中輸入文

本，則標簽中立即顯示相同的內容。以下可以實現上述操作的事件過程是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.設窗體的名稱為Forml,標題為Win,則窗體的MouseDown事件過程的過程名是__C.

A.Forml_MouseDownB.Win_MouseDown

C,FomiMouseDownD.MouseDown_Form1

97.設窗體上有名稱為Optionl的單選按鈕，且程序中有語句：

IfOptionl.Value=TrueThen

下面語句中與該語句不等價的是一C―O

A.IfOption1.ValueThenB.IfOptionl=TrueThen

C,IfValuc=TrucThenD.IfOptionlThen

98.閱讀程序：

PrivateSubForm_Click()

a=0

Forj=lTo15

a=a+jMod3

Nextj

Printa

EndSub

程序運營后，單擊窗體，輸出結果是—D―o

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

99.執行下列語句：

slrInpu【=【nputBox("請輸入字符串字符串對話框“，“字符串”)

將顯示輸入對話框。此時假如直接單擊“擬定”按鈕，則變量strl叩ut的內容是C

A.”請輸入字符串"B.”字符串對話框"

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

100.可以存放組合框的所有項目內容的屬性是_C。

A.CaptionB.TextC.ListD.Selected

101.現有以下程序:

PrivateSubCommand1_Click()

cl=0

c2=0

Fori=llb100

IfiMod3=0Then

c1=c1+1

ElselfiMod7=0Then

c2=c2+l

EndIf

Next

Printcl+c2

EndSub

此程序運營后輸出的是在1100范圍內_Bo

A.同時能被3和7整除的整數個數

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

C.能被3整除，而不能被7整除的整數個數

D.能被7整除，而不能被3整除的整數個數

102.現有如下一段程序：

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

執行程序，單擊Command1命令按鈕，執行上述事件過程，輸出結果是_C

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

103.設有如下程序：

PrivateSubForm_Click()

DimsAsLong,fAsLong

DimnAsInteger,iAsInteger

f=l

n=4

Fori=lTon

f=f*i

s=s+f

Nexti

Prints

EndSub

程序運營后，單擊窗體，輸出結果是D_o

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

104.默認情況下，下面聲明的數組的元素個數是_D。6*5=30

Dima(5,-2To2)

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

105.以下說法中錯誤的是一C—。

A.假如把一個命令按鈕的Default屬性設立為True,則按回車鍵與單擊該命令按鈕的作用相同

B.可以用多個命令按鈕組成命令按鈕數組

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

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

106.下面對的使用動態數組的是_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.設窗體上有1個水平滾動條，已經通過屬性窗口把它的Max屬性設立為Min屬性設立為100。下面敘

述中對的的是A。

A.程序運營時，若使滾動塊向左移動，滾動條的Value屬性值就增長

B.程序運營時，若使滾動塊向左移動，滾動條的Value屬性值就減少

C.由于滾動條的Max屬性值小于Min屬性值，程序會犯錯

D.由于滾動條的Max屬性值小于Min屬性值，程序運營時滾動條的長度會縮為一點，滾動塊無法移動

108.以下說法中對的的是A_。

A.當焦點在某個控件上時，按下一個字母鍵，就會執行該控件的KeyPress事件過程

B.由于窗體不接受焦點，所以窗體不存在自己的KeyPress事件過程

C.若按下的鍵相同，KeyPress事件過程中的KeyAscii參數與KeyDown事件過程中的KeyCode參數的值

也相同

D.在KeyPress事件過程中，KeyAscii參數可以省略

109.窗體上有Command】、Command2兩個命令按鈕。現編寫以下程序：

OptionBase0

Dima()AsInteger,mAsInteger

PrivateSubCommand1_Click()

m=InputBox("請輸入一個正整數")

RcDima(m)

EndSub

PrivateSubCommand2_Click()

m=InputBox("請輸入一個正整數")

ReDima(m)

EndSub

運營程序時，單擊Command1后輸入整數10,再單擊Command2后輸入整數5,則數組a中元素的個數是

B_<,0—56個

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

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

A.先畫一個框架，再在框架中畫兩個單選按鈕

B.先畫一個框架，再在框架外畫兩個單選按鈕，然后把單選按鈕拖到框架中

C.先畫兩個單選按鈕，再畫框架將單選按鈕框起來

D.以上三種方法都對的

111.窗體上有一個名稱為Commandl的命令按鈕，并有如下程序：

PrivateSubCommand1_Click()

x=15

DoWhilexX)

x=x-3

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

Loop