第第頁vb期末考試練習卷3和答案百度文庫-讓每個人同等地提升自我

1練習卷三

一、語言基礎題〔40分〕

判斷題〔此題10分，每題1分〕

1．都能顯示和輸入文字是控件Te*tBo*與Label的共同特點之一。

2．DoUntilLoop語句實現循環時,當條件為False時才執行循環。

3．通過vb編譯生成的文件具有.E*E文件擴展名，該文件只能在VB環境下執行。

4．InputBo*函數的數據類型是String。

5．變量尾部的%符號隱式聲明變量為整型。

6．Dima1,a2asInteger語句顯式聲明變量a1和a2都為整型變量。

7．過程調用時，實際參數的個數與形式參數的個數不肯定要相等。

8．可以在窗體或標準模塊的通用聲明部分聲明全局變量，但不能在過程里聲明全局變量。

9．控件數組的每個元素都有相同的Name屬性值和不同的Inde*屬性值，其中最小的Inde*屬性值為0。10．當拖曳滾動條中的滾動框時，便發生滾動條Scroll事項。

單項選擇題〔此題10分，每題1分〕

1．轉變某控件在窗體中的上下位置應修改該控件的()屬性。

[A][B][C]Top[D]Left

2．假定flge是規律型變量,下面賦值語句中正確的選項是()

[A]flge=True[B]flge=True

[C]flge=#True#[D]flge=34

3．一個對象可以執行的動作和可被對象識別的動作分別稱為:

[A]事項、方法[B]方法、事項

[C]屬性、方法[D]過程、事項

4．Sub過程與Function過程最根本的區分是:

[A]前者可以運用Call或徑直運用過程名調用,后者不能.

[B]后者可以有參數,前者不能.

[C]兩種過程參數的傳遞方式不同.

[D]前者無返回值,但后者有.

5．列表框控件的以下幾個屬性中,哪一個不是數組:

[A]List[B]ListInde*[C]Selected[D]ItemData

6．下面哪種類型的對象不能作為控件的容器:

[A]Form[B]PictureBo*[C]Shape[D]Frame

7．下面哪類控件不支持Change事項:

[A]Te*tBo*[B]Label[C]PictureBo*[D]ListBo*

8．以下函數中,返回值是字符串的是:

[A]Chr[B]InStr[C]Val[D]Asc

9．移動滾動條中的滾動框,將觸發該滾動條的什么事項:

[A]Scale[B]KeyDown[C]Change[D]Scroll

10．下面哪種對象沒有Caption屬性:

[A]Form[B]Te*tBo*

[C]CommondButton[D]Frame

填空題〔此題20分，每題2分〕

1．定時器控件的Interval屬性值是指時間間隔，當每隔此間隔的時間，定時器會觸發一次事項。2．VB為添加到窗體上的第一個圖片框提供的默認對象名為。

3．當復選框被選中,它的Value屬性值為。

4．在過程調用中，參數傳遞分為按值傳遞和按地址傳遞，其中按地址傳遞是默認方式。運用關

百度文庫-讓每個人同等地提升自我

2鍵字來修飾參數，可以使之按值傳遞。

5．判斷變量*是不是能被5整除的偶數，規律表達式寫為。

6．表達式〔-5〕Mod8的值為。

7．假如在模塊的聲明段中有OptionBase0語句,那么在模塊中運用Dima(6,3To5)聲明的數組有個元素

8．假如要強制變量的聲明,應在模塊的聲明段運用語句。

9．已知a、b、c都是整型變量,，描述條件a和b中至少有一個大于c的VB規律表達式是。10．聲明變量類型有二種方法，它們是：。

二、程序閱讀題〔此題20分，每題5分〕

1．設窗體上有兩個控件：文本框Te*t1和按鈕Command1,下面是按鈕的Click事項過程,單擊按鈕后,文本框中最終顯示什么:

PrivateSubCommand1_Click()

Dima(2,4)AsInteger,b(4)AsInteger

DimcAsInteger

DoWhilec=4

a(1,c)=a(1,c)+2*c-1

a(2,c)=a(2,c)+12-2*c

c=c+1

Loop

c=1

DoWhilec=4

b(c)=a(1,c)+a(2,5-c)

=b(c)

c=c+1

Loop

EndSub

2．單擊窗體打印出的結果是：

PrivateSubForm_click()

A=1：

B=A

DoUntilA=5

*=A*B

PrintStr$(A)*Str$(B)=;Str$(*)

A=A+B

B=B+A

Loop

EndSub

3．單擊窗體打印出的結果是：

PrivateSubForm_Click()

DimF(2)

ForI=0To2

F(I)=SQ(I*I+1)

Ne*tI

I=I-1

DoUntilI=0

I=I-1

PrintF(;I;)=;F(I)

百度文庫-讓每個人同等地提升自我

3Loop

EndSub

PublicFunctionSQ(*)

*=*+2

SQ=**4-5

EndFunction

4．當單擊窗體時,窗體上顯示內容的第一行和第二行分別是:

PrivateSubForm_Click()

test2

EndSub

PublicSubtest(*AsInteger)

*=**2+1

If*6Then

Calltest(*)

EndIf

*=**2+1

Print*

EndSub

三、程序填空題〔此題20分，每空2分〕

1．用隨機數產生十個[1050]的隨機整數(包括10和50),并按由小到大順次并五個一行打印出來OptionBase1

Dima(10)AsInteger

PrivateSubForm_Click()

Dimi,jAsInteger

DimtAsInteger

Randomize

Fori=1To10

a(i)=(1)

Ne*ti

Print排序前數據:

Fori=1To(2)

Printa(i);

If(3)ThenPrint

Ne*ti

Print

Fori=1To9

imin=i

Forj=(4)To10

Ifa(imin)a(j)Thenimin=j

Ne*tj

t=a(i)

a(i)=a(imin)

a(imin)=(5)

Ne*ti

Print排序后數據:

Fori=1To10

Printa(i);

IfiMod5=0ThenPrint

Ne*ti

百度文庫-讓每個人同等地提升自我

EndSub

2．盤上有個文件，數據為某班級同學姓名，計算機成果，編寫程序求該班計算機平均成果。

平均成果

PrivateSubCommand2_Click()

OpenFor〔1〕As1

total=0計算總分

n=0統計同學人數

DoWhileNot〔2〕

Input#1,stu_name,score

total=total+score

n=n+1

Loop

Print平均成果=Str(total/n)

〔3〕

EndSub

刪除

PrivateSubCommand6_Click()

Dimf_nameAsString

Dimstu_nameAsString

DimscoreAsInteger

f_name=

OpenForInputAs1

OpenForOutputAs2

DoWhileNotEOF(1)

Input#1,stu_name,score

Ifstu_name=〔4〕ThenE*itDo

Write#2,stu_name,score

Loop

DoWhileNotEOF(1)

Input#1,stu_name,score

〔5〕#2,stu_name,score

Loop

Close

Kill刪除文件格式Killfile

NameAs

EndSub

四、程序設計題〔此題20分，每題10分〕

1．編寫計算階乘的Function過程,利用e*的下述近似公式計算e直到最末一項小于1E-8為止)。編寫窗體代碼要求在馬上窗口輸出計算結果。

e*≈1+*/1!+*2/2!+*3/3!+…..+*n/n!

2．利用文本框檢查用戶口令，運用靜態變量來限制輸入三次，在文本框中輸入口令按回車后，假如口令錯，那么提示對不起，口令錯！，如輸入三次仍錯，那么提示對不起，您無權運用。如三次內口4

百度文庫-讓每個人同等地提升自我

5令正確,那么提示歡迎運用本系統!。

練習卷三標準答案及評分標準

五、語言基礎題

1．2．√3．4．√5．√6．7．8．√9．√10．√1．C2．D3．B4．D5．B6．C7．D8．A9．D10．B

1．Timer

2．Picture1

3．1

4．ByVal

5．*Mod10=0

說明：寫”*Mod10”得一分

6．-5

7．21

8．OptionE*plicit

9．acORbc

10．顯式聲明變量和隱式聲明變量

六、程序閱讀題

評分標準：每題5分。完全與標準答案吻合可以得5分，假設數據正確或格式正確那么酌情給分。

1．172．

1*1=1

2*3=6

Te*t1

Label1

七、程序填空題

評分標準：此題20分，每空2分。

1．

〔1〕Int(Rnd*41)+10或Int(Rnd*(50-40+1))+10

〔2〕10

〔3〕imod5=0

〔4〕i+1

〔5〕t

2．

〔1〕Input

〔2〕Eof(1)

〔3〕Close1

〔4〕f_name

〔5〕Write

八、程序設計題

1．評分標準：此題10分

事項名及變量聲明〔1分〕：變量可以不聲明，但是假如聲明錯誤要扣分。函數聲明〔1分〕

For循環〔2分〕：其中初值1分，循環結構1分。

函數返回值(1分)。

Do循環〔4分〕：其中初值1分，循環結構2分，循環條件1分。

循環結構語句不限。

s得(1分)

參考程序：

PublicFunctionfact(*AsInteger)

DimpAsLong

p=1

Forn=1To*

p=p*n

Ne*tn

fact=p

EndFunction

PrivateSubForm_Click()

DimnAsInteger

s=1:n=1:t=1

Do

t=1/fact(n)

s=s+t

n=n+1

LoopWhilet=10^-8

s

6

百度文庫-讓每個人同等地提升自我EndSub

2．評分標準：此題10分

事項過程格式(1分)

靜態變量正確聲明〔1分〕

IfKeyAscii=13Then(1分)

If=abcdefgThen和對應的Else(1分)

全部的=…共(2分):錯一個去1分,兩個及以上去2分

n=n+1語句(1分)

ifn=3then….else語句(2分)

=False語句(1分)

參考程序：

PrivateSubTe*t1_KeyPress(KeyAsciiAsInteger)

StaticnAsInteger

IfKeyAscii=13Then

If=abcdefgThen

=歡迎運用本系統

Else

n=n+1

Ifn=3Then

=對不起，您無權運用

=False

Else

=對不起，口令錯!

=0

=Len

EndIf

EndIf

EndIf

EndSub

7

百度文庫-讓每個人同等地提升自我

1練習卷三

一、語言基礎題〔40分〕

判斷題〔此題10分，每題1分〕

1．都能顯示和輸入文字是控件Te*tBo*與Label的共同特點之一。

2．DoUntilLoop語句實現循環時,當條件為False時才執行循環。

3．通過vb編譯生成的文件具有.E*E文件擴展名，該文件只能在VB環境下執行。

4．InputBo*函數的數據類型是String。

5．變量尾部的%符號隱式聲明變量為整型。

6．Dima1,a2asInteger語句顯式聲明變量a1和a2都為整型變量。

7．過程調用時，實際參數的個數與形式參數的個數不肯定要相等。

8．可以在窗體或標準模塊的通用聲明部分聲明全局變量，但不能在過程里聲明全局變量。

9．控件數組的每個元素都有相同的Name屬性值和不同的Inde*屬性值，其中最小的Inde*屬性值為0。10．當拖曳滾動條中的滾動框時，便發生滾動條Scroll事項。

單項選擇題〔此題10分，每題1分〕

1．轉變某控件在窗體中的上下位置應修改該控件的()屬性。

[A][B][C]Top[D]Left

2．假定flge是規律型變量,下面賦值語句中正確的選項是()

[A]flge=True[B]flge=True

[C]flge=#True#[D]flge=34

3．一個對象可以執行的動作和可被對象識別的動作分別稱為:

[A]事項、方法[B]方法、事項

[C]屬性、方法[D]過程、事項

4．Sub