PAGEPAGE3《VisualBasic程序設(shè)計教程》自學(xué)指導(dǎo)書作業(yè)及答案：一

、選擇題

1．為了使文本框顯示滾動條，必須首先設(shè)置的屬性是（

）

A．AutoSize

B．Alignment

C．Multiline

D．ScrollBars

2．改變控件在窗體中的上下位置應(yīng)修改控件的（

）屬性。

A．Top

B．Left

C．Width

D．Height

3．

在form1

窗體啟動時，為使form1.text1文本框首先獲得焦點，可以在窗體的form1_Load事件過程中加入（

）語句。

A．text1.Index=0

B．text1.TabIndex=0

C．text1.Appearance

D．text1.tag=0

4．將命令按紐Command1設(shè)置為不可見，應(yīng)修改該命令按紐的（

）屬性。

A．Visible

B．Value

C．Caption

D．Enabled

5．搖改變Label控件中文字的顏色，可以設(shè)置Label控件的（

）屬性。

A．FontColor

B．FillColor

C．ForeColor

D．BackColor

6．執(zhí)行后將會刪除文本框Text1中選中的文本的語句是（

）。

A．Text1.Text=”

B．Text1.SelText=”

C．Text1.Clear=

D．Text1.

SelText.Clear=

7．以下控件中沒有Caption屬性的是（

）。

A．標(biāo)簽框

B．文本框

C．框架

D．命令按紐

8．復(fù)選框?qū)ο笫欠癖贿x中，是由其（

）屬性決定的。

A．Checked

B．Value

C．Enabled

D．Selected

9．要使ListBox可以單擊或按空格鍵來實現(xiàn)復(fù)選，則屬性MultSelect的值應(yīng)設(shè)為（

）

A．1

B．2

C．3

10．以下不允許用戶在程序運行時輸入文字的控件是（

）。

A．文本框

B．下拉式組合框

C．簡單組合框

D．下拉式列表框

11．不能通過（

）來刪除列表框中的選擇項。

A．List屬性

B．RemoveItem方法

C．Clear方法

D．Text屬性

12．組合框的3中不同風(fēng)格：下拉組合框、簡單組合框和下拉列表框由（

）屬性決定。

A．Style

B．BoderStyle

C．FillStyle

D．DrawStyle

13．單擊滾動條兩端的任意一個滾動箭頭，將觸發(fā)該滾動條的（

）事件。

A．Scroll

B．KeyDown

C．Change

D．DragOver

14．要將定時器控件的寬度設(shè)置增大一些，以下敘述正確的是（

）。

A．設(shè)置定時器的Width屬性

B．設(shè)置定時器的Left屬性

C．設(shè)置定時器的Height屬性

D．無法對定時器的寬度進(jìn)行設(shè)置

15．設(shè)計動畫時通常使用時鐘控件（

）來控制動畫速度。

A．Enabled

B．Interval

C．Timer

D．Move

16．可以使用SetFocus方法的控件是（

）

A．Frame

B．Label

C．Form

D．Timer

17．不能響應(yīng)Click事件的控件是（

）

A．列表框

B．圖片框

C．窗體

D．計時器

18．定時器的Interval屬性以（

）為單位指定Timer事件之間的時間間隔。

A．分

B．秒

C．毫秒

D．微秒二、問答題二、填空題

1．函數(shù)過程（Function

Pocedure）用來完成特定的功能并____。

2．子過程是____的函數(shù)。又常被稱為Sub過程。在事件過程或其它子過程中可以____調(diào)用過程。

3．在事件過程或其它過程中可以____調(diào)用函數(shù)過程。

4．函數(shù)過程____返回一個值。

5．VB的代碼存儲在模塊中。在VB中提供了三種類型的模塊：____

、____和____。

6．菜單控件只包一個事件____，當(dāng)用鼠標(biāo)單擊或鍵盤選中后按“回車”鍵時觸發(fā)該事件，除分隔條以外的所有菜單控件都能識別該事件。

7．使用菜單編輯器創(chuàng)建彈出菜單時，____為不可見，“Visible屬性設(shè)置為False。

8．Sub過程與Function過程最根本的區(qū)別是____。

9．通用過程可以通過執(zhí)行“工具”菜單中的____命令來建立。

10．使用Public

Const語句聲明一個全局的符號常量時，該語句應(yīng)放在____

。

三、問答題

1．什么是多文擋界面？（MDI）

2．什么是文件？

3．文件管理系統(tǒng)有什么作用？

4．文件系統(tǒng)有哪些控件？

5．磁盤驅(qū)動器列表發(fā)生變動后，如何通知目錄列表？

6．目錄列表發(fā)生變動后，如何通知文件列表？

7．文件按照其數(shù)據(jù)存放的方式，分為幾種類型？

8．如何打開順序文件？

9．如何關(guān)閉順序文件？

10．如何向磁盤中讀寫數(shù)據(jù)？

11．討論一下PathName屬性。

12．順序文件、隨機(jī)文件和二進(jìn)制文件各有什么特點和用途？13．什么是工程？

14．什么是過程？

15．選中一個窗體，啟動菜單編輯器的方法有哪三種？

16．什么是動態(tài)菜單？

17．已知彈出菜單的名是aa，填補(bǔ)彈出菜單的代碼。

18．現(xiàn)使用菜單編輯器設(shè)計彈出菜單。菜單第一項（使頂級菜單項目）的Caption為“彈出菜單”，Name：“aa”，Visible沒有選中，填補(bǔ)彈出菜單的代碼。四、編程題

1．編寫程序，計算1+2+3+4+…+100。

2．我國現(xiàn)有人口為12億，設(shè)年增長率為1%，編寫程序，計算多少年后增加到16億。

3．給定三角形的三條邊長，計算三角形的面積。編寫程序，首先判斷給出的三條邊能否構(gòu)成三角形，如可以構(gòu)成，則計算并輸出該三角形的面積，否則要求重新輸入。當(dāng)輸入-1時結(jié)束程序。

4．稅務(wù)部門征收所得稅，規(guī)定如下：

（1）收入在200元以內(nèi)，免征；

（2）收入在200~400內(nèi)，超過200元的部分納稅3%；

（3）收入超過400元的部分，納稅4%；

（4）當(dāng)收入達(dá)到5000元或超過時，將4%稅金改為5%。

編程序?qū)崿F(xiàn)上述操作。

5．編寫程序，打印如下所示的“數(shù)字金字塔”：

Open語句的語法參數(shù)及其說明如下所示：

參數(shù)

說明

Pathname

指定文件路徑和文件名

Mode

指定文件方式，有Append，Binary，Input,Output或Random方式。

Access

說明打開的文件可以進(jìn)行的操作，有Read，Write或Read

Write操作

Lock

說明其它進(jìn)程能夠?qū)Υ蜷_的文件進(jìn)行的操作，有Shared，Lock

Read，Lock

Write和Lock

Read

Write操作。

Filenumber

一個有效的文件號，范圍在1到511之間

Reclength

小于或等于32

767（字節(jié)）的一個數(shù)，對于用隨機(jī)訪問方式打開的文件，

該值就是記錄長度，對于順序文件，該值就是緩沖字符數(shù)。

9．如何關(guān)閉順序文件？

解答：Close

<

文件號1

>

[，<

文件號2

>

…]

10．如何向磁盤中讀寫數(shù)據(jù)？

解答：從順序文件中讀取數(shù)據(jù)的語法結(jié)構(gòu)如下：

Input

#

filenumber,varlist

Input

#

語句的語法參數(shù)及其說明如下：

Filenumber

有效的文件號

Varlist

用逗號分界的變量表，將文件中讀出的值分配給這些變量。

向順序文件中寫入數(shù)據(jù)的語法結(jié)構(gòu)如下：

Write

#

filenumber

，[output1ist]

Write

#

語句的語法具有以下幾個部分，它的參數(shù)及說明如下：

Filenumber

一個有效的文件號

Outputlist

要寫入文件的表達(dá)式，用逗號將這些表達(dá)式分界。

11．討論一下PathName屬性。

解答：pathname為所要執(zhí)行的應(yīng)用程序的名稱及其路徑和必要的參數(shù)。

12．順序文件、隨機(jī)文件和二進(jìn)制文件各有什么特點和用途？

解答：所謂順序文件，通常指的是普通的文本文件，文件中的字符包括文本字符及控制字符，如“，”，Chr（14）”，換行符“GR，LF”，“Chr（13）”，“Chr（10）”等。

由于這類文件的信息是按照順序從頭到尾按順序排列，而且只提供第一條記錄的存儲位置，所以對其中的數(shù)據(jù)信息進(jìn)行處理是相當(dāng)困難的。

隨機(jī)文件由記錄組成，能夠隨機(jī)存取其相同長度的數(shù)據(jù)記錄，每一數(shù)據(jù)記錄內(nèi)可以設(shè)計各種欄位以容納不同的數(shù)據(jù)。此種文件數(shù)據(jù)是以二進(jìn)制的位的形式保存在磁盤上。隨機(jī)文件比順序文件占用內(nèi)存多。

二進(jìn)制文件的數(shù)據(jù)是以二進(jìn)制格式保存的,能用來存儲任何數(shù)據(jù)。這種文件的靈活性最大，但程序的工作量大。二進(jìn)制訪問能夠提供對文件的完全控制，因為文件中的字節(jié)可以代表任何東西。

13．什么是工程？

解答：工程是構(gòu)成應(yīng)用程序文件的集合。工程文件是與工程相關(guān)聯(lián)的所有文件和對象以及所設(shè)置的環(huán)境信息的一個簡單的列表，所有文件和對象也可以被其它的工程所共享。

14．什么是過程？

解答：一個應(yīng)用程序是由若干個模塊組成的，而每個模塊又是由若干個更小的代碼片段組成，將組成這些模塊的代碼片段稱為過程。通過過程，可以將整個程序按功能進(jìn)行分塊，每個過程用來完成一項特定的功能。

15．選中一個窗體，啟動菜單編輯器的方法有哪三種？

解答：（1）使用菜單“工具”/（菜單編輯器）

（2）使用工具欄按鈕工具欄快捷鍵；（3）鍵盤快捷鍵CTRL+E

16．什么是動態(tài)菜單？

解答：動態(tài)菜單，就是菜單中列出了最近使用過的文件名，這部分內(nèi)容是隨著應(yīng)用程序的運行而不斷改變著的，在運行時使菜單可以增長。

17．已知彈出菜單的名是aa，填補(bǔ)彈出菜單的代碼。

解答：Private

Sub

Form_MouseDown（Button

As

Integer,Shift

As

Integer，X

As

Single，Y

As

Single）

’在窗體上按下鼠標(biāo)。

If

Btton

=

2

Then

′如果是右鍵。

PopupMenu

aa

′彈出菜單。

End

If

End

Sub

18．現(xiàn)使用菜單編輯器設(shè)計彈出菜單。菜單第一項（使頂級菜單項目）的Caption為“彈出菜單”，Name：“aa”，Visible沒有選中，填補(bǔ)彈出菜單的代碼。

解答：Private

Sub

Form_MouseDown（Button

As

Integer,Shift

As

Integer，X

As

Single，Y

As

Single）

′在窗體上按下鼠標(biāo)。

If

Btton

=

2

Then

′如果是右鍵。

PopupMenu

aa

′彈出菜單。

End

If

End

Sub

四、程序題1．編寫程序，計算1+2+3+4+…+100。

解答：使用For循環(huán)語句，程序如下：

Private

Sub

Form_Click(

)

Static

Sum

As

Integer

For

I

=1

To

100

Sum

=

Sum

+

I

Next

I

Print

Sum

End

Sub

程序運行后，單擊窗體，輸出結(jié)果為：5050。

如果使用當(dāng)循環(huán)語句，則程序如下：

Private

Sub

Form_Click(

)

Static

Sum

As

Integer

I=1

While

i<=100

Sum=Sum+I

I=I+1

Wend

Print

Sum

End

Sub

2．我國現(xiàn)有人口為12億，設(shè)年增長率為1%，編寫程序，計算多少年后增加到16億。

解答：程序如下：

Private

Sub

Form_Click(

)

Dim

p

As

Double

Dim

r

As

Single

Dim

n

As

Integer

P=1200000000

r=0.01

While

p<1600000000

P

=

P

+

P*

r

N

=

N

+

1

Wend

P

=

Int(P)

Print

N;″年后，全國人口為：″；P

End

Sub

運行程序，單擊窗體，輸出結(jié)果為：

29年后，全國人口為：1601404641。

3．給定三角形的三條邊長，計算三角形的面積。編寫程序，首先判斷給出的三條邊能否構(gòu)成三角形，如可以構(gòu)成，則計算并輸出該三角形的面積，否則要求重新輸入。當(dāng)輸入-1時結(jié)束程序。

解答：從幾何學(xué)可知，三角形的

兩邊之和大于第三邊。因此，如果輸入的三角形的三條邊中兩邊之和小于或等于另一邊長，則不能構(gòu)成三角形。在這種情況下，給出適當(dāng)?shù)男畔ⅲ⒁笾匦螺斎?。如果能?gòu)成三角形，則輸出該三角形的面積。

程序如下：

Private

Sub

Form_Click(

)

Dim

a,b,c,s,t

As

Single

Start:

A

=

InputBox

(″請輸入A邊的邊長″)

A

=

Val

(a)

If

a

=-1

Then

End

B

=

InputBox

(″請輸入B邊的邊長″)

B

=

Val

(b)

C

=InputBox(″請輸入C邊的邊長″)

C

=

Val

(c)

If

a

+

b

<

=

c

Or

b

+

c

<

=

a

Or

c

+

a

<

=

b

Then

MsgBox

″所輸入的值不能構(gòu)成三角形，請重新輸入″

GoTo

Start

End

If

S

=(

a

+

b

+

c

)

/

2

T

=

Spr

(s

*

(

s

—

a

)*

(

s

—

b

)

*

(

s

—

c

)

)

Print

″三角形的面積為：″；

T

End

Sub

程序運行后，單擊窗體，先后顯示三個輸入對話框，在三個對話框中分別輸入三角形的三條邊長，程序先判斷輸入的邊長是否能構(gòu)成三角形，然后決定之后的操作，用信息框顯示信息或者輸出三角形的面積。當(dāng)輸入1，2，3時，將顯示信息框，要求重新輸入；如果輸入8，7，6，則輸出結(jié)果為：

三角形的面積為：20.33316

4．稅務(wù)部門征收所得稅，規(guī)定如下：

（1）收入在200元以內(nèi)，免征；

（2）收入在200~400內(nèi)，超過200元的部分納稅3%；

（3）收入超過400元的部分，納稅4%；

（4）當(dāng)收入達(dá)到5000元或超過時，將4%稅金改為5%。

編程序?qū)崿F(xiàn)上述操作。

解答：程序如下：

Private

Sub

Form_Click

(

)R

=

InputBox

(″請輸入您的收入″)

R

=

Val

(

r

)

If

r

<

=

200

Then

tax

=

0

ElseIf

r

>

200

And

r

<

=

400

Then

tax

=

(r

—200)

*0.03

ElseIf

r

>

400

And

r

<

5000

Then

tax

=

(r

—

400)

*

0.04

ElseIf

r

>

=

5000

Then

tax

=

(

r

—

400

)

*

0.05

End

If

Print″收入″；r;

″應(yīng)納稅″；

tax

End

Sub

程序運行后，單擊窗體，在輸入對話框中輸入收入數(shù)，程序?qū)⑤敵黾{稅金額。

5．編寫程序，打印如下所示的“數(shù)字金字塔”：

1

1

2

1

1

2

3

2

1

1

2

3

4

3

2

1

.

.

.

1

2

3

4

5

6

7

8

9

8

7

6

5

4

3

2

1

解答：程序如下：

Private

Sub

Form_Click

(

)

For

I

=

1

To

9

For

j

=

1

To

30-3

*

I

Print"";

Next

j

For

k

=

1

To

I

Print

k;

Next

k

For

k

=

I—1

To

1

Step

—

1

Print

k;

Next

k

Print

Next

I

End

Sub

6．從鍵盤上輸入兩個正整數(shù)M和N，求最大公因子。

解答：程序如下：

Private

Sub

Form_Click

(

)

Dim

m,

n

As

Integer

m

=

InputBox

(″請輸入M的值″)

m

=

Val

(m)

m1

=

m

n

=

InputBox(″請輸入N的值″)

n

=

Val

(

n

)

n1=

n

Do

While

n

<

>

0

remin

=

m

Mod

n

m

=

n

n=re