中國礦業大學2005?2006學年第二學期

《VisualBasic程序設計》試卷(A)卷

考試時間：120分鐘考試方式：閉卷

學院班級姓名班級序號

題號—?二三四總分

分值30203020100

得分

閱卷人

一、選擇題(本題30小題，每題1分，共30分)

1.確定一個控件在窗體上的位置的屬性是o

A.Width和HeightB.Width或Height

C.Top和LeftD.Top或Left

2.執行如下兩條語句后，窗體上顯示的是。

A=9.8596

PrintFormat(A,"$0,000.00")

A.0,009.86B.$9.86C.9.86D.$0,009.86

3.設a=2,b=3,c=4,下列表達式的值是o

Nota<=cOr4*c=b"2Andb<>a+c

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

4.設窗體上有一個文本框Textl,程序運行后，要求該文本框只能顯示信息不能接收輸入

的信息，以下能實現該功能的語句是。

A.Textl.Locked=TrueB.Textl.Enabled=True

C.Textl.Visible=TrueD.Textl.TabStop=True

5.以下關系表達式中，其值為False的是。

A.”VISUAL"=UCase("Visual")B."the"?"they"

C."ABC">"AbC"D."Integer">"Int”

6.以下合法的VB標識符是。

A.ForLoopB.ConstC.9abcD.attx

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

PrivateSubCommandl_Click()

Move500,500

EndSub

程序運行后，單擊命令按鈕Commandl,則執行的操作為。

A.命令按鈕移動到距窗體左邊界、上邊界各500twip的位置

B.窗體移動到距屏幕左邊界、上邊界各500twip的位置

C.命令按鈕向左、上方各移動500twip

D.窗體向左、上方向各移動500twip

8.假定一個VB應用程序由一個窗體模塊和一個標準模塊構成。為了保存該應用程序，以下

正確的操作是。

A.只保存窗體模塊文件

B.分別保存窗體模塊、標準模塊和工程文件

C.只保存窗體模塊和標準模塊文件

D.只保存工程文件

9.以下敘述中錯誤的是o

A.打開一個工程文件時，系統自動裝入與該工程有關的窗體、標準模塊等文件

B.當程序運行時，雙擊一個窗體，則觸發該窗體的DblClick事件

C.VB應用程序只能以解釋方式執行

D.VB中有的事件可以由用戶引發，有的事件也可以由系統引發

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

A.在VB中，對象所能響應的事件是由系統定義的

B.對象的任何屬性既可以通過屬性窗口設定，也可以通過程序語句設定

C.VB中不同對象可具有名稱相同的方法

D.VB中的對象具有自己的屬性

11.下列語句中，結果與Print"M”;Tab(15);"ABC”輸出相同的是。

A.Print"M";spc(14);"ABC"B.Print"M","ABC"

C.Print"M”;spc(⑵；"ABC"D.Print"M”;Tab(14);“ABC"

12.下列語句不能正確執行的是。

A.Print"a"+"b"B.Print123+"42b"C.Print12<45D.Print12&45

13.編寫一個對Single類型一維數組a排序的Sub過程，該過程只能被本模塊中其他過程

所調用，其首句為。

A.Subf(a()AsSingle,nAsInteger)

B.PrivateSubf(a()AsSingle)

C.PrivateSubf(aAsSingle,nAsInteger)

D.PublicSubf(a()AsSingle)

14.若某過程聲明為Subg(nasInteger),調用程序中的變量m為Integer型，則調用

時實參與形參是按地址傳遞的為o

A.Callg(5)B.Callg(m+l)C.Callg(m)D.Callg((m))

15.在窗體上畫一個文本框，然后編寫如下事件過程：

PrivateSubForm_Click()

x=InputBox$("請輸入一個整數”)

Printx+Textl.Text

EndSub

程序運行時，在文本框中輸入456,然后單擊窗體，在輸入對話框中輸入123,單擊

“確定”按鈕后，則在窗體上顯示的內容是：o

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

16.在SelectCaseX結構中，如果60WXW69是其中的一個判斷條件,則正確描述的測試

項應該寫成。

A.Case60<=X<=69B.CaseX>=60AndX<=69

C.Case60To69D.CaseIs<=69,Is>=60

17.閱讀以下程序，運行該程序，單擊窗體，則在窗體上顯示o

PrivateSubFormClickO

DimiAsInteger

Fori=1To5

i=i+1

Nexti

Printi

EndSub

A.5B.6C.7D.8

18.下列有關控件數組的說法中，錯誤的是。

A.控件數組可以在設計時創建，也可以在運行時創建

B.命令按鈕可以和標簽組成控件數組

C.控件數組通過索引號來指定某個捽件元素

D.控件數組具有相同的名稱，共享同樣的事件過程

19.有如下事件過程：

PrivateSubCommand1_C1ick()

StaticnAsInteger

DimmAsInteger

Cis

Form=1to3

n=m+n

Nextm

Printm,n

EndSub

程序運行時，兩次單擊Commandl命令按鈕后，窗體上的顯示結果為一°

A.36B.312C.46D.412

20.下列有關單選鈕、復選框和框架的說法中，錯誤的是。

A.框架中的單選鈕和復選框將隨框架一起移動、顯示和消失；

B.若要在框架中創建單選鈕，只需將窗體上的單選鈕拖到框架中即可；

C.框架的主要功能是用于對窗體上一些對象的分組，以便提供視覺上的區分；

D.對于框架中的單選鈕來說，它的操作不會影響框架外單選鈕的操作。

21.關于順序文件的描述，下列說法中正確的是。

A.可以用兩個不同的文件號同時打開?個順序文件來進行讀操作或寫操作；

B.使用Output模式打開一個順序文件進行寫操作時，如果文件已經存在，則用新的數

據來取代原文件中的數據；

C.如果打開了一個順序文件進行讀操作，那么讀操作結束后必須要用Close語句來關

閉己打開的文件；

D.用Append模式打開一個文件進行寫操作，如果文件不存在，則無法對該文件進行寫

數據，如果文件已經存在，則從末尾開始寫數據。

22.關于列表框的Text屬性，下列所描述的含義與Listl.Text等價。

A.Listl.ListB.Listl.Listindex

C.Listl.List(Listl.Listindex)D.Listl.List(Listindex)

23.對時鐘控件來說，它不具有的屬性是。

A.IntervalB.Visible

C.EnabledD.Name

24.下列控件中，具有Caption屬性的控件是。

A.滾動條B.列表框

C.計時器D.框架

25.在VB中，下列關于控件的屬性或方法中，搭配錯誤的有個。

(1)Picturel.Print(2)Timer1.Height(3)Textl.Print

(4)Listl.Removeltem(5)Vscrolll.Value(6)Commandl.Value

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

26.在窗體上創建驅動器列表框Drivel和目錄列表框Dirl,如果希望改變Drivel中的驅

動器時，Dirl中顯示的目錄也隨之變化，則在Drivel的Change事件中的代碼正確的

是。

A.Dirl.Path=Drivel.PathB.Drivel.Drive=Dirl.Path

C.Dirl.Path=Drivel.DriveD.Drivel.Path=Dirl.Path

27.在使用菜單編輯器設計菜單時，必須設置的菜單項屬性是。

A.IndexB.NameC.CheckedD.Visible

28.下列關于改變滾動條Value屬性值的方法，錯誤的是。

A.單擊滾動條兩端的三角鈕可以改變其Value屬性值；

B.可以通過賦值語句來改變滾動條的Value屬性值；

C.單擊滾動條滑塊兩端的空白處可以改變其Value屬性值；

D.單擊滾動條上的滑塊可以改變其Value屬性值。

29.若選中單選鈕Optl時執行某個操作，則下列IF語句中條件表達式表述不正確的

是。

A.IfOptl=TrueThenB.IfOptl.Value=1Then

C.IfOptlThenD.IfOptl.Value=-1Then

30.窗體上有一列表框Listl,其+ISM：/吉犯*。龍強收中

所有選中的列表項均顯示在窗體上,B.Fori=0ToListl.ListCount-1

IfListl.Selected(i)=TrueThen

PrintListl.List(Listindex)

A.Fori=0ToListl.ListCount-1

IfListl.Selected(i)=TrueThenEndIf

PrintListl.TextNexti

EndIf

Nexti

C.Fori=0ToListl.ListCount-ID.Fori=0ToListl.ListCount-1

IfListl.Selected(i)=TrueThenIfListl.Selected(i)=TrueThen

PrintListl.List(i)PrintListl.List(Listl.Listindex)

EndIfEndIf

Nexti

二、分析程序，寫結果(本題10個空，每空2分，共20分)

1.運行下列程序，單擊窗體，當在Inputbox輸入框中輸入值為7時，窗體上顯示的內容

是一(1),本程序的功能是(2)。

PrivateSubForm_Click()

DimS$,n%,a%

n=Val(InputBox("請輸入一個十進制整數：”))

S=,H,

DoWhilen<>0

a=nMod2

n=n\2

S=Chr(Asc(“0")+a)&S

Loop

Prints

EndSub

2.運行下列程序，單擊窗體，則在窗體上顯示的第一行內容是(3),第二行內容

是一(4),第四行內容是(5)。

PrivateSubForm_Click()

Dima(2,3)AsInteger,b(lTo6)AsInteger

DimiAsInteger,jAsInteger

Fori=1TO2

Forj=1To3

a(i,j)=i*3+j*2+3

Printa(i,j);

b((i?l)*3+j)=2*a(i,j)

Nextj

Print

Nexti

Fori=1ToUBound(b)

PrintRight(u0M&CStr(b(i))&"b”,3),

IfiMod3=0ThenPrint

Nexti

EndSub

3.運行下列程序，當單擊Commandl時，窗體上顯示的第二行內容是(6),第四行

內容是(7)。

PrivateSubCommandl_Click()

PrintTest(5)

EndSub

PrivateFunctionTest(tAsInteger)AsInteger

Ift>=1Then

Test=2*Test(t-2)+1

PrintChr(Asc("An)+1)

EndIf

EndFunction

4.運行下列程序，單擊窗體后，則在窗體上顯示的第一行內容是一（8）,第二行內

容是（9）,第四行內容是一（10）.

DimmAsInteger

PrivateSubForm_Click（）

DimxAsInteger,yAsInteger

x=3:y=2:m=2

subly,x

Printx,y,m

Callsubl（x,y）

Printx,y,m

EndSub

PrivateSubsubl（xAsInteger,ByVaiyAsInteger）

DimmAsInteger

x=m*2+y

y=x+1

m=m+y

Printx,y,m

EndSub

三、完善程序（本題15個空，每空2分，共30分）

1.在窗體上有1個時鐘控件Timerl,l個文本框Textl（支持多行顯示，并帶有垂直滾動條），

1個復選框Checkl和1個命令按鈕CmdClose,設計時的窗體界面如圖1所示，程序運行時,

若復選框被選中，則時鐘開始工作,并每隔2秒鐘在文本框中添加顯示一次系統的當前時間；

若單擊“退出”按鈕，結束程序運行。運行時的窗體界面如圖2所示。請將屬性設置表和程

序中的空白處補充完整。

-1□Ixj,1□1x|

11:10:14A

11:10:16

11:10:18

11:10:20一

11:10:22

11:10:24

二J:ZJ

?「時鐘開/關

退出p1時鐘開/關:退出

..............................J

圖1圖2

對象NameCaptionEnabledMultilineIntervalScrollBars

窗體FormlFormlTrue無定義無定義無定義

文本框Textl無定義True(1)無定義2

時鐘Timer1無定義False無定義(2)無定義

復選框Checkl時鐘開/關True無定義無定義無定義

命令按鈕CmdClose退出True無定義無定義無定義

PrivateSubCheckl_Click()

IfCheck1.Value=(3)ThenTimer1.Enabled=True

EndSub

PrivateSubTimerl_Timer()

DimstrTimeAsString

strTime=Time$

Textl=(4)

EndSub

PrivateSubCmdClose_Click()

(5)Me

EndSub

-=(1+—)x(1+—)x(1+—i-)x---x(l+

)x???

2.已知21x33x55x7(2〃-l)x(2〃+1)

下述程序的功能是用這個公式求出n的近似值，規定當n取某一值時，若

________1________

(2〃T)X(2〃+1)<]06,則停止運算。

PrivateSubCommandl_Click(),ForalED回區

Dimn&,sum!,t!

⑹八|3.140023

n=1EOT

t=1/(1*3)

DoWhilet>0.000001

sum=sum*(1+t)

n=n+1

t=(7)

Loop

Textl.Text=sum*2

EndSub圖3

3.本程序功能用于求1!+2!+3!+……+9!+10!的值。

PrivateSubForm_Click()

DimSumAsLong,IAsInteger

ForI=1To10

Sum=Sum+Fact(I)

NextI

PrintHSUM=Sum

EndSub

PrivateFunctionFact(⑻)AsLong

Fact=1

DoWhilex<>0

Fact=Fact*x

⑼

Loop

EndFunction

4.下述程序的功能是:從文件D:\filel.txt中讀出所有數據(均為整型)，保存在動態數組a

中，然后用選擇排序法，使得數組a的元素按從小到大排好序。

PrivateSubForm_CIick()

Dimi%,n%,min%,imin%,j%,temp%,a()AsInteger

n=0

(10)

DoWhileNotEOF(l)

n=n+1

(11)

Input#1,a(n)

Loop

Fori=1ToUBound(a)

Printa(i);

Nexti

Print

Fori=1ToUBound(a)-1

min=a(i)

imin=i

Forj=(12)

Ifmin>a(j)Thenmin=a(j):imin=j

Nextj

Ifimin<>iThentemp=a(i):a(i)=min:a(imin)=temp

Nexti

Fori=1ToUBound(a)

Printa(i);

Nexti

EndSub

5.下述程序的功能是找出所有的四位正整數，它的9倍恰好是其反序數，并將該數與其反

序數寫入一個順序文件中(D:\file2.txt)。文件file2.txt結果如圖4所示。

PrivateSubCommandl_Click()

DimkAsLong,newkAsLong

Open"D:\file2.txt”ForOutputAs#1文件@）編輯魚）格式

查看（V）幫助篁）

10899801

Fork=100()To9999

If(13)Then

newk=9*k

Print#1,k,newk

EndIf

Nextk

Close#1

EndSub圖4

PrivateFunctionFun1(ByVainAsLong)AsLong

DimmAsLong,newlAsLong,kAsInteger

(14)

new1=0

Fork=1To4

newl=newl*10+mMod10

m=(15)

Nextk

Ifn*9=newlThen

Funl=newl

Else

Funl=0

EndIf

EndFunction

四、編程題(20分)

1.(8分)在Form_Click事件過程中編寫程序，調用InputBox函數輸入x的值，根據下式

計算對應的y,并在窗體上輸出y的值。

y=JX3+-ex-2<x<2

3

5-\/x+Inxx>2

2.（12分）編寫程序，利用隨機函數產生10個三位隨機正整數，并將它們存入一個一維

數組A中，從中找出所有的素數，并顯示它是原數組A中的第幾個數。程序界面如圖5所

不O

?Foral

675613171622258577760335509991

素數及位置產生數組

赫毅愛其檢置］

清除

圖5圖6

【編程要求】

1、單擊“產生數組”按鈕Command1,產生一個含有10個元素的一維數組A,并將其各元

素顯示在圖片框Picture1中；

2、程序中應定義一個名為prime的通用函數過程，用于判斷某正整數是否為素數；

3、單擊“找素數及其位置”按鈕Command2,則調用用戶自定義函數過程prime,找出A數

組中的所有的素數，并顯示它是原數組A中的第幾個數，并將結果按指定格式顯示到列

表框Listl中；若數組A中沒有素數，則用MsgBox彈出一個顯示“沒有一個素數”的

提示信息框，如圖6所示。

4、單擊“清除”按鈕Commands,則將圖片框Picture1和列表框Listl清空，并將焦點置于“產

生數組”按鈕上。

中國礦業大學2005-2006學年第二學期

《VisualBasic程序設計》試卷（A）卷答案及評分標準

考試時間：120分鐘考試方式：閉卷

一、選擇題（本題共30小題，每小題1分，共30分）

(1)C(2)D(3)D(4)A(5)c

(6)A(7)B(8)B(9)C(10)B

(11)B(12)B(13)B(14)C(15)D

(16)C(17)C(18)B(19)D(20)B

(21)B(22)C(23)B(24)D(25)B

(26)C(27)B(28)D(29)B(30)C

二、分析程序，寫結果（本題10個空，每空2分，共20分）

答題內容（學生填寫）（需在一行內答完，不得換行

答題序號

答題）

1、(1)111

(2)十進制轉換為二進制

2、(3)81012

(4)111315

(5)22b26b30b

3、(6)D

(7)7

4、(8)344

(9)332

(10)332

三、完善程序（本題15個空，每空2分，共30分）

答題內容（學生填寫）

答題序號

（需在一行內答完，不得換行答題）

(1)True

(2)2000

1

(3)1

(4)Textl+strTime+vbCrLf(無vbCrLf,半對)

(5)Unload

(6)sum=1

2

(7)1/((2*n-1)*(2*n+1))

ByVaixAsInteger

(8)

3無ByVai,半對

(9)x=x-1

4(10)Open"D:\filel.txt"ForInputAs#1

ReDimPreservea(n)

(11)

無Preserve,半對

(12)i+1ToUBound(a)

Funl(k)<>0或Funl(k)或Funl(k)=9*k

(13)

將Funl(k)寫成Funl,半對

5

(14)m=n

(15)m\10

四、編程題(本題共20分)

第一題答案及評分標準：

PrivateSubForm_Click()

DimxAsSingle,yAsSingleV

'或DimxAsDouble,yAsDouble

’這里只要y為Double或Single,x可以是所有數值類型

x=Val(InputBox「請輸入X值"))V

Ifx<-2Then

y=xA2/(x+l)

Elselfx<=2Then

y=xA3+Exp(x)/3

Else

y=5*Sqr(x)+Log(x)5，

EndIf

PrintMy=n;yV

EndSub

第二題答案及評分標準：

Dima(lTo10)AsIntegerV

PrivateSubCommandl_Click()3'

DimiAsInteger

Randomize

Fori=1To10

a(i)=Int((999-100+1)*Rnd+100)

Picturel.Printa(i);

Nexti

EndSub

PrivateSubCommand2_Click()3’

DimnumAsInteger

Fori=1To10

Ifprime(a(i))Then

Listl.Additema(i)&''=>''&i

num=num+1

EndIf

Nexti

Ifnum=0ThenMsgBox”沒有一個素數”

’這里不定義num,用Listl.ListcountoO也對

EndSub

PublicFunctionprime(ByValmAsInteger)AsBoolean3'

DimiAsInteger

prime=True

Fori=2ToInt(Sqr(m))

IfmModi=0Then

prime=False

ExitFor

EndIf

Nexti

EndFunction

PrivateSubCommand3_Click()2'

Picturel.Cls

Listl.Clear

Commandl.SetFocus

EndSub

2004?2005第二學期VB

期末考試筆試試題（120分鐘）

一、選擇題（本題30小題，每題1分，共30分）

1.以下敘述中，錯誤的是o

A.VB是事件驅動型可視化編程工具

B.VB窗體文件包含該窗體及其控件的屬性，窗體級的常量、變量的定義等

C.VB工具箱中的所有控件都具有寬度（Width）和高度（Height）屬性

D.VB中控件的某些屬性只能在運行時修改

2.以下說法中，錯誤的是o

A.方法是構成對象實體的一個部分

B.方法是一種特殊的過程或函數

C.調用方法的一般格式是：［對象名.］方法名［參數］

D.圖片框和列表框均可執行Cis方法

3.在VisualBasic中，每個對象?般都能感知和接收多個不同的事件，并能對這些事件作出響

應，其響應方式就是通過調用執行一個與之相對應的—來實現的。

A.事件過程B.通用過程

C.主程序D.SubMain過程

4.在某事件過程中，以下聲明語句正確的是o

A.ConstepsAsSingle

B.Dimivar=,,ABCn

C.DimnAsInteger,a(lton)AsInteger

D.StaticmAsInteger

5.設x=12,y=10,z=8,執行語句Printx<y<z后，窗體上顯示的是。

A.TrueB.FalseC.-1D.出錯信息

6.表達式4+5\6*7/8的結果為o

A.4B.5C.6D.7

7.執行下面語句的正確顯示結果是。

PrintFormat(+2004.601,"+##,###.0000")

A.+2,004.601B.++#2,004.601C.#2,004.6010D.+2,004.6010

8.以下能夠觸發文本框Change事件的是。

A.文本框失去焦點B.文本框獲得焦點

C.清空文本框原有的內容D.文本框設置焦點

9.在某過程中已說明變量a為整型、變量s為字符型，過程中的以下四組語句不能正常執行的

A.s=2*a+1B.s="237"&".11":a=s

C.s="True"D.a=2:s=16400*a

12x+5y-Jdi—m

10.數學表達式e-x-sinx，對應的VB算術表達式為。

A.(12*x+5*y-Sqr(Abs(dA3-mA2)))/Exp(-x)/Sin(x)

B.(12*x+5*y-Sqr(Abs(dA3-mA2)))/Exp(-x)*Sin(x)

C.(12*x+5*y-Sqr(Abs(dA3-mA2))/Exp(-x)/Sin(x)

D.(12*x+5*y-Sqr(Abs(dA3-mA2)))/eA(-x)/Sin(x)

11.以下表達式的值為True的是o

A.Str(23.45)=Trim(u23.45”)

B.Sgn(7Mod3-4)+"-0.25"=-1.25

C.Fix(3.5)+Cint(2.5)=6

D.nitistrue”=1istrue”

12.在窗體上有一文本框(名稱為Textl),有如下代碼：

PrivateSubForm_Click()

Textl.SelStart=5:Textl.SeiLength=3:Textl.SelText="hello"

EndSub

運行該程序在文本框中輸入：thisisabook。然后單擊窗體，在文本框中將顯示。

A.thisisabookB.thishelloabook

C.thishelloabookD.thishelloabook

13.滾動條控件的LargeChange屬性所設置的是。

A.單擊滾動條上空白區域時，滾動條控件Value屬性值的改變量

B.單擊滾動條兩端的箭頭時;滾動條控件Value屬性值的改變量

C.單擊滾動條上空白區域時，滾動條上滑塊將移動到Value屬性的最大值位置

D.單擊滾動條兩端的箭頭時，滾動條上滑塊的最大移動范圍

14.在SeleclCaseX結構中，如果5WXW10是其中的一個判斷條件，則正確描述

5WXW10的測試項應該寫成0

A.Case5<=X<=10B.Case5<=X,X<=10

C.Case5To10D.CaseIs<=10,Is>=5

15.若需要在同一窗體內安排兩組相互獨立的單選鈕（OptionButton）,可使用

控件將它們分隔開。

①TextBox②PictureBox③Image④Frame

A.①②B.②③C.②④D.③④

16.將字符串“likeVB"添加到列表框的最后，可使用_______語句。

A.List1.AddItem"IlikeVBu,List1.ListCount-1

B.List1.Additem"IlikeVB",Listl.ListCount+l

C.List1.Additem"IlikeVBList1.Listindex

D.List1.AdditemnIlikeVBU

17.以下關于復選框的說法，正確的是。

A.一個窗體上的所有復選框一次只能有一個被選中

B.一個框架中的所有復選框一次只能有一個被選中

C.若選中一個復選框，則另一個已被選中的復選框自動變為不被選中

D.無論是在框架中還是在窗體中，都可以同時選中多個復選框

18.如果一個工程含有多個窗體及標準模塊，則以下敘述中正確的是。

A.如果工程中含有SubMain過程，則程序一定首先執行該過程

B.可以把標準模塊設置為啟動模塊

C.用Hide方法只是隱藏一個窗體，并沒有從內存中卸載該窗體

D.要用Show方法來顯示?個窗體時，該窗體必須已在內存中

19.要將一個組合框設置為簡單組合框，則應將其Style屬性設置為。

A.0B.1C.2D.3

20.為使計時器控件每隔3秒鐘產生一個計時器事件（Timer事件），則應將其Interval屬性的

值設置為。

A.3B.300C.3000D.180

21.以下有關文件的說法中正確的是o

A.打開文件命令中，所指定的文件號最大可取512

B.在Input方式下，不能使用不同文件號同時打開同一個文件

C.若以Output或Append方式打開一個不存在的順序文件，系統會出錯

D.若以Input方式打開一個不存在的順序文件，系統會出錯

22.若要在窗體上彈出個輸入信息對話框，其標題為“輸入對話框”，提示信息為"請輸入您的姓

名”，缺省信息為空,對話框在屏幕上顯示位置的x坐標和y坐標均為100,則使用正確的InpulBox

函數是o

A.InputBox（"請輸入您的姓名",”輸入對話框”,100,100）

B.11^1^<?（"請輸入您的姓名","輸入對話框",,100,100）

C.血岫（》（"輸入對話框","請輸入您的姓名",100,100,）

D.InputBox（"輸入對話框"，"請輸入您的姓名",,100,100）

23.執行下面的程序，當單擊窗體時，窗體上顯示的是。

PrivateSubFonn_Click（）

DimIAsInteger,sAsInteger

ForI=5To32Step9

s=s+I

NextI

s=s+I

Prints,I

EndSub

A.7432B.7441C.11541D.11532

24.下面四組均為正確的VB常量是o

A.3276,123.56,1.2E-2,#True#

B.-32768,1.34D2,"ABCDE",25!

C.&HABCE,02-03-2002,False,D-3

D.ABCDE,#02-02-2002#,E-2

25.以下關于數組的說法中，錯誤的是。

A.可用Public語句在窗體模塊的通用說明處定義一個全局數組。

B.對數組的輸入輸出處理常常和循環結合在…起使用。

C.控件數組可以在設計時創建，也可以在運行時創建。

D.在過程中用ReDim語句定義的動態數組，其下標的上下界可為賦了值的變量。

26.在用菜單編輯器設計菜單時，必須輸入的是。

A.標題B.名稱C.快捷鍵D.熱鍵

27.若要定義一個變量，希望能夠在該窗體的所有事件過程中都能夠訪問，可以將其定義為

①靜態變量②局部變量③窗體/模塊級變量④全局變量

A.①②③B.②③④C.③④D.①④

28.在窗體Forml中用"PublicSubF(xAsSingle)"定義過程F,在窗體Form2中定義了變量i為

Integer型，則若要在窗體Form2的某事件過程中調用窗體Forml中的過程E下列語句中錯誤

的是o

A.CallForml.F(i)B.CallForml.F((i))

C.Forml.F(i)D.Forml.Fi+1

29.窗體上有一個標簽Label1,假設已存在三個整型變量a、b和c,且變量a、b和c的值分別

為1、2和3。以下的語句可以使標簽內顯示的內容為：3=1+2

A.Label!.Caption=c=a+bB.Label1.Caption=nc=a+b"

C.Labell=c&M="&a&&bD.Label1.Printc&H="&a&&b

30.在窗體上有一個名稱為Command1的命令按鈕，然后編寫如下程序：

PrivateSubCommandl_Click()

StaticnAsInteger

DimmAsInteger

Cis

m=2

m=m+5

n=m+n

Printm,n

EndSub

程序運行時，三次單擊Command1命令按鈕后，窗體I：的顯示結果為。

A.721B.217C.714D.77

二、分析程序，寫結果(本題10個空，每空2分，共20分)

1.執行下面的程序，當單擊窗體時，第一行顯示的是(1),第二行顯示的是(2)—,

第三行顯示的是(3)。

PrivateSubForm_Click()

DimA(5,5)AsInteger

DimIAsInteger,JAsInteger

ForI=2To3

ForJ=2To3

A(LJ)=(I-1)*2+J

If1=3ThenPrintA(I,J)

NextJ

NextI

PrintA(I,J)

EndSub

2.執行下面的程序，當單擊命令按鈕Commandl時，窗體的第二行顯示的是(4),第四行

顯示的是(5)。(注：小寫字母a的ASCH值為97)

PrivateSubCommand1_Click()

DimsAsString,iAsInteger,siAsString

i=Asc(Man)

si=

Do

i=i+1

s=si+UCase(Chr(i))

si=Mid(s,2,l)&Right(s,2)

Printsi

LoopUntili>=100

Prints

EndSub

3.執行下面的程序，當單擊窗體時，在窗體上第一行顯示的是(6),第二行顯示的是(7)。

DimxAsInteger,yAsInteger

PrivateSubp(mAsInteger,ByVainAsInteger)

m=m+2

x=2*m

n=xMod3

Printm,n

EndSub

PrivateSubForm_Click()

x=2:y=3

Callp(y,x)

Printx,y

EndSub

4.執行下面的程序，單擊命令按鈕Commandl后，窗體的第一行顯示的是(8),第二行

顯示的是(9),第三行顯示的是(10)。

PnvateSubCommandl_Click()

DimiAsInteger,xAsInteger

Fori=1To3

x=x+m(i)

Printx

Nexti

EndSub

PrivateFunctionm(ByValiAsInteger)AsInteger

Ifi=1Then

m=3

ElseIfi>=2Then

m=m(i-1)+i

EndIf

EndFunction

三、完善程序(本題10個空，每空2分，共20分)

1.下面程序的功能是找出10到