VB期末考試試題

VB期末考試試題（A卷）

-、選擇題

1.要改變控件的寬度，應修改該控件的（B）屬

fto

A、TOPB、widthC、LeftD、Height

2.將命令按鈕Commandl設置為不可見，應修改該命令

按鈕的（A）屬性。

A、VisibleB、ValueC、CaptionD、Enabled

3.單機滾動條兩端的任何一個滾動箭頭，將觸發(fā)該滾

動條的（C）事件。

A、ScrollB、KeyDownC、changeD>Dragver

4.（D）對象具有clear方法。

A、圖片框B、窗體C、復選框D、列表框

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

的（A）

A、scaleB、ScaleXC、scaleYD>setFocus

6.將通過對話框CommdDialogl的類型設置成另存為

對話框，可調用該控件的（B）方法。

A、ShowopenB、ShowsaveC、ShowColorD、

ShowFont

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

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

形

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

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

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

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

A、BoolwanB、ByteC、LntegerD>Single

10.如果在圖片框上使用繪圖方法繪制一個實心圓，則

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

A、BackColroB、ForelklorC、FillcolorD、

Dlawstyle

一、選擇題

1.要在垂直位置上移動控件，應利用控件的（C）

屬性。

A、LeftB、WidthC、TopD、Height

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

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

A、TxetB、EnabledC、VisibleD、Multline

3.用鍵盤的光標鍵選中某一菜單項，并按回車觸發(fā)菜

單的(C)的事件。

A、KeyPressB、KeyDownC、ClickD、Keylip

4.-*K(D)對象不具有Clear方法。

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

5.軟件列表中設定“文件列表”顯示文件類型應改該

控件的(D)屬性。

A、PathB、FileNameC、NameD、Patterw

6.組合框有三種風格，它們由Style屬性所決定，其

中為簡單組合框時，Style屬性值應為(B)

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

7：下列可:調整圖4框的工小以適合圖片的屬性是

(B)

A、StretchB、autosizeC、pictureD>

oledropmode

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

A、CaptionB、TextC、ClearD、Cis

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

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

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

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

/LoG(E)D、LoG(X)

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

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

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

x*x+y*y))

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

x<yIMPy<b的邸果為True。

3.a和b中有僅只有一個不為1,相應的Visual

Basic邏輯表達式為a<>lxorb〈>l。

4.把條件為1￡x￡5寫成VB表達式為:x>=land

x<=5o

5.語句

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

義是：在窗體上繪制以角點務(2000,2000)和(4000,

3500)的紅色實心的矩形。

6.用隨機函數(shù)產生10個100?500的整數(shù)，其表達可

為：for1=1to10

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

nextI。

7.當x=2時，語句ifx=2thenPrintx=2的結果

值是True。

8.StaticPrivateSubcmdSumClick()

DimSumasinteger

Sum=2*Sum+l

EndSub

問：第三次單擊命令按鈕cmdSum后，Sum的值為：工

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

constg=9.8O

10.欲使在自己設計VB程序運行過程中，不中止本程

序的運行，同時又可調用系統(tǒng)史已有的應用程序

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

地方添加語句：

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

三、編程題

1隨機產生n個兩位正整數(shù)(n由對話框輸入，切n>0)o

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

程序寫在命令按鈕Command1的click事件中。

PrivateSubCommandl_Click()

DimnAsInteger

DimiAsInteger,sumAsLong

n=Vai(InputBox("Pleaseinputainteger”,

“InputNvalue"))

Fori=1Ton

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

IfrnddatMod2=0Then

sum=sum+rnddat

EndIf

Nexti

Label1.Caption=sum

EndSub

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

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

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

在窗體上輸出。

注：程序寫在窗體form的click事件上。

PrivateSubForm_Click()

Dima(lTo100)

Dimb()asinteger

DimiAsInteger,jAsInteger,kAsInteger,pos

AsInteger,tempasinteger

Fori=1To100

a(i)=Vai(InputBox(，zPleaseinputdata"))

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結果：(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結果：(102

27fI

31112)

3.程序3：

PrivateSubFormclick()

DimflAsInteger,f2AsInteger,f3As

Integer

Openz，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

寫出文件al.dat的最終結果。(

NO.32

NO.43

NO.55

NO.68

NO.713)

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

機輸入三個數(shù)，找出中間數(shù)

PrivateSubFindMidNum()

X-INPUTBOX("PLEASEINPUTTHEFIRST

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表達式是

()o

二、填空

2r阪、x為大于零的實數(shù)，則大于x的最小奇數(shù)的

VisualBasic表達式是IIF(int(x)mod

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

3.al和a2之中有且只有一個與a3的值相等，相應

的VisualBasic邏輯表達式是：al=a3xora2=a3o

若al和a2之中沒有一個與a3的值相等，則相應的表

達式是：al<>a3anda2〈>a3。

4.設ini?的初值為10,則由下列循環(huán)語句控制的循

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

DoWhileinit>=5

init=init-1

Loop

5.在VisualBasic中，變量從它的作用范圍來看，

可分為全局變量、模塊級變量和過程

級變量三種。

6.?]Ticturel.Circle(800,1000),500的含義是_

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

7.聲明定長為10個字符變量Sstr的語句為：Dim

SstrasString*10。

三、程序閱讀題，閱讀下列程序書寫結構。

程序1

PrivateStaticSubCommandl_Click()

DimxAsInteger,sAsInteger

x二Vai(InputBox(〃請輸入一個正整數(shù)=〃))

Ifx<5Then

s二s*x

Else

s=s+x

EndIf

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

EndSub

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

5,2和4時，分別寫出文本框textl.text的值。

結果：(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

寫出程序運行時單擊窗體后，F(xiàn)orm1上輸出結果。

結果為：(w—3k—2

W二4k二4

W=5k=6

W=6k=8)

c)程序3

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

DimaAsInteger,yAsInteger

PrivateSubFormLoad()

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

Close#1

EndSub

PrivateSubCommandl_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

寫出程序運行時連續(xù)三次單擊Command1后，al.dat

文件的最終結果為：(

y=5a=5

y=15a=10

y=30a=15)

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

a)程序說明:利用一個計時器、一個標簽框和二個命

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

“命令按鈕，秒表開始計時，單擊“結束”命令按鈕,

秒表結束計時，并在標簽框顯示運行時間，如“運行

T0小時2分10秒“。(假設對象的屬性都在程序

代碼中設定)。

DimxAsLong

DimhAsInteger,mAsInteger,sAsInteger

PrivateSubFormLoad()

Forml.Caption=〃動態(tài)秒表(小時:分：秒)〃

Command1.Caption=〃開始[&S]〃

Command2.Caption=〃結束[&E]〃

Label1.Alignment=2'居中對齊

Label1.Caption=