模擬試題一

I.VB是一種面向?qū)ο髸r(shí)程序設(shè)計(jì)語言，()不是面向?qū)ο笙到y(tǒng)所包括口勺三要素。

A.屬性B.變量C.措施D.事件

2.不管何控件，共同具有口勺是()屬性。

.A.Captio..B.Tex...C.Nam...D.ForeColor

3.程序代碼如下：

Commandl.Caption="確定”,則Command1、Caption、“確定"分別代表()

A.屬性、對象、值B.對象、值、屬性

C.對象、措施、屬性D.對象、屬性、值

4.下面()是不合法的整型常數(shù)。

.A.27...B.&027...C.&H27...D.278%

5.為了給x、y、z三個(gè)變量賦初值1,下面對的的賦值語句是()。

A.x=y=z=lB.x=l,y=1,z=1

C.x=l:y=1:z=1D.xyz=l

6.賦值語句：a=123+Mid(“123456”，3,2)執(zhí)行后，變量a中時(shí)值是()。

A.”12334”B.12334C.157D.123

7.數(shù)學(xué)關(guān)系3Wx<10表到達(dá)對的的JVB體現(xiàn)式為(

A>3<=x<l................B、3<=.AN.x<10

C、x>=3ORx<10D、3<=xAND<10

8.產(chǎn)生［10,37］之間的隨機(jī)整數(shù)/、JVB體現(xiàn)式()

A.Int(Rnd(l)*27)+10B.Int(Rnd(1)*28)+10

C.Int(Rnd(1)*27)+11D.Int(Rnd(1)*28)+11

9.體現(xiàn)式16/4-2-5*8/.MO.5\2的值為.)。

A.20B.14C.4D.2

10.對命令按鈕的Picture屬性裝入.bmp圖形文獻(xiàn):后，命令按鈕上并沒有顯示圖

形，原因是沒有對（）屬性設(shè)置為1。

A.MouscPictrucB.Style

C.DownPictureD.DisabledPicture

11.下列對象中不能做為容器的控件是（）。

A.窗體B.PictureBox控件

C.Image控件D.Frame控件

12.下面程序段運(yùn)行后，顯示成果是（）。

Dimx

IfxThenPrintxElsePrintx+1

A.OB.1C.-1D.顯示出錯(cuò)信息

13.循環(huán)語句Fori=-3.5To5.5Step-0.5的J循環(huán)次數(shù)是（）。

A.20B.19C.18D.0

14.如下數(shù)組申明語句Dima（3,-2to2,5）AsLong,則數(shù)組a包括元素的個(gè)數(shù)是（）。

A.120B.75C.60D.13

15.決定組合框樣式的屬性是（）o

A.ListB.TextC.StyleD.Caption

16.滾動(dòng)條H勺（）屬性用于返回或設(shè)置滾動(dòng)條H勺目前值。

A.ValueB.MaxC.MinD.Data

17.下面子過程語句闡明合法的是（）。

A.Functionfl%(f1%)B.functionfl(ByVain%)

C.Subfl(Byvaln%())D.Subfl(n%)AsInteger

18.在過程中定義的J變量，若但愿在離開該過程后，還能保留過程中局部變量的值，則應(yīng)使

用（）關(guān)鍵字的在過程中定義局部變量。

A.StaticB.PublicC.PrivateI).Dim

19.下列控件中沒有Caption屬性的是（）。

A.框架B.單項(xiàng)選擇按鈕C.列表框D.復(fù)選框

20.如下不屬于鍵盤事件日勺是（.

A.KeyDownB.KeyUpC.UnloadD.KeyPress

21.下列有關(guān)菜單的說法，錯(cuò)誤的是（）。

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

B.菜單項(xiàng)艮I快捷鍵不能任意設(shè)置

C.在程序運(yùn)行時(shí)，假如菜單項(xiàng)的Enabled屬性為False,則該菜單項(xiàng)編程灰色，不能被顧

客選擇

D.除了Click事件之外,菜單項(xiàng)還能響應(yīng)其他U勺事件，如DblClick

22.下列有關(guān)通用對話框日勺論述中，錯(cuò)誤時(shí)是（）。

A,通用對話框可以用來制作和顯示“協(xié)助”對話框

B.CommonDialogl.ShowFont顯示"字體"對話框

C.在“打開”或“另存為”對話框中，顧客選擇的文獻(xiàn)名可以經(jīng)FileTitle屬性返回

D.在“打開”或“另存為”對話框中，顧客選擇的文獻(xiàn)名及其途徑可以經(jīng)FileName屬性返

回

23.指令“Circle（1000,1000）,500,,-6,一3”將繪制

A.畫圓B.橢圓C.扇形D.圓弧

24.假如列表框（Lisll）有四個(gè)數(shù)據(jù)項(xiàng)，把數(shù)據(jù)項(xiàng)“數(shù)據(jù)庫原理”添加到列表框的最終，應(yīng)

使用（）語句。

A.ListI.Additem”數(shù)據(jù)庫原理,List1.ListCount

B.List1.Additem”數(shù)據(jù)庫原理”，Listl.ListCount-1

C.List1.Additem3,“數(shù)據(jù)庫原理”

D.Listl.Additem”數(shù)據(jù)庫原理”，3

25.VB提供了構(gòu)造化程序設(shè)計(jì)的三種基本構(gòu)造，三種基本構(gòu)造是..）。

A.遞歸構(gòu)造、選擇構(gòu)造、循環(huán)構(gòu)造

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

A.北京..B.上海..C.天津..D.重慶

二、填空題(每空2分，共20分)

1.VB是一種面向?qū)ο蟮目梢暬绦蛟O(shè)計(jì)語言，采用了」1］_的編程機(jī)制。

2.算術(shù)體現(xiàn)式|x+y|+35寫成VB體現(xiàn)式R勺形式為［2］。

3.使文本框可以獲得焦點(diǎn)的措施是［3］。

4.表達(dá)x是5R勺倍數(shù)或是9H勺倍數(shù)H勺邏輯體現(xiàn)式為141。

5.Inputbox函數(shù)H勺返回值是［5］類型,Msgbox函數(shù)時(shí)返回值是［6］類型。

7.在調(diào)用自定義函數(shù)時(shí)，參數(shù)H勺傳遞有［7］和［81兩種形式。

7.在默認(rèn)狀況下，如下數(shù)組申明語句中Dims(4,4)AsInteger,第二個(gè)數(shù)組元素的引用形式

是［9］。

8.假如要每隔⑵觸發(fā)?種Timer事件，則Interval屬性應(yīng)設(shè)置為［10］。

三、寫出下列程序的對的運(yùn)行成果(每題5分，共10分)

1.Privat.Su.Commandl_Click.)

x=Int(Rnd)+3

IfxA2>8Theny=xA2+l

IfxA2=9Theny=xA2-2

IfxA2<8Theny=xA3

Print“y二”：y

EndSub

2.PublicSubSwap(ByValxAsInteger,yAsInteger)

DimtAsInteger

t=x：x=y：y=t

EndSub

PrivateSubCommandI_Click()

DimaAsInteger,bAsInteger

a=30：b=20

Swapa,b

Print“a=”；a;“b二"；b

EndSub

四、程序設(shè)計(jì)題(10分)

求1+2+3+……+100累加和(單擊窗體執(zhí)行程序)。

答案

一、選擇題(每題2分，共6()分)

BCDBCCBBCBCBDACABACCDACADBBDBC

二、填空題(每空2分，共20分)

[1]事件驅(qū)動(dòng)【2】Abs(x+y)+3A5[31SetFocus

[4]xmod5=0orxmod9=0[5]字符[6]數(shù)值[7]傳值

【8】傳址【9】s(l,l)[1011

三、寫出程序H勺對的運(yùn)行成果(每題5分，共10分)

l.y.7

2.a=3.b=3O

四、編程題(10分)

Privatesubform_click()

Dimi%,s!(2‘)

S=0(2‘)

Fori=lto100Q')

S=s+I(2')

Next

Print"s=”;s(2')

EndSub

模擬試題二

一、選擇題（四個(gè)選擇項(xiàng)中，有一種為對的答案。每題2分，共50分）

1.下列符號中哪個(gè)是VB程序中合法的變量名（）。

A.123abcB.integerC.X_yzD.X-Y

2.程序代碼如下:

TextI.text="VisualBasic"，則Text11、text、uVisualBasicn分別代表()

A、對象、屬性、值B、對象、值、屬性

C、對象、措施、展性D、屬性、對象、值

3.文本框沒有（）屬性

A.EnabledB、Visible

C.BackColorD.Caption

4.下面（）是不合法H勺整型常數(shù)。

.A.27....B.&027....C.&H27.........D.278%

5.體現(xiàn)式16/4-2人5*8/4MOD5\2aJ值為()。

A.20B.14C.4D.2

6.下面對的的賦值語句是()。

A.x+y=30B、y=n*r*rC、y=x+30D、3y=x

7.用If語句表達(dá)分段函數(shù)

/x+lx>=1

f(x)=',

X2+3X<1

下列不對的時(shí)程序段是()。

A.Ifx>=lThenB.IfxvIThen

f=sqr(x+l)f=x*x+3

ElseElse

f=x*x+3f=sqr(x+1)

EndIfEndIf

C.Ifx>=lThenf=sqr(x+l)D.Ifx>=lThenf=sqr(x+1)

Ifx<lThenf=x*x+3f=x*x+3

8.循環(huán)語句Fori=-3.5To5.5Step-0.5的循環(huán)次數(shù)是（）。

A.20B.19C.18I）.0

9.數(shù)學(xué)關(guān)系3/x<10表到達(dá)對的的VB體現(xiàn)式為（）

A、3<=x<10B、3<=xANDx<10

C、x>=3ORx<10D、3<=xAND<10

10.在數(shù)組申明語句Dima（3,-2lo2,5）AsLong中，數(shù)組a包括元素的個(gè)數(shù)為（）。

A、13B、60C、75D、120

11.滾動(dòng)條的（）屬性用于返回或設(shè)置滾動(dòng)條的目前值。

A、ValucB、MaxC、MinD、Data

12.在過程中定義的變量，若但愿在離開該過程后，還能保留過程中局部變量的值，則應(yīng)使

用（）關(guān)鍵字在過程中申明局部變量。

A、PrivateB、PublicC、StaticD、Dim

13.假如列表框（Listl）有四個(gè)數(shù)據(jù)項(xiàng)，把數(shù)據(jù)項(xiàng)“數(shù)據(jù)庫原理”添加到列表框的最終，應(yīng)

使用（）語句。

A.Listl.Addltcm”數(shù)據(jù)庫原理”,Listl.ListCount

B.Listl.Additem”數(shù)據(jù)庫原理“，Lisll.ListCouni-1

C.Listl.Additem3,“數(shù)據(jù)庫原理”

D.List!.Additem“數(shù)據(jù)庫原理”，3

14.要從磁盤上讀入一種文獻(xiàn)名為“c:\tl.txt”日勺次序文獻(xiàn)，下列（）對日勺。

A.f="c:\tl.txtnB、f二"c:\tl.txtw

Open"f"ForInputAs#1OpenfForInputAs#1

C.Opcnnc:\tl.txtvForoutputAs#1D.Opcnc:\tl.txtForinputAs#1

15.下列有關(guān)菜單的說法中，錯(cuò)誤的是（）。

A、每個(gè)菜單項(xiàng)都是?種控件，與其他控件同樣也有自己日勺屬性和事件。

B、菜單項(xiàng)的快捷鍵不能任意設(shè)置。

C、除了Click事件之外，菜單項(xiàng)還能響應(yīng)DblClick事件。

D、在程序執(zhí)行時(shí)?，假如菜單項(xiàng)H勺Enabled屬性為False,則該菜單項(xiàng)變成灰色,

不能被顧客選擇。

16.指令Circle（lOOOJOOO）,500,8,-6,-3將繪制（）。

A.圓弧B.扇形C.圓D.橢圓

17.下列有關(guān)通用對話框的論述中，錯(cuò)誤的是（）。

A.通用對話框可以用來制作和顯示“協(xié)助”對話框

B.CommonDialogl.ShowFonl顯示"字體”對話框

C.在“打開”或“另存為”對話框中,顧客選擇的文獻(xiàn)名可以經(jīng)FileTitlc屬性返回

D.在“打開”或“另存為”對話框中，顧客選擇的文獻(xiàn)名及其途徑可以經(jīng)FileName屬性返

回

18.對命令按鈕的Picture屬性裝入.bmp圖形文獻(xiàn)后，命令按鈕上并沒有顯示圖

形，原因是沒有對（）屬性設(shè)置為lo

A.MousePictrueB.StyleC.DownPictureD.DisabledPicture

19.當(dāng)顧客對滾動(dòng)條施以（）動(dòng)作時(shí)，便觸發(fā)了滾動(dòng)條的Scroll事件

A.單擊滾動(dòng)條的左右按鈕時(shí)B、雙擊滾動(dòng)條H勺左右按鈕時(shí)

C.單擊滾動(dòng)條的J空白處時(shí)D.拖動(dòng)滾動(dòng)條的滑塊時(shí)

20.要使Print措施在FormJLoad事件中起作用，要對窗體的（）屬性進(jìn)行設(shè)

置。

A.AutoRedrawB.CaptionC.BackStyleD.Visible

21.下列有關(guān)鍵盤事件日勺說法中，對『、J的是()。

A.按下鍵盤上H勺任意一種鍵都會觸發(fā)KeyPress事件

B.大健盤上的“1”鍵和數(shù)字鍵盤H勺“1”鍵口勺KeyCode碼相似

C.KeyDown和KeyUp的事件過程中均有KeyCode參數(shù)

【).KeyDown和KeyUpH勺事件過程中均有KeyAscii參數(shù)

22.在一種多窗體程序中，F(xiàn)orml是啟動(dòng)窗體，當(dāng)程序運(yùn)行后要想顯示Form2窗體，對日勺日勺

語句是..)。

A.ShowForm2B.Form2.showC.LoadForm2D.Form2.Load

23.決定組合框樣式的屬性是..)0

A.ListB.TextC.StyleD.Caption

24.下列對象中不能做為容淵H勺控件是..)。

A.窗體B.Image控件C.PictureBox控件D.Frame控件

25.下面子過程語句闡明合法H勺是..)。

A.Functionfl%(fl%)B.Functionfl(ByVain%)

C.Subfl(Byvaln%())1).Subfl(n%)AsInteger

二、填空題(每空1分，共20分)

1.VB是一種面向［1］的可視化程序設(shè)計(jì)語言，采用了」2］_的編程機(jī)制。

2.算術(shù)體現(xiàn)式|x+y|+35寫成VB體現(xiàn)式的形式為［3］。

3.使文本框可以獲得焦點(diǎn)H勺措施是［4］。

4.Inputbox函數(shù)日勺返回值是［5］類型，Msgbox函數(shù)的返回值是|6］類型。

5.在調(diào)用自定義函數(shù)時(shí)，參數(shù)的傳遞有［7］和［8］兩種形式。

6.在如下數(shù)組申明語句中Dims(4,4)AsInteger,第一種數(shù)組元素日勺引用形式是［9］。

7.假如要每隔0.5s觸發(fā)一種Timer事件，則Interval屬性應(yīng)設(shè)置為［10］o

8.單項(xiàng)選擇按鈕和復(fù)選柩均有Value屬性，但兩者該屬性值日勺類型不?樣樣，其中單項(xiàng)選擇

按鈕該屬性值類型為［11］，復(fù)選框該屬性值類型為［12］。

9.要在程序中顯示通用對話框，要對CommonDialog控件的［13］屬性賦以對的J的值。

10.VB提供了三種訪問文獻(xiàn)的模式，按照訪問模式可以把文獻(xiàn)分為次序文獻(xiàn)、［14］和二進(jìn)

制文獻(xiàn)。

11.使用Line措施畫矩形，必須在指令中使用關(guān)鍵字［15］。

12.窗體上有一命令按鈕，程序運(yùn)行時(shí)，決定該按鈕與否可用應(yīng)設(shè)置的屬性是［16］,決定

該按鈕與否顯示應(yīng)設(shè)置的屬性是［17］。

13.VB程序設(shè)計(jì)語言具有構(gòu)造化程序設(shè)計(jì)H勺三種基本構(gòu)造，即［18］、［19］、

［201o

三、寫出下列程序的對的運(yùn)行成果(每題5分，共10分)

1.Privat.Su.Commandl_Click.)

x=In((Rnd)+3

IfxA2>8Theny=xA2+l

IfxA2=9Theny=xA2-2

IfxA2<8Theny=xA3

Print“y=”;y

EndSub

2.Publi.Su.Swap(ByVa..A.Integer..A.Integer)

DimtAsInteger

t=x：x=y：y=t

EndSub

PrivateSubCommandl_Cl:ck()

DimaAsInteger,bAsInteger

a=30：b=20

Swapa,b

Print“a=”；a;”b="；b

EndSub

四、判斷對錯(cuò)（對的畫“J”，錯(cuò)的畫“X”。每題1分，共10分）

I.若顧客在鍵盤上按下一種鍵，則會觸發(fā)Click事件。（）

2.窗體大小只能通過鼠標(biāo)拖動(dòng)窗體邊框來設(shè)置。（）

3.在編寫程序代碼時(shí)，在同一行上可以書寫多條語句，語句間用“：”分隔。（）

4.在Foi?循環(huán)語句中，能強(qiáng)制退出循環(huán)的語句是EndFor。（）

5.申明數(shù)組時(shí)，數(shù)組的下標(biāo)可以是變量。（）

6.窗體上的Timer控件不可以變化大小。（）

7.自定義函數(shù)過程開始的保留字是“Sub”。（）

8.列表框的List屬性是一種字符型數(shù)組。（）

9.將數(shù)據(jù)寫入次序文獻(xiàn)，一般有打開、寫入、關(guān)閉三個(gè)環(huán)節(jié)。（）

10.PicturcBox和Image兩個(gè)控件都是容器類控件，可在其中寄存其他控件。（）

五、程序設(shè)計(jì)題（1。分）

1.編寫事件代碼，求1—100之間能被5整除或被7整除的數(shù)FI勺累加和，規(guī)定單擊窗體時(shí)執(zhí)

行事件代碼，并在窗體上輸出運(yùn)行成果。

答案

一、選擇題（四個(gè)選擇項(xiàng)中，有一種為對的答案。每題2分，共50分）

CADBCCDBBDACBBCBABDACBCBB

二、填空題（每空1分，共20分）

[1].對象（2）事件驅(qū)動(dòng)[3]Abs(x+v)+3A5[4]SetF'oeus

[5]字符型____[6]數(shù)值（整型）_[7]傳值________.[8]傳址

19]S(0,0)110]500ms[11J邏輯型H2J數(shù)值型（整型）

[13]Action____[14]隨機(jī)文獻(xiàn)_[15]_B___________[16]Enabled

[171Visible[181次序構(gòu)造[191選擇構(gòu)造[20]循環(huán)構(gòu)造

三、寫出下列程序的對的運(yùn)行成果(每題5分，共10分)

l.y.7

2.a.3.b=30

四、判斷對錯(cuò)(對的畫“，錯(cuò)的畫“X”。每題1分，共10分)

XXVXXVXVVX

五、程序設(shè)計(jì)題(10分)

PrivateSubForm_Click()

Dimi%,s!

S=O

Fori=lto100

Ifimod5=0orimod7=0thens=s+i

Nexti

Print“s=”;s

EndSub

模擬試題三

選擇題(每題2分，計(jì)60分)

(1)下列可自動(dòng)設(shè)置滾動(dòng)條口勺控件是()

A)復(fù)選框B)框架0文本框D)標(biāo)簽框

(2)計(jì)時(shí)器控件口勺()屬性用于設(shè)置Timer事件發(fā)生的時(shí)間間隔。

A)StretchB)IntervalC)ValueD)Length

(3)體現(xiàn)式(7\3+l)*(18\5T)口勺值是()

A)6B)7.8C)8.

76D)6.67

(4)函數(shù)InStr("VB程序設(shè)計(jì)教程"，“程序”亦勺值為()

A)1B)2C)3

D)4

(5)有程序代碼如下：

Label1.caption=w程序設(shè)計(jì)”

則label1.caption、”程序設(shè)計(jì)”分別代表()。

A)對象、屬性、值B)對象、值、屬性

0對象、措施、屬性D)屬性、措施、值

(6)Inputbox函數(shù)返回值的類型是()o

A)整型數(shù)值B)字符串C)變體D)數(shù)值或字符串

(7)設(shè)a=6,則執(zhí)行x=IIf(a>5「1,0)后，x時(shí)值為()。

A)5B)6C)0D)-1

(8)產(chǎn)生［60,100］之間的隨機(jī)整數(shù)的VisualBasic體現(xiàn)式是()?

A)Int(Rnd*40)+60B)Int(Rnd*40)+61

C)Int(Rnd*41)+60D)Int(Rnd*41)+61

(9)執(zhí)行語句s=Len(行d("VisualBasic",1,6))后,s的值是

A)VisualB)BasicC)6D)11

(10)下面()是合法的變量名。

A)dimB)m-1C)_123D)X_t6

(11)下面對的的I賦值語句是Oo

A)x=y+3B)x=y=3

C)x+y=3D)3x=y

(12)VB提供了構(gòu)造化程序設(shè)計(jì)的三種基本構(gòu)造，三種基本構(gòu)造是()o

A)遞歸構(gòu)造、選擇構(gòu)造、循環(huán)構(gòu)造

B)選擇構(gòu)造、過程構(gòu)造、次序構(gòu)造

C)過程構(gòu)造、輸入、輸出構(gòu)造、轉(zhuǎn)向構(gòu)造

D)選擇構(gòu)造、循環(huán)構(gòu)造、次序構(gòu)造

(13)確定一種控件在窗體上的位置的屬性是()o

A)Width和HeightB)Width或Height

C)Top和LeftD)Top或Left

(14)在窗體上畫一種名稱為Textl的文本框和一種名稱為Command1的命令按鈕，然后編寫

如下事件過程

PrivateSubCommand!Click()

Textl.Text="Visual”

Text1=*Basic*

Textl="Program”

EndSub

程序運(yùn)行后，假如單擊命令按鈕，則在文本框中顯示的是

A)出錯(cuò)B)VisualC)BasicD)Program

(15)在窗體上畫一種名稱為Textl日勺文本框和一種名稱為Command1的命令按鈕，然后

編寫如下事件過程：

PrivateSubCommard1Click()

I)imarray1(10,10)AsInteger

DimiAsInteger,jAsInteger

Fori=1To3

Forj=2To4

array1(i:j)=i+j

Nextj

Nexti

Textl.Text=array1(2,3)+array1(3,4)

EndSub

程序運(yùn)行后，單擊命令按鈕，在文本框中顯示的值是

A)15B)14C)13D)12

(16)設(shè)菜單中有一種菜單項(xiàng)為"Open、若要為該菜單命令設(shè)計(jì)訪問鍵，即按下Alt及

字母0時(shí)，可以執(zhí)行"Open”命令，則在菜單編輯器中設(shè)置“Open”命令的方式是

A)把Caption屬性設(shè)置為&OpenB)把Caption屬性設(shè)置為O&pen

0把Name屬性設(shè)置為&0penD)把Name屬性設(shè)置為O&pen

(17)在窗體上畫一種名稱為Command】的命令按鈕，然后編寫如下事件過程：

PrivateSubCommand1Click()

x=InputBox("Input")

SelectCasex

Case1,3

Print"分支1"

Case2,4

Print"分支2"

CaseElse

Print"Else分支”

EndSelect

EndSub

程序運(yùn)行后，假如在輸入對話框中輸入2,則窗體上顯示的是()。

A)分支1B)分支2C)Else分支D)程序出錯(cuò)

(18)fork=13to-5step-2循環(huán)次數(shù)為：()。

A)7B)8C)9D)10

(19)用下面語句定義的數(shù)組的元素個(gè)數(shù)是()

Dima(3,1To5)AsInteger

A)8B)15020D)21

(20)在窗體上畫一種名稱為Command1日勺命令按鈕，然后編寫如下事件過程:

PrivateSubCommand1_C1ick()

a$="Program”

PrintString(3,a$)

EndSub

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

A)ProB)ramC)graD)PPP

(21)保留?種工程至少應(yīng)保留兩個(gè)文獻(xiàn)，這兩個(gè)文獻(xiàn)分別是()

A)文本文獻(xiàn)和工程文獻(xiàn)B)窗體文獻(xiàn)和工程文獻(xiàn)

C)窗體文獻(xiàn)和原則模塊文獻(xiàn)D)類模塊文獻(xiàn)和工程文獻(xiàn)

(22)下列體現(xiàn)式的值為2123的是()

A)ValC123asd")&B)Vai("123”)+

C)Str(123)&D)Str(123)+“

(23)表達(dá)滾動(dòng)條控件取值范圍最大值的屬性是Oo

A)MaxB)l.argeChangeC)ValueD)Max-Min

(24)當(dāng)使用Line措施時(shí)，參數(shù)B與F可組合使用，下列組合中()不容許。

A)BFB)BC)省略不用D)F

(25)可以RGB(x,y,z)函數(shù)獲取顏色，下面口勺數(shù)字對應(yīng)了x,y,z三個(gè)參數(shù)，其中不合法

的是().

A)0,0,0B)200,255,129C)100,256,200D)255,255,0

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

A)快捷鍵B)索引。熱鍵D)名稱

(27)在窗體上畫一種命令按鈕，名稱為Commandl,然后編寫如下事件過程:

OptionBase0

PrivateSubCommand1ClickO

DimcityAsVariant

city=Array(〃北京〃，〃上?！?，"天津〃，〃重慶")

Printcity(1)

EndSub

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

A)空白B)錯(cuò)誤提醒C)北京D)上海

(28)假定有如下函數(shù)過程：

FunctionFun(SAsString)AsString

DimsiAsString

Fori=1ToLen(S)

si=UCase(Mid(S,i,1))+si

Nexti

Fun=si

EndFunction

在窗體上畫一種命令按鈕，然后編寫如下事件過程：

PrivateSubCommand1ClickO

DimStrlAsString,Str2AsString

Strl=InputBox(〃請輸入一種字符串”)

Str2=Fun(Strl)

PrintStr2

EndSub

程序運(yùn)行后，單擊命令按鈕，假如在輸入對話框中輸入字符串“abcdefg”,則

單擊〃確定“按鈕后在窗體上H勺輸出成果為

A)gfedcbaB)ABCDEFGC)GFEDCBAD)abcdefg

(29)Circle(500,600),500,,3將繪制()o

A)圓弧B)扇形C)圓D)橢圓

(30)在窗體上畫一種命令按鈕，名稱為Command1,然后編寫如下程序：

PrivateSubCommand1_C1ick()

inttl

Statict2

tl=tl+l

t2=t2+l

EndSub

三次單擊命令按鈕后，tl,t2的值分別為():

A)11B)33013D)31

一、填空題(每題2分，計(jì)16分)

1.窗體上有--種名稱為Listl日勺列表框，一種名稱為Textl的文本框，一種名稱為

Label1.Caption屬性為“Sum”的標(biāo)簽,一種名稱為Command1.標(biāo)題為“計(jì)算”日勺

命令按鈕。程序運(yùn)行后，將把1?100之間可以被7整除的數(shù)添加到列表框。假如

單擊“計(jì)算”按鈕，則對Listl中的數(shù)進(jìn)行累加求和，并在文本框中顯示計(jì)算成

果，如圖所示。如下是實(shí)現(xiàn)上述功能B勺程序，請?zhí)羁铡?/p>

PrivateSubFormLoad()

Fori=lTo100

IfiMod7=0Then

EndIf

Nexti

EndSub

PrivateSubCommandl_Click()

Sum=0

Fori=0ToJ_2J__

Sum=Sum+[3]

Nexti

Text1.Text=Sum

EndSub

2.按存儲信息的形式分類，文獻(xiàn)可以分為【4】和【5

3.如下語句輸出成果是[6】o

PrintInt(12345.6789*10()+0.5)/10()。

4.數(shù)學(xué)體現(xiàn)式的VB算術(shù)體現(xiàn)式為【7

5.體現(xiàn)式Lease(left("ABCDEFG”，5)時(shí)值是[8

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

OptionBase1

PrivateSubCommand1ClickO

Dimarrl

DimMinAsInteger,iAsInteger

arrl=Array(12,435,76,-24,78,54,866,43)

Min-【9】

Fori=2To8

Ifarrl(i)<MinThen【10】

Nexti

Print”最小值是："；Min

EndSub

以上程序的功能是：用Abay函數(shù)建立??種具有8個(gè)元素時(shí)數(shù)組，然后查找并輸出該數(shù)組中

各元素的最小值。請?zhí)羁眨?/p>

三、寫出下面程序口勺運(yùn)行成果(10分)

.1.Privat.Su.Commc.ndl_Click()......0.......InputBox("").....Fo....T.n..

…Fo….T.i.............1.......Nex.j.....Nex.i.....Prin.x....En.Sub

程序運(yùn)行后，單擊命令按鈕，假如輸入3,則在窗體上顯示日勺內(nèi)容是：

2.Privat.Functio.f(.A.Integer)

..I..Mo....Then

.....m

..Else

..En.If

En.Function

Privat.Su.Command1Click()

..Di..A.Integer

....0

..Fo….T.5

.......f(i)

..Nex.i

..Prin.s

En.Sub

單擊命令按鈕后，程序的運(yùn)行成果為：

四、程序設(shè)計(jì)(10分)

定義命令按鈕的單擊事件：當(dāng)單擊命令按鈕時(shí)輸出能被3整除的所有三位數(shù)。

答案

一、選擇題

cbacabdccdadcddabdcdbbadcddcdc

二、填空題

(1)listl.additemilistl.listcount-1listl.list(i)

(2)ASCII文獻(xiàn)二進(jìn)制文獻(xiàn)

(3)12345.68

(4)Sqrt(x)/2/(x+y)+3~2-3*x

(5)abcdef

(6)Array(1)min=array(1)

三、寫程序成果

1、6

2、9

四、程序設(shè)計(jì)題

PrivateSubCommand1_C1ick()

DimiAsInteger

Fori=100To999

IfiMod3=0Then

Printi

EndIf

Nexti

EndSub

模擬試題四

一、選擇題(四個(gè)選擇項(xiàng)中，有一種為對的答案。每題2分，共40分)

1.VB是一種面向?qū)ο蟮某绦蛟O(shè)計(jì)語言，()不是面向?qū)ο笙到y(tǒng)所包括的三要素。

A、屬性B、變量C、措施D、事件

2.程序代碼如下:

Command1.Caption二"確定"，則Command1、Caption、“確定”分別代表（）

A、對象、屬性、值B、對象、值、屬性

C、對象、措施、屬性D、屬性、對象、值

3.下列符號中哪個(gè)是VB程序中合法的變量名（）。

A.123abcB.integerC.X_yzD.X一Y

4.不管何控件，共同具有附屬性是()。

A.CaptionB.NameC.TextD.ForeColor

5.體現(xiàn)式16/4-2A5*8/4MOD5\2時(shí)值為()。

A.20B.14C.4D.2

6.給x,y,z三個(gè)變量賦初值1,下面對的J的賦值語句是（）。

A、x=y=z=1B、x=l,y=l.z=lC、x=l：y=l：z=lD、x=l:y=l:z=l

7.用If語句表達(dá)分段函數(shù)

/x+1x>=1

f（x）=',

X2+3X<1

下列不對的口勺程序段是()。

A.Ifx>=lThenB.Ifx<lThen

f=sqr(x+1)f=x*x+3

ElseElse

f=x*x+3f=sqr(x+l)

EndIfEndIf

C.Ifx>=lThenf=sqr(x+1)D.lfx>=lThenf=sqr(x+l)

Ifx<lThenf=x*x+3f=x*x+3

8.下列循環(huán)語句能正常結(jié)束循環(huán)的是（）。

A.i=10B.i=5

DoDo

i=i-li=i+l

LoopUntili<0LoopUntili<0

C.i=lD.i=6

DoDo

i=i+2i=i-2

LoopUntili=10LoopUntili=l

9.產(chǎn)生［10,37］之間曰勺隨鞏整數(shù)的JVB體現(xiàn)式（)

A、Int(Rnd(l)*27)+10B、Int(Rnd(1)*28)+10

C、Int(Rnd(1)*27)+11D、Int(Rnd(l)*28)+l1

10.在數(shù)組申明語句Dima(3,-2to2,5)AsLong中，數(shù)組a包括元素的個(gè)數(shù)為()。

A、13B、60C、75D、120

H.滾動(dòng)條的（）屬性用于返回或設(shè)置滾動(dòng)條的H前值。

A、ValueB、MaxC、MinD、Data

12.在過程中定義的變量.若但愿在離開該過程后，還能保留過程中局部變量的值，則應(yīng)

使用（）關(guān)鍵字在過程中申明局部變量。

A、PrivateB、PublicC、StaticD、Dim

13.假如列表框（Lisll）有四個(gè)數(shù)據(jù)項(xiàng)，把數(shù)據(jù)項(xiàng)“數(shù)據(jù)庫原理”添加到列表框的最終，

應(yīng)使用（）語句。

A.ListI.Additem"數(shù)據(jù)庫原理“，Lisll.ListCount

B.Listl.Addltem”數(shù)據(jù)庫原理“，Listl.L據(jù)Count-1

C.Listl.Additem3,“數(shù)據(jù)庫原理”

D.List1.Additem“數(shù)據(jù)庫原理”，3

14.要從磁盤上讀入一種文獻(xiàn)名為“c:\ll.lxt”口勺次序文獻(xiàn)，下列（）對口勺。

A.f="c:\tl.txt"B、f="c:\tl.txt"

Open"f"ForInputAs#1OpenfForInputAs#1

C.Openc:\tl.txtMForoutputAs#1D.Openc:\tl.txtForinputAs#1

15.下列有關(guān)菜單的說法中，錯(cuò)誤日勺是（）o

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

B、除了Click事件之外，菜單項(xiàng)還能響應(yīng)DblClick事件。

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

D、在程序執(zhí)行時(shí)，假如菜單項(xiàng)的JEnabled屬性為False,則該菜單項(xiàng)變成灰色，不

能被顧客選擇。

16.指令Circle（1000/000）,500,8,?6,?3將繪制（）。

A.圓弧B.扇形C.圓D.橢圓

17.下列論述不對口勺的是（）。

A.InputBox函數(shù)日勺返回值為字符型。

B.MsgBox函數(shù)的返回值為所單擊按鈕的鍵值。

C.MsgBox語句曰勺返回值為所單擊按鈕的鍵值。

D.Shell函數(shù)的返回值為所執(zhí)行文獻(xiàn)的工作代碼。

18.對命令按鈕的Picture屬性裝入.bmp圖形文獻(xiàn)后，命令按鈕上并沒有顯示圖形,

原因是沒有對（）屬性設(shè)置為1。

A.MousePictrueB.StyleC.DownPictureD.DisabledPicture

19.當(dāng)顧客對滾動(dòng)條施以：）動(dòng)作時(shí)，便觸發(fā)了滾動(dòng)條的Scroll事件

A.單擊滾動(dòng)條日勺左右按鈕時(shí)B、雙擊滾動(dòng)條的左右按鈕時(shí)

C.單擊滾動(dòng)條口勺空白處時(shí)D.拖動(dòng)滾動(dòng)條的滑塊時(shí)

20.要使Print措施在Form_Load事件中起作用，要對窗體B、J（）屬性進(jìn)行設(shè)置。

A.AuloRedrawB、CaptionC、BackStyleD、Visible

二、填空題（每空1分，共20分）

1.VB是一種面向［IJR勺可視化程序設(shè)計(jì)語言，采用了」2］_的編程機(jī)制。

2.算術(shù)體現(xiàn)式|x+y|+35寫成VB體現(xiàn)式的形式為［3］。

3.使文本框可以獲得焦點(diǎn)的措施是［4］o

4.體現(xiàn)式123+23mod10\3的值為［5J。

5.有下列For語句Fori=-3To20Slep4則該語句的J循環(huán)次數(shù)為［6|次。

6.在調(diào)用自定義函數(shù)時(shí)，參數(shù)口勺傳遞有［7］和［8］兩種形式。

7.在如下數(shù)組申明語句中Dims（4,4）AsInteger,第一種數(shù)組元素的J引用形式是［9I。

8.假如要每隔0.5s觸發(fā)一種Timer事件，MInterval屬性應(yīng)設(shè)置為［10］o

9.單項(xiàng)選擇按鈕和復(fù)選框均有Value屬性，但兩者該屬性值的類型不一樣樣，具中單項(xiàng)選擇

按鈕該屬

性值類型為［II］，復(fù)選框該屬性值類型為|12|。

10.要在程序中顯示通用對話框，要對CommonDialog控件U勺［13］屬性賦以對的的值。

13.VB提供了三種訪問又獻(xiàn)的模式，按照訪問模式可以把文獻(xiàn)分為次序文獻(xiàn)、［14］和

二進(jìn)制文獻(xiàn)。

14.使用Line措施畫矩形，必須在指令中使用關(guān)鍵字［15］。

15.窗體上有一命令按鈕、程序運(yùn)行時(shí)，決定該按鈕與否可用應(yīng)設(shè)置的屬性是［16］,決定

該

按鈕與否顯示應(yīng)設(shè)置的屬性是_L1ZL。

16.VB程序設(shè)計(jì)語言具有構(gòu)造化程序設(shè)計(jì)的三種基本構(gòu)造，即［18］、［19］、

F20］o

三、完善程序題（每空1分，共10分）

1.求兩個(gè)自然數(shù)m,n的最大公約數(shù)

PrivateSubForm_Click（）

Dimm%,n%,t%,r%

m=InputBox（"輸入m"）

n=InpulBox（"輸入n”）

Ifm<nthen

t=m:m=n:n=i

[1]

Do

r=r21

Ifr=0then【3I

m=n

I4]

Loop

Print“m和n的最大公約數(shù)是："，[5]

EndSub

2.用選擇法按遞增次序排序

PrivateSubCommandl_Click()

Dima(1to6)asintcgcr,i%,j%,amin%,t%

Fori=1to6

a⑴=InpulBox("給數(shù)組元素賦值”)

[61