VB期末考試試題(A、B卷)　

VB期末考試試題（A卷）

一、選擇題

1.要改變控件的寬度，應(yīng)修改該控件的（B）屬

fto

A、TOPB、widthC、LeftD、Height

2.將命令按鈕Command1設(shè)置為不可見(jiàn)，應(yīng)修改該命令

按鈕的（A）屬性。

A、VisibleB、ValueC、CaptionD、Enabled

3.單機(jī)滾動(dòng)條兩端的任何一個(gè)滾動(dòng)箭頭，將觸發(fā)該滾

動(dòng)條的（C）事件。

A、ScrollB、KeyDownC、changeD、Dragver

4.（D）對(duì)象具有clear方法。

A、圖片框B、窗體C、復(fù)選框D、列表框

5.中心定義圖片框控件的坐標(biāo)系統(tǒng)，可采用該圖片框

的（A）

A、scaleB、ScaleXC、scaleYD>setFocus

6.將通過(guò)對(duì)話框CommdDialogl的類(lèi)型設(shè)置成另存為

對(duì)話框，可調(diào)用該控件的（B）方法。

A、ShowopenB、ShowsaveC>ShowColorD>

ShowFont

7.形狀控件所顯示的圖形不可能是（D）

A、圓B、橢圓C、圓角正方形D、等邊三角

形

8.由FroK=10TOoslept3：nextK循環(huán)語(yǔ)句控

件的循環(huán)次數(shù)是（B）

A、12B、0C、-11D、-10

9.下列數(shù)據(jù)類(lèi)型中，占用內(nèi)存最大值是（D）

A、BooIwanB、ByteC、LntegerD、Single

10.如果在圖片框上使用繪圖方法繪制一個(gè)實(shí)心圓，則

圖片框的（C）屬性決定了該圖片的顏色。

A、BackColroB、ForelklorC、FillcolorD、

Dlawstyle

一、選擇題

1.要在垂直位置上移動(dòng)控件，應(yīng)利用控件的（C）

屬性。

A、LeftB、WidthC、TopD、Height

2.要在文本框中的文本顯示掩碼(密碼)符，在屬性

設(shè)置時(shí)，首先必須設(shè)置(D)屬性為False。

A、TxetB、EnabledC、VisibleD、Multline

3.用鍵盤(pán)的光標(biāo)鍵選中某一菜單項(xiàng)，并按回車(chē)觸發(fā)菜

單的(C)的事件。

A、KeyPressB、KeyDownC、ClickD>Keyllp

4.-F(D)對(duì)象求具有Clear方法。

A、列表框B、組合框C、剪貼框D、圖片框

5.軟件列表中設(shè)定“文件列表”顯示文件類(lèi)型應(yīng)改該

控件的(D)屬性。

A、PathB、FileNameC、NameD>Patterw

6.組合框有三種風(fēng)格，它優(yōu)J由Style屬性所決定，其

中為簡(jiǎn)單組合框時(shí)，Style屬性值應(yīng)為(B)

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

7.下列可調(diào)整圖片框的大小以適合圖片的屬性是

(B)

A>StretchB、autosizeC、pictureD>

oledropmode

8.要想清除文本框中的內(nèi)容則可利用(A)進(jìn)行。

A、CaptionB、TextC、ClearD>Cis

9.下列表達(dá)式中，其值為0的是(C)

A、7/9B、7mod15C、7\9D、15mod9

10.求以10為底X的常用對(duì)數(shù)的表達(dá)式為(A)

A、LoG(X)/LoG(10)B、LN(X)C、LoG(X)

/LoG(E)D、LoG(X)

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

1.代數(shù)式的VisualBasic表達(dá)式是

sqr((x/3+exp(-6)*log(y))*atn(a*3.14159/180)/(

x*x+y*y))

2.設(shè)x=2,y=4,a=4,b=6,表達(dá)式(a>xXorb<x)OR

x<yIMPy<b的結(jié)果用True。

3.a和b中有僅只有一個(gè)不為1,相應(yīng)的Visual

Basic邏輯表達(dá)式為a〈>lxorb〈>l。

4.把條件為1￡x￡5寫(xiě)成VB表達(dá)式為:x>land

x<=5o

5.語(yǔ)句

Line(1000,1000)-Step(2000,1500),vbRed,BF的含

義是：在窗體上繪制以角點(diǎn)為(2000,2000)和(4000,

3500)的紅色實(shí)心的矩形。

6.用隨機(jī)函數(shù)產(chǎn)生10個(gè)100?500的整數(shù)，其表達(dá)可

為：forI=1to10

a(i)=100+int(400*rnd)

nextI。

7.當(dāng)x=2時(shí)，語(yǔ)句ifx=2thenPrintx=2的結(jié)果

值是True。

8.StaticPrivateSubcmdSumClick()

DimSumasinteger

Sum=2*Sum+l

EndSub

問(wèn)：第三次單擊命令按鈕cmdSum后，Sum的值為：_7^

9.聲明單精度常量g(重力加速度)代表9.8可寫(xiě)成:

constg=9.8。

10.欲使在自己設(shè)計(jì)VB程序運(yùn)行過(guò)程中，不中止本程

序的運(yùn)行，同時(shí)又可調(diào)用系統(tǒng)中已有的應(yīng)用程序

c:\windows\notepad.exe,可在程序代碼窗口必要的

地方添加語(yǔ)句：

shell("c:\windows\notepad.exe")。_____

三、編程題

1隨機(jī)產(chǎn)生n個(gè)兩位正整數(shù)(n由對(duì)話框輸入，切n>0)o

求出其中的偶數(shù)之和，并在標(biāo)簽框Laboll上顯示。

程序?qū)懺诿畎粹oCommandl的click事件中。

PrivateSubCommandl_Click()

DimnAsInteger

DimiAsInteger,sumAsLong

n=Vai(InputBox("Pleaseinputainteger”,

“InputNvaluez/))

Fori=1Ton

rnddat=(10+Int(90*Rnd))

IfrnddatMod2=0Then

sum=sum+rnddat

EndIf

Nexti

Label1.Caption=sum

EndSub

2由輸入對(duì)話框中輸入100個(gè)數(shù)值數(shù)據(jù)，放入數(shù)組a,

將其中的整數(shù)放入數(shù)組b,然后運(yùn)用選擇分類(lèi)將數(shù)組b

中的數(shù)據(jù)按從大到小的順序排列，并以每行5個(gè)數(shù)據(jù)

在窗體上輸出。

注：程序?qū)懺诖绑wform的click事件上。

PrivateSubForm_Click()

Dima(lTo100)一

Dimb()asinteger

DimiAsInteger,jAsInteger,kAsInteger,pos

AsInteger,tempasinteger

Fori=1To100

a(i)=Vai(InputBox("Pleaseinputdata"))

Ifa(i)=Int(a(i))Then

J=j+1

ReDimPreserveb(j)

b(j)=a(i)

EndIf

Nexti

Fork=1Toj-1

pos=k

Form=kToj

Ifb(m)<b(pos)Thenpos=m

Nextm

Ifk<>posThen

temp=b(k)

b(k)=b(pos)

b(pos)=temp

EndIf

Nextk

Fork=1Toj

IfkMod5=0ThenPrintb(k)ElsePrintb(k);

Nextk

EndSub

四、程序閱讀題（每小題6分，共18分）

1.程序1：

DimYAsInteger

PrivateStubCommandClick()

DimXAsInteger

X=1

Y二1

CallAA(Y+1)

Z=BB(X)

PrintX,Y,Z

EndSub

PrivateSubAA(ByVaiZAsInteger)

Y=Z+X

Z二X+Y

EndSub

PrivateFunctionBB(ByRefYAsInteger)

Y二Y+1

BB=X+Y

EndFunction結(jié)果:22

2)

2.程序2：

privatesubFormclick()

N二3

DimA(3,3)AsInteger

ForI=IToN

ForJ=IToN

A(I,J)二(J-1)*N+

NextJ

NextI

ForI=2ToN

ForJ=1ToI-1

TEMP=A(I,J)

A(I,J)=A(J,I)

A(J,I)二TEMP

NextJ

NextI

ForX=1ToN

PrintX,A(X,N+X-I),A(X,X)

NextX

EndSub結(jié)果：(10/

271I

311]2)

3.程序3：

PrivateSubFormclickO

DimflAsInteger,f2AsInteger,f3As

Integer

Open〃c:\al.dat〃ForOutputAs#1

fl=2:f2=3

Print〃；3,fl

Print〃；4,f2

For1=5To7

f3=fl+f2

Print#1,〃N0.〃；I,f3

fl二f2

f2=f3

NextI

Close#1

EndSub

寫(xiě)出文件al.dat的最終結(jié)果。(

NO.32

NO.43

NO.55

NO.68

NO.713)

五、程序填空題(每小題9分，共18分)1.從計(jì)算

機(jī)輸入三個(gè)數(shù)，找出中間數(shù)

PrivateSubFindMidNum()

X=INPUTBOX(uPLEASEINPUTTHEFIRST

NUMBER")

Y二INPUTBOX("PLEASEINPUTTHESECOND

NUMBER)

Z二INPUTBOX("PLESSEINPUTTHETHIRDNUMBER)

IF(X<Y)THEN

A二X

X二Y

Y二A

ENDIF

IF(Y>=Z)THEN

PRINTY

ELSEIF(X>=Z)THEN

PRINTZ

ELSE

PRINTX

ENDIF

EndSub

2.打印以下楊輝三角形1

11

121

133

1

14641

15101051

DimQ()AsInteger

N二InputBox("PLEASEINPUTN〃)

ReDimQ(N,N)

ForI=1ToN

ForJ=1ToN

Q(I,J)二(0)

NextJ

NextI

ForK=0To(N-1)

Q(K+1,1)=1

Print1;

ForI=1ToK

Q(K+1,I+1)=(Q(K,I+1))+

Q(K,I)

Print(Q(K+1,I+1))

NextI

Print

NextK

VB期末考試試題(B卷)

1.下列代數(shù)式的VisualBasic表達(dá)式是

()o

二、填空

2.設(shè)x為大于零的實(shí)數(shù)，則大于x的最小奇數(shù)的

VisualBasic表達(dá)式是HF(int(x)mod

2=0,int(x)+2,int(x)+1)。

3.al和a2之中有且只有一個(gè)與a3的值相等，相應(yīng)

的VisualBasic邏輯表達(dá)式是：al=a3xora2=a3o

有al和a2之中沒(méi)有一個(gè)與a3的值相等，則相應(yīng)的表

達(dá)式是：al＜〉a3anda2＜〉a3。

4.設(shè)init的初值為10,則由下列循環(huán)語(yǔ)句控制的循

環(huán)次數(shù)是6。

DoWhileinit〉二5

init=initT

Loop

5.在VisualBasic中，變量從它的作用范圍來(lái)看，

可分為全局變量、模塊級(jí)變量和過(guò)程

級(jí)變量三種。

6.語(yǔ)句Picturel.Circle(800,1000),500的含義是_

以圓心為(800,1000)半徑為500的圓

7.聲明定長(zhǎng)為10個(gè)字符變量Sstr的語(yǔ)句為：Dim

SstrasString*10。

三、程序閱讀題，閱讀下列程序書(shū)寫(xiě)結(jié)構(gòu)。

程序1

PrivateStaticSubCommandl_Click()

DimxAsInteger,sAsInteger

x=Vai(InputBox(〃請(qǐng)輸入一個(gè)正整數(shù)=〃))

Ifx＜5Then

S=S*X

Else

s=s+x

EndIf

Textl.Text=〃s=〃+Str(s)

EndSub

程序運(yùn)行時(shí)連續(xù)三次單擊Commandl,且設(shè)輸入的數(shù)是

5,2和4時(shí),分別寫(xiě)出文本框textl.text的值。

結(jié)果：(s=5s二10s=40)

b)程序2

PrivateSubFormClick()

Forml.Cis

w二3

Fork=2To6Step2

Forml.Print〃w二〃；w,〃k二〃；k

w=w+1

Nextk

Forml.Print〃w二〃；w,〃k二〃；k

EndSub

寫(xiě)出程序運(yùn)行時(shí)單擊窗體后，F(xiàn)orm1上輸出結(jié)果。

結(jié)果為：(w=3k=2

W二4k二4

W=5k=6

W=6k=8)

c)程序3

Rem在窗體的通用聲明區(qū)聲明兩個(gè)模塊級(jí)變量a和y

DimaAsInteger,yAsInteger

PrivateSubFormLoad()

Open'c:\al.dat"ForOutputAs#1

Close#1

EndSub

PrivateSubConnnandl_Click()

Open'c:\al.dat〃ForAppendAs#1

Callaa(5)

y=y+a

Print#1,〃y二“；y,〃a=〃；a:Close#1

EndSub

Subaa(iAsInteger)

x=1

DoUntilx>i

a=a+x

x=x+3

Loop

EndSub

寫(xiě)出程序運(yùn)行時(shí)連續(xù)三次單擊Command1后，al.dat

文件的最終結(jié)果為：(

y=5a=5

y二15a二10

y=30a=15)

五、程序填空題(每小題9分，共18分)

a)程序說(shuō)明:利用一個(gè)計(jì)時(shí)器、一個(gè)標(biāo)簽框和二個(gè)命

令按鈕制作一個(gè)動(dòng)態(tài)秒表，如圖1所示。單擊“開(kāi)始

“命令按鈕，秒表開(kāi)始計(jì)時(shí)，單擊“結(jié)束”命令按鈕,

秒表結(jié)束計(jì)時(shí)，并在標(biāo)簽框顯示運(yùn)行時(shí)間，如“運(yùn)行

T0小時(shí)2分10秒“。(假設(shè)對(duì)象的屬性都在程序

代碼中設(shè)定)。

DimxAsLong

DimhAsInteger,mAsInteger,sAsInteger

PrivateSubFormLoad()

Forml.Caption=〃動(dòng)態(tài)秒表(小時(shí):分：秒)〃

Commandl.Caption=〃開(kāi)始[&S]〃

Command2.Caption=〃結(jié)束[&E]〃

Label1.Alignment=2'居中對(duì)齊

Label1.Capti