《vb程序設(shè)計》期末復(fù)習(xí)題與答案

《vb程序設(shè)計》期末復(fù)習(xí)題及答案

一、填空題

1.創(chuàng)建一個VB應(yīng)用程序三個主要的步驟是、和

2.當(dāng)程序運行時，要求窗體中的文本框呈現(xiàn)空白，則在設(shè)計時，應(yīng)當(dāng)在此文本框的

窗口中，把此文本框的屬性設(shè)置成空白。

3.Label和TextBox控件用來顯示和輸入文本，如果僅需要讓應(yīng)用程序在窗體中顯示文本

信息，可使用控件；若允許用戶輸入文本，則應(yīng)使用控件。

4.窗體的常用方法有________、___________、___________和___________。

5.要想在代碼中給名為txtshow的文本框賦予文本：GOODWORK應(yīng)當(dāng)編寫的語句是

6.若命令按鈕的名稱為Cmdopen,程序要求單擊該命令按鈕時，打開一個窗口frml,請對

以下事件過程填空。

PrivateSubCmdopen

EndSub

7.VisualBasic6種類型的表達(dá)式是、、

、、oVisualBasic根據(jù)表

達(dá)式的來確定表達(dá)式的類型。

8.表達(dá)式93\7Mod2*2的值是?

9.已知a=3,b=4,c=5,表達(dá)式a〉bandNotc>aOrc>bAndc〈a+b的值是。

表達(dá)式c>aAndNotb<c的值是___________。

10.日期表達(dá)式#2/24/02#+2/12/02#的值為。

11.數(shù)學(xué)表達(dá)式sin2x+寫成等價的VisualBasic表達(dá)式為。

12.設(shè)某個程序中要用到一個二維數(shù)組，要求數(shù)組名為A,類型為字符串類型，第一維下

標(biāo)從1到5,第二維下標(biāo)從-2到6,則相應(yīng)的數(shù)組聲明語句為

13.事件就是在對象上所發(fā)生的事情，VisualBasic中的事件如

_、等。一個對象響應(yīng)的事件可以有個，用戶不能建立新

的事件。事件過程是指。假設(shè)某一事件

過程如下：

PrivateSubcmdlClick()

Forml.Caption=，，VB示例”

EndSub

則響應(yīng)該過程的對象名是，事件名是。

14.對象的方法用于o當(dāng)方法不需要任何參數(shù)并且也沒有返回值時，

調(diào)用對象的方法的格式為__________，例如，對窗體Forml使用Show方法，應(yīng)寫成

15.PiclureBox控件可通過設(shè)置其屬性為True使之可自動調(diào)整大?。欢鳬mage

控件可通過設(shè)置其屬性為True,使其加載的圖片能自動調(diào)整大小以適應(yīng)

Image,,

16.在VisualBasic程序中實現(xiàn)復(fù)制文件"c:\command.com”到d:盤根目錄下的語句為

二、單項選擇題

1.下列控件中沒有Caption屬性的是()

A、標(biāo)簽B、文本框C、框架D、命令按紐

2.除框架外，能對單選按紐分組的控件是()o

A、窗體B、標(biāo)簽C、圖片框D、圖像

3.下列符號不能作為VB中變量名的是().

A、ABCDEFGB、P00000C.89YWDDFD、xyz

4.下列不屬于VisualBasic數(shù)據(jù)文件的是()。

A、順序文件B、隨機文件C、二進(jìn)制文件D、數(shù)據(jù)庫文

件

5,若要求從文本框中輸入密碼時在文本框中只顯示*號，則應(yīng)用在此文本框的屬性窗口中

設(shè)置()°

A^Text屬性值為*B、Cap;ion屬性值為*

CPassword屬性值為空D、PasswordChar屬性值為*

6.表達(dá)式2*3〃2+2*8/4+3.2的值為()。

A、64B、31C、49D、42

7.表達(dá)式mid("abcdefg”,3,2)的值是()

A、abcB、cdC、bcdD、abode

8.數(shù)學(xué)表達(dá)式Sin25°寫成YB表達(dá)式是()。

A、Sin25B、Sin(25)C、Sin(25°)D、Sin

(25*3.14/180)

9.Sub過程與Function過程最根本的區(qū)別是()。

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

風(fēng)Function過程可以有參數(shù)，Sub過程不可以。

G兩種過程參數(shù)的傳遞方式不同。

IXSub過程的過程名不能返回值，而Function過程能夠通過過程名返回值。

10.選拔身高T超過1.7米且體重W小于62.5公斤的人，表示該條件的布爾表達(dá)式為

()

A、T>=1.7AndW<=62.5B,T<=1.70rW>=62.5

CT>1.7AndW<62.5D.T>=1.70rW<62.5

11.下列對象不能響應(yīng)Click事件的是()

A、列表框B、圖片框C、窗

體D、計時器

12.在VisualBasic中，按文件的訪問方式不同，可以將文件分為()

A、順序文件、隨機文件和二進(jìn)制文件B、文本文件和數(shù)據(jù)文件

C、數(shù)據(jù)文件和可執(zhí)行文件D、ASCH文件和二進(jìn)

制文件

13.將通用對話框CommonDialog的類型設(shè)置成“顏色”對話框，可調(diào)用該對話框的

()方法。

A、ShowOpenB、ShowSaveC>ShowColorD、

ShowFont

三、指出下列句中的錯誤，修改或者說明原因。

1.sum和int.sum都可以作為VB的變量名。

2.變量名的長度最長可達(dá)1024個字符。

3.下列程序運行結(jié)果：3,3

OptionExplicit

PrivateSubConunandlClick()

Dima,bAsInteger

a=3.6

b=3.6

Text!.Text=a

Text2.Tcxt=b

EndSub

4.程序可以改變定長字符串的內(nèi)容和長度。

5.Variant是一種特殊的數(shù)據(jù)類型，可以包含任何種類型的數(shù)據(jù)。

6.下列程序運行結(jié)果為True

PrivateSubCommandl_Click()

a=l

b=2

c=3

Text1.Text=c>a+b0rb-l>c-lAndc+a>aXorb<c-2

EndSub

7.#12/31/1999#-#12/20/1999#的運算結(jié)果是#12/11/1999#

8.可以在窗體的通用部分聲明靜態(tài)變量。

9.使用聲明語句建立一個變量后，VisualBasic會自動對數(shù)值類型的變量賦初值0,變長

的字符串被初始化為一個零長度的字符串“，定長字符串用空格填充，Variant變量被初

始化為Empty,布爾型的變量被初始化為False。

10.事件過程通常由事件驅(qū)動執(zhí)行，而Sub過程通過過程調(diào)用執(zhí)行。

11.將焦點主動設(shè)置到指定的控件或窗體上應(yīng)采用SetFocus方法。

12.當(dāng)圖像控件(Image)的Stretch屬性為True時，Image控件能自動調(diào)整自己的尺寸

與顯示的圖片匹配。

四、讀程序題，寫出程序運行結(jié)果。

1.PrivateSubFormClick()

ForI=lTo9

Forj=lTo30-3*I

Print"”;

Nextj

Fork=lToI

Printk;

Nextk

Fork=l-lTolStcp-l

Printk;

Nextk

Print

NextI

EndSub

2.

OptionExplicit

PrivateSubConunand1Click()

StaticSAsInteger

DimiAsInteger

S=1

Fori=lTo5

S=S*i

Nexti

Prints

EndSub

3.

ForX=5TolStep-l

ForY=lTo6-X

PrintTab(Y+5)

NcxtY

Print

NextX

4.

PrivateSubForm_Activate()

Print"aa"&"bb”,-5*6,Not2<=3

Print"aa"&"bb”;-5*6;Not2<=3

Print

Print"30+60”,

Print30+60

?*

?”30+60”;30+60

EndSub

5.

X=1

DoWhileX<=10

IfXMod7=0Then

Y=X+6

Else

Z=X

EndIf

X=X+2

Loop

PrintX,YfZ

五、編程題

1.設(shè)計一個計算程序。該程序用戶界面如圖所示，由四個文本框：文本框l(textl)

文本框2(text2)、文本框3(text3)、文本框4(text4),和三個按鈕：命令按鈕1

(commandl)、命令按鈕2(command2)、命令按鈕3(command4)組成。程序運行后,用

戶單擊清除按鈕，則清除文本框中顯示的內(nèi)容。單擊計算按鈕，如果成績填寫不完全，則

給出提示信息，否則計算三科平均成績。單擊退出按鈕則退出。

2.設(shè)計程序。要求：從文本框Textl中接收輸入的數(shù)據(jù)，當(dāng)單擊確定按鈕(commandl)

時，如果該數(shù)據(jù)滿足條件：除以3余2,除以5余3,除以7余4,則輸出：否則將焦點定

位在文本框Textl中，選中其中的文本。

3.設(shè)計一個歡迎程序。該程序用戶界面如圖所示。要求程序運行后，用戶選中粗體復(fù)選框

時，標(biāo)簽(Label1)中的文字(歡迎您！)的字體變成粗體，用戶選中斜體復(fù)選框時，標(biāo)

簽的字體變成斜體。若取消選中，則恢復(fù)原字體。單擊結(jié)束，則退出。

4.任意輸入3個數(shù)，求大小排第二的那個數(shù)，寫出程序代碼。

《VB》期末復(fù)習(xí)參考答案

一、填空題

1.創(chuàng)建應(yīng)用程序界面設(shè)置屬性編寫代碼

2.屬性、text

3.LabelTextBox

4.Load方法Show方法Hide方法Unload方法

5.txtshow.text=z，GOODWORK/，

6.Click。、frm1.sliow

7.算術(shù)表達(dá)式字符串表達(dá)式關(guān)系表達(dá)式布爾表達(dá)式日期表達(dá)式對象表達(dá)

式運算符

8.1

9.TrueFalse

10.12

11.Sin(x)*2+Sqr(x*2-y*2)/(2*x)

12.DimA(lTo5,-2To6)AsString

13.單擊雙擊裝載多響應(yīng)某個事件后所執(zhí)行的程序代

碼cmdlClick

14.完成某種特定的功能對象名.方法名Forml.Show

15.AutoSizeStretch

16.Fi1eCopy'c:'command,com","d:\”

二、單項選擇題

1.B2.C3.C4.D5.D6.B7,B

8.D9.DIO.Cll.D12.A13.C

三、指出下列句中的錯誤，修改或者說明原因。

1.Lit.sum不正確。變量名中不能包括小數(shù)點。

2.變量名的長度最長可達(dá)255個字符。

3.3.G,4

因為a不是整型變量。

4.不正確。程序不可以改變字符的長度，這是VB規(guī)定。

5.不完全正確。Variant是一種特殊的數(shù)據(jù)類型，除了定長字符串?dāng)?shù)據(jù)及用戶定義類型

外，可以包含任何種類型的數(shù)據(jù)，這是YB規(guī)定。

6.False。邏輯表達(dá)式計算結(jié)果。

7.不正確。兩個日期型數(shù)據(jù)相減，其結(jié)果是一個數(shù)值型數(shù)據(jù)。

8.不正確。靜態(tài)變量為局部變量，只能在過程中聲明。

9.正確。

10.正確。

11.正確。

12.不正確。該屬性設(shè)為Ture時，Image控件不能自動調(diào)整自己的尺寸與顯示的圖片匹

配，而可以使圖片自動擴展以適應(yīng)控件的尺寸。

四、讀程序題，寫出程序運行結(jié)果。

1.程序運行后，單擊窗體，輸出結(jié)果為：

1

121

12321

1234321

123454321

12345654321

1234567654321

123456787654321

12345678987654321

2.程序運行后，單擊按鈕Command1輸出結(jié)果為：120。

3.

*

**

***

****

*****

4.

aabb-30False

aabb-30False

30+6090

30+6090

5.

11139

五、編程題

1.

PrivateSubCommand1Click()

Textl.Text=**

Tcxt2.Tcxt="w

Text3.Text=""

Text4.Text=ww

EndSub

PrivateSubCommand2_Click()

a=Trim(Textl.Text)

b=Trim(Text2.Text)

c=Trim(Text3.Text)

Ifa=""0rb=""0rc:""Then

MsgBox”成績填寫不完全！”,vbCritical

Else

Text4.Text=(Val(a)+Val(b)+Val(c))/3

Endlf

EndSub

PrivateSubCommand3_Click()

LnloadMe

EndSub

2.

PrivateSubCommandlClickO

x=Val(Textl.Text)

IfxMod3=2AndxMod5=3AndxMod7-4Then

Print》：

Else

Textl.Setl'ocus

Textl.SeiStart=0

Textl.SclLcngth=Len(Textl.Text)

Endlf

EndSub

PrivateSubCheckl_Click()

IfCheckl.Value=lThcn

Label1.Font.Bold=True

Else

Label1.Font.Bold=False

Endlf

EndSub

PrivateSubCheck2Click（）

IfCheck2.Value=lThen

Label1.Font.Itaiic=True

Else

Label1.Font.Italic二False

Endlf

EndSub

PrivateSubCommandlClickO

InloadMe

EndSub

4.

a=Val（lnputBox（"輸入第一個數(shù)：”））

b=Val（InputBox（"輸入第二個數(shù)：”））

c=Val（lnputBox（"輸入第三個數(shù)：”））

Tfa<bThent=a:a=b:b=t

1fa<cThcnt=a:a=c:c=t

Tfb<cThent=b:b=c:c=t

MsgBox（"求大小排第二的數(shù)是：〃&b）

VB期末考試試題A卷

一、填空題

1、VB程序設(shè)計的主要特點是(1)和(2)。

2、在VB中，最主要的兩種對象是(3)和(4)。

3、工程是構(gòu)成應(yīng)用程序文件的(5)。

4、方法是VB提供的一種(6),用來完成一定的操作c

5、浮點類型數(shù)據(jù)包括單精度型和_(7)數(shù)據(jù)。

6、事件是窗體或控件對象識別的―(8)」

7、可用窗體的—(9)—方法在窗體中顯示文字。

8、復(fù)選框控件Value屬性指示復(fù)選框處于—(10或禁止?fàn)顟B(tài)(暗淡的)中的某

一種。

9、在VB中，修改窗體的(11)和(12)屬性值，可改變窗體的大小。

10、雙擊工具箱中的控件圖標(biāo)，可在窗體的(13)出現(xiàn)一個尺寸為缺省值的控

件。

11、在MsgBox函數(shù)中，如果缺省title參數(shù)，則使用(14)作為消息框的標(biāo)題。

12、設(shè)x=34.58,語句PrintFormat(x,“000.0”)的輸出結(jié)果是(15)。

13、在VB中，數(shù)值型變量的初值為(16),Varanl型變量的初值為(17),

布爾型變量的初值為(18)。

14、設(shè)置窗體的(19)屬性，可在窗體上顯示圖片。

15、程序運行工程中，清除MP圖片框中的圖片應(yīng)使用語句(20)。

二、選擇題

1、菜單控件只包括一個事件，即(1),當(dāng)用鼠標(biāo)單擊或鍵盤選中后按“回車”鍵

時觸發(fā)該事件，除分隔條以外的所有菜單控件都能識別該事件。

A、GotFocusB、LoadC、ClickD、KeyDown

2、滾動條控件(如圖所示)的Max屬性所設(shè)置的是(2)二

口1*1

A、滾動框處于最右位置F寸，一個滾動條位置的Value屬性最大設(shè)置值

B、單擊滾動條和滾動箭頭之間的區(qū)域時，滾動條中滾動塊的最大移動量

C、單擊滾動條的箭頭區(qū)域時，滾動條中滾動塊的最大移動量

D、滾動條控件無該屬性

3、SQL語句Selecl*Fomsludent中的*表示(3)。

A、所有記錄B、所有字段C、所有表D、都不對

4、以下選項中，不屬于標(biāo)簽的屬性是(1),

A、EnabledB、CaplionC、Default。、Font

5、要求改命令按鈕顯示的文本，應(yīng)當(dāng)在屬性窗口中改變的屬性是(5)0

A、CaptionlkNameCTextD>Label

6、設(shè)置一個單選按鈕(OplionButton)所代表選項的選中狀態(tài)，應(yīng)當(dāng)在屬性窗口中改變的

屬性是(6)。

A、CaptionBsNameC、TextD、Value

7、允許在菜單項的左邊設(shè)置打勾標(biāo)記，下面哪種論述是正確的？(7)。

A、在標(biāo)題項中輸入&,然后打勾B、在索引項中打勾

C、在有效項中打勾D、在復(fù)選項中打勾

8、當(dāng)執(zhí)行以下過程時，在窗體上將顯示(8)。

PrivateSubCommandl^ClickO

Printer;

Print"Hell。！”：

Print"YB"

EndSub

A、VBHello'VBB.VB

HellolVB

QVBD、VB

HellolVBHello!

VB

語句Print"Theansweris:";20/4-2的結(jié)果為(9)?

A、Theansweris20/1-2BTheansweris3

CTheansweris"20/4-2"D、非法語句

10、下列哪個控件是容器控件(10)。

A、ImageB、PictureC.ComboBoxD^FileListBox

11、若要將窗體從內(nèi)存中卸載出去，其實現(xiàn)的方法是(11)。

A.ShowB.HideC.LoadD.UnLoad

12、以下選項中，不是Yisu下Basic控件的是(12)。

A.窗體B.定時器C.單選框D.命令按鈕

13、雙擊窗體中的對象后，VisualBasic將顯示的窗口是(13)^

A.代碼窗口B.工具箱C.項目(工程)窗口D.屬性窗口

14、可決定窗體的左上角是否有控制菜單的屬性是(14)。

A.ControlBoxB.MinButton

C.MaxButtonD.BorderStyle

15、設(shè)有如下語句：

Strl=InputBox("輸人"，**,"練習(xí)”)

從鍵盤上輸人字符“示例”后，Strl的值是(⑸。

A.“輸入"B.”"C.“練習(xí)”D.“示例”

16、窗體Forml的、ame屬性是Frml,它的單擊事件過程名是(16)°

A.Forml_ClickB.Form_ClickC.Frml_ClickD.Me_Click

17、窗體的hide屬性的含義是(1立^

A.隱藏B.展現(xiàn)C.裝入D.卸載

18、若要設(shè)置定時器控件的定時時間，需設(shè)置的屬性是：18)，

A.EnabledB.ValueC.IntervalD.Text

19、能夠改變復(fù)選框中背景顏色的屬性是(19)。

A.ValueB.FontColorC.BackColorD.Font

20、窗體能響應(yīng)的事件是(20)。

A./\ctiveFormB.LoadC.DriveD.Change

三、判斷題(判斷下列正確與否，正確的打J,錯誤的打X。)

I、三種方式的組合框都允許用戶輸入哪些不在列表框中的選項。

2、圖象框中的Stretch屬性為true時，其作用是圖形白動調(diào)整大小以適應(yīng)圖象控件。

3、在菜單編輯器中使用“索引”時，可有一組菜單項具有相同的“名字”。

4、通過改變屬性窗口中的Name屬性，來改變窗體的標(biāo)題。

5、創(chuàng)建VB應(yīng)用程序的三個主要步驟是：(D創(chuàng)建應(yīng)用程序界面⑵設(shè)置控件⑶編寫代

碼。

6、變量是指在程序運行過程中其值可以改變的那些量，而值不能改變的是常量。

7、已知P=MsgBox("Howareyou?”,VbYesNo+VbQuestion,“Hello!”)，變量P是

Integer數(shù)據(jù)類型。

8、工程文件的擴展名是.vbg。

9、VB允許設(shè)計和使用用戶自己設(shè)計的控件。

10、OptionButton控件沒有DblCliek事件。

11、同一條記錄中的各數(shù)據(jù)具有相同的類型。

12、使用Data控件可以直接顯示數(shù)據(jù)庫中的數(shù)據(jù)。

13、ImageList是一個圖像容器控件，可用作工具欄的圖像庫。

14、當(dāng)用戶單擊工具欄按鈕時，將觸發(fā)工具欄按鈕的BullonClick事件。

15、在VB的工程資源管理器中，如果從工程中移除已經(jīng)，呆存過的文件，該文件仍然被物

理刪除(真正刪除)。

16、如果列表框的ListConut的屬性為10,則列表框最后一項的Listindex值為10,

17、要是某個命令按鈕不起作用，應(yīng)將該按鈕的Enabeld屬性設(shè)置為False。

18、使用數(shù)組定義語句：DimDS(10),則數(shù)組D中各元素的值為空。

19、如果在一行中輸入多條語句，各語句之間用使用；分隔。

20、在代碼窗口中輸入某行代碼并按回車鍵之后，如果代碼變成紅色，說明該行代碼有

語法錯誤。

四、讀程序題，寫出程序運行結(jié)果

1、PrivateSubForm_Click()

StaticSL-MAsInteger

1=1

DoWhileI<=10

SUM=SUM+I

1=1+1

Loop

PrintSUM

EndSub

運行程序，第一次單擊窗體：

第二次單擊窗體：

2、PrivateSubFormClick()

Print*;Tab(6)⑵Tab(15);5

Print

ForI=15Tol6

PrintI;

Forj=2To6Step3

PrintTab(3*j);j*I;

Nextj

Print

Nextl

EndSub

程序運行結(jié)果:

五、編程題

(一)窗體中有圖片框(Piclurel)和計時器(Timerl)兩個控件，運行程序時，將圖片加

載到圖片框中，然后圖片框以每2秒鐘一次的速度向窗體的右下腳移動，每次向左、向右

移動lOOtwip(20分之一像素)。請?zhí)羁眨?/p>

PrivateSubForm_load()

(1)=1oadPicture(“cb:all.ico")

(2).1nterval=200

EndSub

PrivateSubTimerlTimer()

Staricx,yAsIrteger

x=x+100y=y+lC0

Picturel.Move(3)

EndSub______

(二)有一個單擊按鈕過程，其作用是產(chǎn)生50個60?100的隨機數(shù)，統(tǒng)計其中被6整除

余2的個數(shù)，并將這些數(shù)輸出。請?zhí)羁眨?/p>

PrivateSubCommand1Click()

DimxAsInteger,N%

DimCounterAsInteger

(l)Timer

ForN^lTo50_________

X=Rnd()*(2)

If(3)=2Then

Printx___________

Counter=(4)

(5)_______

NextN________

PrintCounter

EndSub

《VB程序設(shè)計與應(yīng)用》參考答案

一、填空題12345

j人人

答案可視MUxll事件驅(qū)動，由程圖庫(foLHl)15件集口

撅號67891

;田擊m生主rtr辦/沖

rrjR.TtW'JtsrrAKtnALp-rrtinnitiZy1t1rJ

題號1112131415

高度4.-r-Xnqc/c

售案JAL?(Width)ZK,11

(Height)

題號1617181920

U__LL「1?----------------------

二、選擇題12345

題號67890

答案DDABI

題號1112131415

答案DAAAE

題號1617181920

答案CACCF

三、判斷題1234567890

答案XX：CJXJ/V7X

1112131415167181920

答案JX、JXX.「XXJ

四、程序閱讀題：

（一）（10分）

k55________

2>110

（二）、（10分）

*25

153075

163280

五、編程題（20分）

（一）］、Picturel.Picture

2、Timerl

3^x,y

（二）1、Randomize

2、Rnd（）*41+60_______________

3、xMod6_____________

4、Counter+1______________

5EndIf

一、單項選擇題(共10分)

1.在代碼中引用一個控件時，應(yīng)使用控件的(B)屬性。

A.CaptionB.NameC.TextD.Index

2.設(shè)變量x=4,y=-l,a=7,b=-8,下面表達(dá)式(A)的值為‘假'。

A.x+a<=b-yB.x>OANDy<0

C.a=bORx>yD.x+y>a+bANDN0T(y<b)

3.表達(dá)式Inl(Rnd*71)+10產(chǎn)生的隨機整數(shù)范圍是(C)。

A.(10,80)B.(10,81)C.[10,80]D.[10,81]

4.函數(shù)Sgn(3.1416)的返回值是(C)。

A.-IB.0C.ID.以上都不對

5.67890屬于(D)類型數(shù)據(jù)。

A.整型B.單精度浮點數(shù)C.貨幣型D.長整型

6.下列變量名中正確的是(D)。

A.3SB.PrintC.SelectMyNameD.Select_l

7.下列賦值語句(A)是有效的。

A.sum=sum-sumB.x+2=x+2C.x+y=sumD.last=y/O

8.以下的控件或方法具有輸入和輸出雙重功能的為(B).

A.PrintB.TextboxC.OptionbuttonD.Checkbox

9.若要獲得列表框中被選中的列表項的內(nèi)容，可以通過訪問(D)屬性來實現(xiàn)。

A.NameB.ListlndexC.ListCountD.Text

10.下列代碼的運行結(jié)果為(B)。

PrivateSubcommand1clickO

Dimm(10)

Fork=lTolO

m(k)=l1-k

Nextk

x=5

Printm(2+m(x))

EndSub

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

二、填空題(10分)

1.寫出整數(shù)n能同時被13和17整除的Basic表達(dá)nModl3=0AndnModl7=0

式。

2.代碼窗口中有兩個下拉列表框：左側(cè)是(對象)列表框，右側(cè)是過程列表框。

3.寫出在字符串"Visual3asic6.0中裁'取"Visual的'Basic表達(dá)式LEFT("VisualBasic

6.0”，6。)

4.函數(shù)Lan("ahcdaf的J舸值是⑹。

5.設(shè)a=2,b=5,c=-2,d=100,則a>b>=cANDa<b>=d的值為

False。

三、將下列數(shù)學(xué)表達(dá)式轉(zhuǎn)換為VR表達(dá)式。(6分)

1.a2+2ab+b2：ac2+2*a*b+b'2

2.8exlnl0：8*exp(x)*log(10)

3.2sin(450)cos(450)：2*sin(3.1416/4)*cos(3.1416/4)

6.在VB中，用戶定義常星使用Const語句，聲明變量使用Dim語句。

1.在VB6.0中，擴展名為.vbp的文件稱為A。

A)工程文件B)窗體文件C)類模塊文件D)標(biāo)準(zhǔn)模塊文件

2.在VB6.0集成開發(fā)環(huán)境的設(shè)計模式下，用鼠標(biāo)雙擊窗體上的某個對象后，打開的窗口

是&_

A)代碼窗口B)窗體設(shè)計窗口

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

3.設(shè)有變量定義語句Dima機則變量a的數(shù)據(jù)類型是A。

A)整型B)單精度類型C)雙精度類型D)字符串類型

4.下列表達(dá)式中，值為False的是D!___

A)"AB"〈"abc"B)"ABC^UCase("abc-

C)"ABCD"<"abc"D)Mid("ABCD”,3,l)=LeftCABCD*,3)

5.函數(shù)InStr("ABCDEF","CD")的值是B。

A)2B)3C)TrueD)CDEF

6.下列程序運行后，單出窗體，輸出結(jié)果是C。

PrivateSubForm_Click()

DimaAsInteger,bAsInteger

a=3

b=5

Printa+b;a&b

EndSub

A)88B)3535C)835D)358

7.下列程序運行后，單擊窗體，輸出結(jié)果是B。

PrivateSuhForm_Click()

a=3:b=7

a=a+b:b=a-b:a=a-b

Printa:b

EndSub

A)43B)73C)37D)107

8.下面程序段所表示的數(shù)學(xué)關(guān)系式是

If(a<b)Then

Ifd=cThenx=l

Else

x=2

EndIf

l(abJbd)

A)x舊(c

2(a9)22(a*d)

bc=[<b且=c

且12

1(abcd)、l(ab巨)

Ox且D)xcd

2(a1L2(ccd

b)d)

9.下列程序運行后，單擊窗體，輸出結(jié)果是c。

PrivateSubFormClick()

s=0:k=l

Do

s=s+k:k=k+l

LoopUntilk<=5

Prints

EndSub

A)15B)10C)iD)0

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

Fork=4To2Step-2

m=k

Nextk

Printmjk;

A)22B)2002ID)00

11.用下面的語句定義數(shù)組，則數(shù)組中的元素個數(shù)是D色_

OptionBasel

Dini/\(-lTo2,5)Aslnteger

A)5B)10C)15D)20

12.下面程序段的輸出結(jié)果是J

Dima(4)Aslnteger,sAsTnteger

Fork=lTo4

a(k)=2*k

Nextk

Fork=lTo4Step2

s=s+a(k)

Prints;

Nextk

A)8B)20C)28D)261220

13.設(shè)有如下的用戶自定義類型

PrivateTypcStu

nameAsString*10

ageAsInteger

EndType

則以下正確引用該類型成員的代碼是Bo

A)Stu.name=/，zhang，zB)DimsAsStu

s.name="zhang”

C)DimsAsTypeStuD)Dims/\sType

s.name="zhang"s.name="zhang”

14.用“B”關(guān)鍵字聲明的變量稱為全局變量。

A)PrivateB)PublicODimD)Static

15.在窗體上放置一個文本框，程序運行后，在文本框中輸入abc,但顯示的卻是***,可

能的原因是該文本框的D屬性值已經(jīng)被設(shè)置為“*工

A)FontB)TextC)NameD)PasswordChar

16.在VB6.0中，Print是對象的B。

A)屬性B)方法C)事件D)名稱

17.在VB6.0中，要判斷復(fù)選框是否為選中狀態(tài)，使用的屬性是D。

A)CaptionB)CheckedC)SelectedD)Value

18.設(shè)列表框Listl中共有3個列表項，如右圖所示0則下列語句?.FOFBI

中，能夠刪除最后一個列表項的是k

列表框

A)Listl.RemoveItem2

B)Listl.RemoveItem"項目C"

OListl.RemoveltemListl.Listcount

D)Listl.RcmovcltemListl.Listindex

19.組合框分為下拉式組合框、簡單組合框和下拉式列表框，在

“屬性”窗口中這三種類型是由AJ1性設(shè)置的。

A)StyleB)Fi1IStyleC)BackStyleD)BordersLyle

20.用戶單擊滾動條的空白處(滑塊與兩端滾動舷間做時Value屬性所增加

或減少的值，是恫性決定的。

A)MinB)MaxC)SmallChangeD)LargeChango

21.將圖片文件“b.jpg”作為背景圖片，裝入當(dāng)前窗體，正確的語效D。

A)Me.Picture=b.jpgB)Me.Picture=LoadPicture(b.jpg)

C)Me.Picture=，zb.jpg"D)Me.Picture=LoadPicture(/，b.jpg*)

22.要將兩個單選按鈕放置在同一個框架內(nèi)，使它們成為一組，正確的操是A。_

A)先放置一個框架，然后在框架中放置兩個單選按鈕

B)先放置兩個單選按鈕，再放置一個框架，放置框架時想費單選按鈕上

C)先放置兩個單選按鈕，再放置一個框架，然后將兩個單選按鈕抽桐架內(nèi)

D)以上三種方法都正確

23.計時器控件能夠響應(yīng)的事件是D。

A)LoadB)ClickC)ChangeD)Tinter

24.要使命令按鈕處于無效狀態(tài)，可以設(shè)置按鈕的B屬性值為False。

A)CaptionB)EnabledC)StyleD)Visible

25.如果在一個工程中有多個窗體和模塊，如默認(rèn)的啟動跳

A)第一個標(biāo)準(zhǔn)模塊B)最后一個被添加的窗體

C)設(shè)計時的第一個窗體D)最后一個被添加的標(biāo)準(zhǔn)模塊

26.在窗體上放置一個圖像框，名狗Imaged程序運行時，要保持圖像框大小不變使

框中的圖片能夠自動適應(yīng)圖像框的大小，可以掠語阿

A)Imagel.AutoSize=TrueB)Imagel.Stretch=True

C)Imagel.AutoSize=FalseD)Imagel.Stretch=False

27.使用“菜單編輯器”建立菜單項之間的分隔線時，在菜單項的“標(biāo)題中輸?shù)姆?/p>

是應(yīng)___

A)減號-B)下劃線_C)&D)#

28.要將窗體Forml從內(nèi)存中卸載，正確的語角D。

A)Forml.ShowB)LoadForml

C)Forml.HideD)UnLoadForml

29.在窗體上單擊時，會觸瞄相加加useDo需n,其事件過程的一般格式如下：

PrivateSubFormMouseDown(ButtonAsInteger,ShiftAsInteger,XAs

Single,YAsSingle)

EndSub

此時，如果單擊的是樹蝴tton參數(shù)的值是B。

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

30.獲取文件的長度(字節(jié)數(shù))，可以使用的函數(shù)是B。

A)LEN()B)LOF()C)EOF()D)LOG()

1.數(shù)學(xué)表達(dá)式漁工改寫為VB表達(dá)式，形式是【1】。答案sqr(3*y)/(x+y)

x+y

2.在VB6.0中，InpulBox函數(shù)返回值的數(shù)據(jù)類型是【2】,答案：字符串類型或

String

3.語句PrintTab(5);"ABC”的功能是【3】^

答案：從第5列開始輸出字符串“ABC”

4.下面程序段的功能是：在文本框Textl中輸入一個數(shù)值x,如果滿足5<x<10,那么輸出

“Yes”,否則輸出“No”。請?zhí)羁铡?/p>

x=Val(Text1.Text)答案5<xAndx<10

If[4]ThenPrint"Yes"ElsePrint"No"

5.設(shè)a=l,b=2,c=3,語句Printa<bOrb<cAndc<a的輸出結(jié)果是

【5】。答案:True

6.在窗體上放置一個標(biāo)簽：名稱為Labcll,使用語句【6】可以把標(biāo)簽的前景色

設(shè)置為藍(lán)色。Label1.ForeColor=vbBlue或RGB(O,0,255)或QBColor(9)

7.在窗體上放置一個圖像相，名稱為Imagel,要使該圖像框向下移動10個默認(rèn)單位

(twip),正確的語句是Image1.Top=[7]答案：Imagel.Top+

10

8.使用“菜單編輯器”建立了一個主菜單，名稱為mcnul。要把它作為窗體Forml的快捷

菜單(也稱為彈出式菜單)彈出，使用的語句是：答案：Popupmenu

Forml.【8】menul

9.在窗體上放置一個通用對話框控件，名稱為CommonDialogl。使用該控件建立“打開”

文件對話框時，要求只能顯示文本文件(即擴展名為“.txt”的文件)，則正確的設(shè)置語

句是CommonDialogl.19]="文本文件(*.txt)*.txt",答案：Filter

10.設(shè)磁盤上已存在順序文件“a.txt”，為了從文件中順序讀取數(shù)據(jù)而打開該文件，正確

的語句是0per)"a.txt'For【10】答案:Input

1.下列面程序運行后，單擊窗體，輸出結(jié)果是[1】。答案:139

PrivateSubEormClickO

8=0

Forn=lTo3

P=1

Fork=lTon

p=p*k

Nextk

s=s+p

Prints;

Ncxtn

EndSub

2.下列程序運行后，單擊窗體，輸出結(jié)果是[2】。答案:7

PrivateSubFormClick()

m=0

Eork=lTo4

SelectCasek

Casel,2

m=m+l

Casels>3

m=m+2

CaselTo4

m=m+3

EndSelect

Nextk

Printm

EndSub

3.在窗體上放置一個文本框，名稱為Textl。下列程序運行后，單擊窗體，Text」中顯

示的內(nèi)容是［3］。答案:ade

PrivateSubForm_Click()

Text1.Tex

s="aBdl2Re”

Fork=lToLen(s)

ch=Mid(s,k,1)

Ifch>="a"Andch〈="z"Then

Textl.Text=Textl.Text+ch

Endlf

Nextk

EndSub

4.下列程序運行后，單擊窗體，輸出結(jié)果是［4］。答案：1124

OptionBasel

PrivateSubFormClick()

x二Array(3,5,4,8,2,6,11,9,7,4)

p=x(l):s=0

Fork=2TolIBound(x)

Ifx(k)>pThen

P=x(k)

s=s+p

EndTf

Nextk

Primp;s

EndSub

5.下列程序運行后，單擊窗體，輸出結(jié)果是［5］。答案：151

PrivateSubFormClick()

Dima(lTo3,1TO3)

Fori=lTo3

Fork=lTo3

Ifk=10ri=kThen

a(i,k)=l

Else

a(i,k)=i+k

Endlf

Nextk

Nexti

Printad,l);a(2,3);a(3,3)

EndSub

6.在窗體上放置一個命令按鈕，名稱為Command2并編寫如下代碼。

PrivateSubCommand2Click()

DimmAsInteger,nAsInteger,g/\sInteger

m=18:n=12:g=0

CalIsubl(m,n,g)

Printm;n;g

EndSub

Pub1ieSubsub1(ByVa1aAsInteger,ByValbAsInteger,cAslnteger)

Ifa<bThent=a:a=b:b=t

DoWhilebOO

r=aModb

a=b

b=r

Loop

c=a

EndSub

程序運行后，單擊命令按鈕，則輸出結(jié)果是［6］。答案：18126

7.在窗體上放置一個命令按鈕，名稱為Conunand3并編寫如下代碼。

PrivateSubCommand3_Click()

DimkAslntcger

k=l

Printfunl(k);

Printfunl(k);

Printfunl(k);

EndSub

Functionfunl(aAsIntcger)Aslntegcr

StaticcAsInteger

DimbAsInteger

a=a+2:b=b+2:c=c+2

funl=a+b+c

EndFunction

程序運行后，單擊命令按鈕，則輸出結(jié)果是［7］。答案：71115

8.在窗體上放置一個文本框，其名稱為Textl,并編寫如下代碼。

DimsAsString

PrivateSubTextlKeyPress(KeyAsciiAslnteger)

s=s+Chr(KeyAscii)

Prints;

EndSub

程序運行后，在文本框中輸入abc,則窗體上輸出的內(nèi)容是［8］。答案：aababc

1.在窗體上放置一個計時器和一個標(biāo)簽，計時器名稱為Hmerl,標(biāo)簽名稱為Label1。下

列程序的功能是：

(1)在窗體加載事件中設(shè)置計時器每秒鐘能夠觸發(fā)5次Timer事件：

(2)每觸發(fā)一次Timer事件能夠?qū)?biāo)簽上的字號加大2,當(dāng)字號超過當(dāng)前窗體的寬度

時，將字號恢復(fù)為8。

程序中有一.處.錯誤，請更正。說明錯誤時可以使用每條語句前的編號。

(l)PrivateSubForm_Load()

(2)Timer1.Interval=5答案：200

(3)Timerl.Enabled二True

(4)EndSub

(5)PrivateSubTimerlTimer()

(6)Label1.FontSize=Labell.FontSize+2

(7)IfLabell.FontSize>Me.WidthThen

(8)Label1.FontSize=8

(9)EndIf

(10)EndSub

2.下列程序的功能是計算l+3+5+“+99的和s。程序中有一處.錯誤。請更正謝第時

可以使用每條語句前的編號

(l)s=0

(2)k=l

(3)DoWhilek<=9