VB期末考試試題一

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

1、VB程序設(shè)計的主要特點是可視化設(shè)計和事件驅(qū)動編程o

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

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

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

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

6、事件是窗體或控件對象識別的—動作―。

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

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

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

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

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

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

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

變量的初值為（False）。

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

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

二、選擇題

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

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

A、GotFocusB、LoadC、ClickD、KeyDown

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

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

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

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

D、滾動條控件無該屬性

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

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

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

A、EnabledB、CaptionC、DefaultD、Font

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

A、CaptionB、NameC、TextD、Label

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

是（D）。

A、CaptionB、NameC、TextD、Value

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

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

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

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

PrivateSubCommandl_Click()

PrintnVBn;

Print“Hello!”；

PrintHVBM

EndSub

A、VBHelloJVBB、VB

HelloJVB

C、VBD、VB

Hello!VBHello!

VB

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

A、Theansweris20/4-2B、Theansweris3

C、TheanswerisH20/4-2nD、非法語句

10、下列哪個控件是容器控件（B）。

A、ImageB、PictureC、ComboBoxD、FileListBox

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

A.ShowB.HideC.LoadD.UnLoad

12、以下選項中，不是VisualBasic控件的是（A）。

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

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

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

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

A.ControlBoxB.MinButton

C.MaxButtonD.BorderStyle

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

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

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

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

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

A.Forml_ClickB.FormClickC.FrmlClickD.MeCIick

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

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

18、若要設(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,錯誤的打X。）

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

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

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

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

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

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

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

據(jù)類型。?

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

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

10、OptionButton控件沒有DbICliek事件。X

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

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

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

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

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

刪除(真正刪除)。X

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

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

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

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

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

錯誤。4

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

1、PrivateSubForm_Click()

StaticSUMAsInteger

1=1

DoWhileI<=10

SUM=SUM+I

1=1+1

Loop

PrintSUM

EndSub

運行程序，第一次單擊窗體：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

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

153075

163280

五、編程題

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

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

lOOtwip(20分之一像素)。請?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

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

余2的個數(shù)，并將這些數(shù)輸出。請?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.在代碼中引用一個控件時，應(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)生的隨機整數(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.以上都不對

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

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

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

A.3SB.PrintC.SelectMyNameD.Select1

7.下列賦值語句（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.若要獲得列表框中被選中的列表項的內(nèi)容，可以通過訪問(d）屬性來實現(xiàn)。

A.NameB.ListindexC.ListCountD.Text

10.下列代碼的運行結(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)簽的大小自動與所顯示的文本相適應(yīng)，可以通過設(shè)置

屬性為True來實現(xiàn)。

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

8.要強制顯式聲明變量，使用語句完成。

9.在VB中，用戶定義常量使用語句，聲明變量使用語句。

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

1.a2+2ab+b2___________________________

3.8exln10___________________________

4.2sin（450）cos（450）________________________________

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

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

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

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

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

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

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

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

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

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

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

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

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

1.產(chǎn)生20個［10,100］之間的隨機整數(shù)，每行輸出10個數(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.判斷一個數(shù)是否素數(shù)

PrivateSubcommand1_click()

x=lnputBox("請輸入一個整數(shù)”)

flag=1

Fori=2To(

IfxModi=0Then

flag=0

EndIf

Nexti

If()ThenPrintx;"是素數(shù)”日sePrintx;"不是素數(shù)”

EndSub

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

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

PrivateSubCommand1_Click()

()

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

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

Fori=3To15

f(i)=()

Listl.AddItemf(i)

Nexti

EndSub

六、寫出下面程序的輸出結(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過程：

PrivateSubp1(xAsInteger,ByVaiyAsInteger)

x=4：y=5：z=6

EndSub

則如下程序段的運行結(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過程：

PrivateFunctionf1(b,a)

a=a*a:b=b*b

f1=a-b

EndFunction

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

PrivateSubcommand1_click()

a=4:b=3

a=f1(a,b)

Printa

EndSub

七.編程題（共30分）

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

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

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

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

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

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

（2）計算各行元素的平均值，輸出平均值最大和平均值最小的行號。

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

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

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

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

二、1.nMod13=0AndnMod17=02、對象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“請重新輸入”

endselect

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

endsub

2.PrivateSubcommand1_click()

Dimnasinteger,faslong1分

n=text1.text1分

f=1

for1=1ton