VB期末考試試題一

VB期末考試試題一、填空題

1、VB程序設(shè)計(jì)的主要特點(diǎn)是可視化設(shè)計(jì)和事件驅(qū)動(dòng)編程o

2、在VB中，最主要的兩種對(duì)象是窗體（form）和控件。

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

4、方法是VB提供的一種特殊子程序，用來(lái)完成一定的操作。

5、浮點(diǎn)類(lèi)型數(shù)據(jù)包括單精度型和一雙精度—數(shù)據(jù)。

6、事件是窗體或控件對(duì)象識(shí)別的—?jiǎng)幼鳕D。

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

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

9、在VB中，修改窗體的高度（Height）和寬度（Width）屬性值，可改變窗體的大小。

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

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

12、設(shè)x=34.58,語(yǔ)句PrintFormat（x,“000.0"）的輸出結(jié)果是（34.6）。

13、在VB中，數(shù)值型變量的初值為（0）,Varant型變量的初值為（空），布爾型

變量的初值為（False）。

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

15、程序運(yùn)行工程中，清除MP圖片框中的圖片應(yīng)使用語(yǔ)句（Cis）。

二、選擇題

1、菜單控件只包括一個(gè)事件，即（C）,當(dāng)用鼠標(biāo)單擊或鍵盤(pán)選中后按“回車(chē)”鍵時(shí)觸

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

A、GotFocusB、LoadC、ClickD、KeyDown

2、滾動(dòng)條控件（如圖所示）的Max屬性所設(shè)置的是（A）。

A、滾動(dòng)框處于最右位置時(shí)，?個(gè)滾動(dòng)條位置的Value屬性最大設(shè)置值

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

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

D、滾動(dòng)條控件無(wú)該屬性

3、SQL語(yǔ)句Select*Formstudent中的*表示（B）。

A、所有記錄B、所有字段C、所有表D、都不對(duì)

4、以下選項(xiàng)中，不屬于標(biāo)簽的屬性是（C）。

A、EnabledB、CaptionC、DefaultD、Font

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

A、CaptionB、NameC、TextD、Label

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

是（D）。

A、CaptionB、NameC、TextD、Value

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

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

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

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

PrivateSubCommandl_Click()

PrintnVBn;

Print“Hello!”；

PrintHVBM

EndSub

A、VBHelloJVBB、VB

HelloJVB

C、VBD、VB

Hello!VBHello!

VB

9、語(yǔ)句PrintnTheansweris:n;20/4-2的結(jié)果為（B）°

A、Theansweris20/4-2B、Theansweris3

C、TheanswerisH20/4-2nD、非法語(yǔ)句

10、下列哪個(gè)控件是容器控件（B）。

A、ImageB、PictureC、ComboBoxD、FileListBox

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

A.ShowB.HideC.LoadD.UnLoad

12、以下選項(xiàng)中，不是VisualBasic控件的是（A）。

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

13、雙擊窗體中的對(duì)象后，VisualBasic將顯示的窗口是（A）。

A.代碼窗口B.工具箱C.項(xiàng)目（工程）窗口D.屬性窗口

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

A.ControlBoxB.MinButton

C.MaxButtonD.BorderStyle

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

Strl=InputBox（"輸人"，叫"練習(xí)"）

從鍵盤(pán)上輸人字符“示例”后，Strl的值是（D）。

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

16、窗體Forml的Name屬性是Frml,它的單擊事件過(guò)程名是（C）

A.Forml_ClickB.FormClickC.FrmlClickD.MeCIick

17＞窗體的hide屬性的含義是（A）。

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

18、若要設(shè)置定時(shí)器控件的定時(shí)時(shí)間，需設(shè)置的屬性是（C）o

A.EnabledB.ValueC.IntervalD.Text

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

A.ValueB.FontColorC.BackColorD.Font

20、窗體能響應(yīng)的事件是（B）o

A.ActiveFormB.LoadC.DriveD.Change

三、判斷題（判斷下列正確與否，正確的打4,錯(cuò)誤的打X。）

1、三種方式的組合框都允許用戶(hù)輸入哪些不在列表框中的選項(xiàng)。X

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

3、在菜單編輯器中使用“索引”時(shí)，可有一組菜單項(xiàng)具有相同的“名字X

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

5、創(chuàng)建VB應(yīng)用程序的三個(gè)主要步驟是：(1)創(chuàng)建應(yīng)用程序界面(2)設(shè)置控件(3)編寫(xiě)代碼。X

6、變量是指在程序運(yùn)行過(guò)程中其值可以改變的那些量，而值不能改變的是常量。4

7^已知P=MsgBox("Howareyou?",VbYesNo+VbQuestion)“Hello!”),變量P是Integer數(shù)

據(jù)類(lèi)型。?

8、工程文件的擴(kuò)展名是.vbg。4

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

10、OptionButton控件沒(méi)有DbICliek事件。X

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

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

13>ImageList是一個(gè)圖像容器控件，可用作工具欄的圖像庫(kù)。7

14、當(dāng)用戶(hù)單擊工具欄按鈕時(shí)，將觸發(fā)工具欄按鈕的ButtonClick事件。<

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

刪除(真正刪除)。X

16、如果列表框的ListConut的屬性為10,則列表框最后一項(xiàng)的Listindex值為10。X

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

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

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

20、在代碼窗口中輸入某行代碼并按回車(chē)鍵之后，如果代碼變成紅色，說(shuō)明該行代碼有語(yǔ)法

錯(cuò)誤。4

四、讀程序題，寫(xiě)出程序運(yùn)行結(jié)果

1、PrivateSubForm_Click()

StaticSUMAsInteger

1=1

DoWhileI<=10

SUM=SUM+I

1=1+1

Loop

PrintSUM

EndSub

運(yùn)行程序，第一次單擊窗體：55

第二次單擊窗體：110

2、PrivateSubForm_Click()

PrintTab(6);2,Tab(15);5

Print

For1=15To16

PrintI;

Forj=2To6Step3

PrintTab(3*j);j*I;

Nextj

Print

NextI

EndSub

程序運(yùn)行結(jié)果：*25

153075

163280

五、編程題

(一)窗體中有圖片框(Picture】)和計(jì)時(shí)器(Timerl)兩個(gè)控件，運(yùn)行程序時(shí)，將圖片加載到圖

片框中，然后圖片框以每2秒鐘一次的速度向窗體的右下腳移動(dòng)，每次向左、向右移動(dòng)

lOOtwip(20分之一像素)。請(qǐng)?zhí)羁眨?/p>

PrivateSubForm_load()

(Picture】.Picture)=loadPicture(“c:\pic\ball.ico")

(Timer1).Interval=200

EndSub

PrivateSubTimer1Timer(x)

Staticx,yAsInteger

x=x+100

y=y+100

Picturel.Move(y)

EndSub

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

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

PrivateSubCommand1_Click()

DimxAsInteger,N%

DimCounterAsInteger

(Randomize)Timer

ForN=1To50

X=Rnd()*(41+60)

If(xMod6)=2Then

Printx

Counter=(Counter+1)

(EndIf)

NextN

PrintCounter

EndSub

大一的Vb期末考試題和答案

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

A.CaptionB.NameC.TextD.Index

2.設(shè)變量x=4,y=-1,a=7,b=?8,下面表達(dá)式(a）的值為“假”。

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

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

3.表達(dá)式lnt（Rnd*71）+10產(chǎn)生的隨機(jī)整數(shù)范圍是（C)o

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

4.函數(shù)Sgn（3.1416）的返回值是（c)o

A.-1B.0C.1D.以上都不對(duì)

5.67890屬于（d）類(lèi)型數(shù)據(jù)。

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

6.卜.列變量名中正確的是(d)o

A.3SB.PrintC.SelectMyNameD.Select1

7.下列賦值語(yǔ)句（a)是有效的。

A.sum=sum-sumB.x+2=x+2C.x+y=sum

D.last=y/0

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

A.PrintB.TextboxC.OptionbuttonD.Checkbox

9.若要獲得列表框中被選中的列表項(xiàng)的內(nèi)容，可以通過(guò)訪(fǎng)問(wèn)(d）屬性來(lái)實(shí)現(xiàn)。

A.NameB.ListindexC.ListCountD.Text

10.下列代碼的運(yùn)行結(jié)果為（b）o

PrivateSubcommand1_click()

Dimm(10)

Fork=1To10

m(k)=11-k

Nextk

x=5

Printm(2+m(x))

EndSub

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

二、填空題（10分）

6.要使標(biāo)簽的大小自動(dòng)與所顯示的文本相適應(yīng)，可以通過(guò)設(shè)置

屬性為T(mén)rue來(lái)實(shí)現(xiàn)。

7.若要在一行書(shū)寫(xiě)多條語(yǔ)句，則各語(yǔ)句間應(yīng)加分隔符，VisualBasic的語(yǔ)句分隔符為。

8.要強(qiáng)制顯式聲明變量，使用語(yǔ)句完成。

9.在VB中，用戶(hù)定義常量使用語(yǔ)句，聲明變量使用語(yǔ)句。

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

1.a2+2ab+b2___________________________

3.8exln10___________________________

4.2sin（450）cos（450）________________________________

四、判斷題，正確打7”,錯(cuò)誤打“x”（10分）

1.在VB中，控件的事件只能通過(guò)用戶(hù)的操作觸發(fā)。（）

2.字符型數(shù)據(jù)以雙引號(hào)作為定界符，輸出時(shí)雙引號(hào)本身不會(huì)顯示在屏幕上。（）

3.保存工程時(shí)，窗體文件和工程文件的文件名不能相同。（）

4.改變控件的大小，可以使用鼠標(biāo)和鍵盤(pán)，還可以通過(guò)修改代碼。（）

5.同一過(guò)程中，數(shù)組和簡(jiǎn)單變量可以同名。（）

6.VB函數(shù)中的參數(shù)可以是常量、變量、表達(dá)式，還可以是另一個(gè)函數(shù)。（）

7.代碼ConstNumber1=15：Number1=10合法。（）

8.允許將塊If-Then語(yǔ)句結(jié)構(gòu)中的所有語(yǔ)句都寫(xiě)在一行上（）

9.定義數(shù)組語(yǔ)句Dima（b）AsInteger是正確的（）

10.在過(guò)程調(diào)用中，“實(shí)參表”和“形參表”中對(duì)應(yīng)的變量名不必相同，但是變量的個(gè)數(shù)必須相

等，而且實(shí)際參數(shù)的類(lèi)型必須與相應(yīng)形式參數(shù)的類(lèi)型相符。（）

五、根據(jù)題意，將下列程序補(bǔ)充完整。（16分）

1.產(chǎn)生20個(gè)［10,100］之間的隨機(jī)整數(shù)，每行輸出10個(gè)數(shù)據(jù)。

PrivateSubcommand1_click()

Dima(1To20)AsInteger

Randomize

i=0

DoWhilei<20

i=i+1

a(i)=(

If()Then

Printa(i);

EndIf

Ifi=10ThenPrinta(i)

Ifi>10ThenPrinta(i);

Loop

EndSub

2.打印九九乘法表

PrivateSubcommand1_click()

Fori=1To9

Forj=1To9

Print()

Nextj

Print

()

EndSub

3.判斷一個(gè)數(shù)是否素?cái)?shù)

PrivateSubcommand1_click()

x=lnputBox("請(qǐng)輸入一個(gè)整數(shù)”)

flag=1

Fori=2To(

IfxModi=0Then

flag=0

EndIf

Nexti

If()ThenPrintx;"是素?cái)?shù)”日sePrintx;"不是素?cái)?shù)”

EndSub

4.利用數(shù)組輸出Fibonacci數(shù)列的前15項(xiàng)。

該數(shù)列的第1項(xiàng)和第2項(xiàng)為1,其余各項(xiàng)均為其前兩項(xiàng)之和。

PrivateSubCommand1_Click()

()

f(1)=1:f(2)=1

Listl.Additemf(1):Listl.Additemf(2)

Fori=3To15

f(i)=()

Listl.AddItemf(i)

Nexti

EndSub

六、寫(xiě)出下面程序的輸出結(jié)果。(每題3分，共18分)

1.PrivateSubcommand1_click()

x=lnputBox(Henterx")Vx的輸入值為-8

SelectCaseSgn(x)+2

Case1

PrintxA2+1

Case2

Print,,y="；x-4

Case3

PrintHy=";xA3+100

EndSelect

EndSub

2.PrivateSubcommand1_click()

Dima,b,c,d,eAsString

a="ZhengZhou"

b="ZhongYuanGongXueYuan"

c=a+""+b

d=Left(a,1)+Mid(a,7,1)

e=Left(b,1)+Mid(b,12,1)

Printc

Printd;e

EndSub

3.設(shè)有Sub過(guò)程：

PrivateSubp1(xAsInteger,ByVaiyAsInteger)

x=4：y=5：z=6

EndSub

則如下程序段的運(yùn)行結(jié)果是：

PrivateSubCommand1_Click()

DimxAsInteger,yAsInteger

x=1:y=2:z=3

Printx,y,z

Callp1(x,y)

Printx,y,z

EndSub

4.PrivateSubcommand1_click()

k=0

Fori=1To3

k=k+1

a=i*i*k

Printa;

Nexti

EndSub

5.PrivateSubcommand1_click()

Dima(5,5)AsInteger

Fori=1To5

Forj=1To5

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

Printa(i,j);

Nextj

Print

Nexti

EndSub

6.設(shè)有Function過(guò)程：

PrivateFunctionf1(b,a)

a=a*a:b=b*b

f1=a-b

EndFunction

則如下程序段的運(yùn)行結(jié)果是什么？

PrivateSubcommand1_click()

a=4:b=3

a=f1(a,b)

Printa

EndSub

七.編程題（共30分）

1.給出一個(gè)百分制的成績(jī)，要求輸出成績(jī)的相應(yīng)等級(jí)。（7分）

90分以上為“A”,80?89分為“B”，70?79分為“C”，60?69分為“D”，60分以下為“E”。

2.求n!,n由鍵盤(pán)輸入。（7分）

3.產(chǎn)生20個(gè)［0,99］之間的隨機(jī)整數(shù)，并按從小到大的順序輸出。（8分）

4.產(chǎn)生并輸出一個(gè)6x6的二維數(shù)組A：（8分）

（1）兩條對(duì)角線(xiàn)上元素的值為1,其余元素為小于30的隨機(jī)整數(shù)。

（2）計(jì)算各行元素的平均值，輸出平均值最大和平均值最小的行號(hào)。

5.輸出1+2+……+100的和，并求出1~100之間能被17整除的數(shù)據(jù)的個(gè)數(shù)（8分）

6.從鍵盤(pán)輸入10個(gè)數(shù)，求出其中的最大數(shù)，最小數(shù)和平均值。（8分）

VB試題答案及評(píng)分標(biāo)準(zhǔn)

一、1.B2.A3.C4.C5.D6.D7.A8.B9.D10.B

二、1.nMod13=0AndnMod17=02、對(duì)象3.LEFT("VisualBasic6.0”,6)

4.65.False6.Autosize7.：8.OptionExplict9.ConstDim

三、1、aA2+2*a*b+bA22、x"(1/3)*y"(1/4)3、8*exp(x)*log(10)

4、2*sin(3.1416/4)*cos(3.1416/4)5、(x+y+z)/sqr(xA2+yA2+zA2)6、

log(1+abs((a+b)/(a-b)))

四、1.x2.43.x4.45,x6.47.x8.x9.x10.4

五、1.(1)int(rnd*91)+10(2)l<102.(1)i*j(2)nexti

3.(1)int(sqr(x))或者x?1(2)flag=14.(1)dimf(15)asinteger(2)f(l-1)+f(l-2)

六、1、y=652、ZhengZhouZhongYuanGongXueYuan2分

ZZZG2分

3.123

4234.1827

5.34567

56789

7891011

910111213

11121314156.■

七、1.privatesubcommand1__click()

dimxasinteger,gradeasstring1分

x=text1.text1分

selectcasex4分

case90to100

grade="A"

case80to89

grade=,,BM

case70to79

grade-C”

case60to69

gradehD”

caseis<60

grade二"E"

caseelse

msgbox“請(qǐng)重新輸入”

endselect

print“該學(xué)生成績(jī)?yōu)?+grade1分

endsub

2.PrivateSubcommand1_click()

Dimnasinteger,faslong1分

n=text1.text1分

f=1

for1=1ton