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

VB期末考試試題（A、B卷）

VB期末考試試題（A卷）

一、選擇題

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

A^TOPB、widthC、LeftD>Height

2.將命令按鈕Command1設(shè)置為不可見，應(yīng)修改該命令按鈕的（A）屬性。

A、VisibleB、ValueC、CaptionD、Enabled

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

A、ScrollB、KeyDownC、changeD、Dragver

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

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

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

A、scaleB、ScaleXC、scaleYD、setFocus

6.將通過對話框CommdDialogl的類型設(shè)置成另存為對話框，可調(diào)用該控件的（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ù)類型中，占用內(nèi)存最大值是（D）

A^BooIwanB、ByteC、IntegerD、Single

10.如果在圖片框上使用繪圖方法繪制一個實心圓，則圖片框的（C）屬性決定了該圖

片的顏色。

A、BackColroB、ForelklorC、FillcolorD、Dlawstyle

一、選擇題

I.要在垂直位置上移動控件，應(yīng)利用控件的（C）屬性。

A、LeftB、WidthC、TopD、Height

2.要在文本框中的文本顯示掩碼（密碼）符，在屬性設(shè)置時，首先必須設(shè)置（D）屬

性為False,

A、TxetB、EnabledC、VisibleD、Multline

3.用鍵盤的光標(biāo)鍵選中某一菜單項，并按回車觸發(fā)菜單的（C）的事件。

A、KeyPressB、KeyDownC、ClickD、Keylip

4.一下（D）對象不具有Clear方法。

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

5.軟件列表中設(shè)定“文件列表”顯示文件類型應(yīng)改該控件的（D）屬性。

A、PathB、FileNameC、NameD、Patterw

6.組合框有三種風(fēng)格，它們由Style屬性所決定，其中為簡單組合框時，Style屬性值

應(yīng)為（B）

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

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

A、StretchB、autosizeC、pictureD、oledropmode

8.要想清除文本框中的內(nèi)容則可利用（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.設(shè)x=2,y=4,a=4,b=6,表達式(a>xXorb<x)ORx<yIMPy<b的結(jié)果為True。

3.a和b中有僅只有一個不為1,相應(yīng)的VisualBasic邏輯表達式為aOlxor

bOlo

4.把條件為1￡x￡5寫成VB表達式為：x>=landx<=5o

5.語句

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

義是：在窗體上繪制以角點為(2000,2000)和(4000,3500)的紅色實心的矩形。

6.用隨機函數(shù)產(chǎn)生10個100?500的整數(shù)，其表達可為：for1=1to10

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

nextI。

7.當(dāng)x=2時，語句ifx=2thenPrintx=2的結(jié)果值是True。

8.StaticPrivateSubcmdSum_Click()

DimSumasinteger

Sum=2*Sum+l

EndSub

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

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

10.欲使在自己設(shè)計VB程序運行過程中，不中止本程序的運行，同時又可調(diào)用系統(tǒng)中

—有的應(yīng)用程序c:\windows\notepad.exe,可在程序代碼窗口必要的地方添加語句：

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

三、編程題

1隨機產(chǎn)生n個兩位正整數(shù)(n由對話框輸入，切n>0)。求出其中的偶數(shù)之和，并在標(biāo)

簽框Laboil上顯示:。程序?qū)懺诿畎粹oCommand1的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ù)在窗體上輸出。

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

PrivateSubForm_Click()

Dima(lTo100)

Dimb()asinteger

DimiAsInteger,jAsInteger,kAsInteger,posAsInteger,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<>posThentemp=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é)果：(222)

2.程序2：

privatesubForm_click()N=3

DimA(3,3)AsInteger

ForI=IToN

ForJ=IToN

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

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é)果：(104

278

31112)

3.程序3：

PrivateSubForm_click()

DimflAsInteger,f2AsInteger,f3AsInteger

Open，zc:\al.dat^ForOutputAs#1

fl=2:f2=3

Print3,fl

Print4,f2

For1=5To7

f3=fl+f2

Print

fl=f2

f2=f3

NextIClose#1

EndSub

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

NO.32

NO.43

NO.55

NO.68

NO.713)

五、程序填空題(每小題9分，共18分)L從計算機輸入三個數(shù)，找出中間數(shù)

PrivateSubFindMidNum()

X=INPUTBOX(aPLEASEINPUTTHEFIRST

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

END1F

EndSub

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

1211331

14641

15101051

DimQ()AsInteger

N=InputBoxCPLEASEINPUTN〃)

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

二、填空

2.設(shè)x為大于零的實數(shù)，則大于x的最小奇數(shù)的VisualBasic表達式是_IIF(int(x)

mod2=0,int(x)+2,int(x)+l)。

3.al和a2之中有且只有一個與a3的值相等，相應(yīng)的VisualBasic邏輯表達式是：

al=a3xora2=a3o

若al和a2之中沒有一個與a3的值相等，則相應(yīng)的表達式是：.al<>a3and

a2Oa3___。

4.設(shè)init的初值為10,則由下列循環(huán)語句控制的循環(huán)次數(shù)是_6_。

DoWhileinit>=5

init=init-l

Loop

5.在VisualBasic中，變量從它的作用范圍來看，可分為—全局變量—、—模塊級變

量和—過程級變量—三種。

6.語句Picturel.Circle(800,1000),500的含義是以圓心為(800,1000)半徑為

500的圓

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

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

程序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è)輸入的數(shù)是5,2和4時，分別寫出文本框

textl.text的值。結(jié)果：(s=5s=10s=40)

b)程序2

PrivateSubForm_Click()

Forml.Clsw=3

Fork=2To6Step2

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

w=w+1

Nextk

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

EndSub

寫出程序運行時單擊窗體后，F(xiàn)orml上輸出結(jié)果。結(jié)果為：(w=3k=2

W=4k=4

W=5k=6

W=6k=8)

c)程序3

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

PrivateSubForm_Load()

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

LoopEndSub

寫出程序運行時連續(xù)三次單擊Command1后，al.dat文件的最終結(jié)果為：(

y=5a=5

y=15a=10

y=30a=15)

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

a）程序說明:利用一個計時器、一個標(biāo)簽框和二個命令按鈕制作一個動態(tài)秒表，如圖

1所示。單擊“開始“命令按鈕，秒表開始計時，單擊“結(jié)束"命令按鈕，秒表結(jié)束計

時，并在標(biāo)簽框顯示運行時間，如“運行了0小時2分10秒“。(假設(shè)對象的屬性都

在程序代碼中設(shè)定)。

DimxAsLong

DimhAsInteger,mAsInteger,sAsIntegerPrivateSubFormLoad()

Forml.Caption=〃動態(tài)秒表(小時:分：秒)〃Command1.Caption=〃開始[&S]〃

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

Label1.Alignment=2'居中對齊

Label1.Caption="0:0:0〃

timerl