《計(jì)算機(jī)程序設(shè)計(jì)基礎(chǔ)》課后練習(xí)題參考答案

《計(jì)算機(jī)程序設(shè)計(jì)基礎(chǔ)》課后練習(xí)題1

一.判斷題

(1)(錯(cuò))事件過程由某個(gè)用戶事件或系統(tǒng)事件觸發(fā)執(zhí)行，但不能被其他過程調(diào)用。

(2)(錯(cuò))若X=2,Y=5,則表達(dá)式Y(jié)-2>XANDX+2>Y的結(jié)果為：True。

(3)(錯(cuò))常量是指在程序運(yùn)行過程中其值可以改變的那些量。

(4)(錯(cuò)，timer沒有)VB工具箱中的所有控件都具有寬度(Width)和高度(Height)屬

性。

(5)(錯(cuò))定義變量：Dimmax,minasSingle,則max和min的數(shù)據(jù)類型均為Single。

(6)(對)如果創(chuàng)建的菜單項(xiàng)的標(biāo)題是一個(gè)減號(hào)則該菜單項(xiàng)顯示為一條分隔線。

(7)(錯(cuò))標(biāo)準(zhǔn)模塊文件的擴(kuò)展名是VBP”。

(8)(錯(cuò)，都不能)定時(shí)器捽件可以響應(yīng)Click事件，但不能響應(yīng)DbClick事件。

(9)(錯(cuò))在默認(rèn)情況下，數(shù)組下標(biāo)下界的缺省值為1。

(10)(對)在使用字體對話框時(shí)，需要對其Flags屬性先進(jìn)行相應(yīng)設(shè)置。

二.單選題

(11)在VisualBasic中，表示鼠標(biāo)單擊事件的是C。

A)ActivateB)DoubleClickC)ClickD)MouseDown

(12)用于設(shè)置計(jì)時(shí)器時(shí)間間隔的屬性是—A_______o

A)IntervalB)NameC)LeftD)Top

(13)函數(shù)Int(函*Rnd)是在D,范圍內(nèi)的整數(shù)。

A)[1,10]B)[1,10]0[0,9)D)[0,9]

(14)Selectcase語句結(jié)構(gòu)的結(jié)尾應(yīng)使用_D

A)EndB)EndCaseC)EndSubD)EndSelect

(15)改變了容器的坐標(biāo)系后，該容器的A屬性徜不會(huì)改變。

A)leftB)scaleleftC)scaletopD)scalewidth

(16)執(zhí)行下列語句后，列表框中各表項(xiàng)順序?yàn)椤?

Listl.Clear

Fori=lto4:Listl.Additemi-1,0：Nexti

A)B)C)D)

0103

---

0212

0321

0430

(17)輸入對話框InputBox的返回值的類型是A

A)字符串B)整數(shù)C)浮點(diǎn)數(shù)D)長整數(shù)

(18)將焦點(diǎn)主動(dòng)設(shè)置到指定的控件或窗體上，應(yīng)采用B方法。

A)SetDateB)SetFocusC)SetTextD)GetData

(19)有如下程序段：

DimIAsInteger,SAsInteger

S=1

FORI=1TO8STEP2

S=S*I

NEXTI

PRINT“S="；S

運(yùn)行結(jié)果為B

A)S=9B)S=105C)S=1D)S=16

(20)利用以下D語句,可以輸出日期和時(shí)間信息。

A)PrintDateB)PrintMonthC)PrintTimeD)PrintNow

(21)一只漂亮的酒杯被摔碎了，則漂亮，酒杯，摔是—D—。

A)對象，屬性，事件B)對象，屬性，方法

C)屬性，對象，方法D)屬性，對象，事件

(22)將通用對話框以“打開文件對話框”方式打開，則選以下A方法。

A)ShowOpenB)ShowColorC)ShowSaveD)ShowFont

(23)執(zhí)行語句“Line(100,100)-(150,200),vbBlue,B”，在窗體上繪制出一個(gè)矩形,

那么該矩形的面積=A

A)5000B)10000C)15000D)20000

(24)如何使一個(gè)標(biāo)簽或按鈕控件在運(yùn)行時(shí)不可用—C―o

A)把它的Visible屬性設(shè)置成FalseB)把它的Visible屬性設(shè)置成True

C)把它的Enabled屬性設(shè)置成FalseD)把它的Enabled屬性設(shè)置成True

(25)下列C表達(dá)式的結(jié)果為“1234556789”。

A)TrimC12345356789")B)LtrimC12345")+Rtrim("56789")

C)RtrimC12345")&("56789")D)LtrimC12345")&Rtrim(*56789")

(26)將圖形框(PictureBox)控件的AutoSize屬性設(shè)置為True后，則對于圖形框而言,

____B____o

A)圖形框中的圖片自動(dòng)改變大小適應(yīng)圖形框

B)圖形框自動(dòng)改變大小適應(yīng)其中的圖形

C)如果圖片的大小比圖形框大，則圖形框自動(dòng)裁剪圖象以適應(yīng)圖形框的大小。

D)如果圖片的大小比圖形框小，則圖形框大小不發(fā)生變化。

(27)要獲得當(dāng)前驅(qū)動(dòng)器應(yīng)使用那動(dòng)器列表框的哪個(gè)屬性B。

A)PathB)DriveC)DirD)Pattern

(28)以下關(guān)于函數(shù)過程的敘述中，正確的是A

A)函數(shù)過程形參的類型與函數(shù)返回值的類型沒有關(guān)系

B)在函數(shù)過程中，過程的返回值可以有多個(gè)

C)數(shù)組作為函數(shù)過程的參數(shù)時(shí)，既能以傳值方式傳遞，也能以傳址方式傳遞

D)如果不指明函數(shù)過程參數(shù)的類型，則該參數(shù)沒有數(shù)據(jù)類型

(29)單擊滾動(dòng)條的滾動(dòng)箭頭時(shí)，產(chǎn)生的事件是_C-o

A)ClickB)ScrollC)ChangeD)Move

(30)以下能返回文件長度的函數(shù)是_B_o

A)BOFB)LOFC)LEND)EOF

三.程序填空題

【程序填空1］在C盤當(dāng)前文件夾下已存在名為Data,txt的文件，利用文本框(Textl)

輸入若干英文單詞。要求每輸入一個(gè)單詞后，按下回車鍵將文本框中的單詞寫入文件，然

后清除文本框的內(nèi)容以便輸入下一個(gè)單詞。當(dāng)在文本框中輸入的單詞是“END”時(shí)，則表示

結(jié)束輸入(對于單詞“END”不淪大小寫都視為結(jié)束)，最后將文件關(guān)閉。

PrivateSubFormLoad()

(31)A

Textl.Text=

EndSub

PrivateSubTextl_KeyPress(KeyAsciiAsInteger)

IfKeyAscii=13Then

If(32)I)="END"Then

Close#

End

Else

(33)A(注意，Textl的默認(rèn)屬性為text,可省略不寫)

Textl.Text=

EndIf

EndIf

EndSub

(31)A)Open"C:\Data.txt"ForOutputAs#1

B)Open"C:\Data.txt"ForInput#1

C)Open"CiVData.txt"InputAs#1

D)Open"C:\Data.txt"OutputAs#1

(32)A)LCasc(Textl.Text)B)Textl.Text

C)Str(Textl)D)UCase(Text1.Text)

(33)A)Write#1,TextlB)Write#1,Text

C)Write#3,Textl.TextD)Write#l,Text.lext

【程序填空2】程序運(yùn)行后如下圖所示，Label1的Caplion顯示為"字體定時(shí)變大”，影響字

體大小的屬性每隔0.5秒增加1,數(shù)值在［8,72］之間變化。

國Forml□0?

labell

OptionExplicit

PrivateSubFormLoad()

Timerl.Enabled=True

(34)B

Labell.Caption="字體定時(shí)變大〃

EndSub

PrivateSubTimerl_Timer()

StaticiAsInteger

Ifi<7Ori>=72Theni=7

i=i+1

(35)A

EndSub

(34)A)Timerl.Interval=5/10B)Timerl.Interval=500

C)Timerl.Interval=TrueD)Timerl.Interval=False

(35)A)Labell.FontSize=iB)Labell.Font=i

C)Labell.Size=iD)Labell.FontSize=i+1

【程序填空3】己知五個(gè)數(shù)存放在數(shù)組中，用冒泡法對該數(shù)組進(jìn)行遞減排序(冒泡法：一旦

發(fā)現(xiàn)數(shù)組中兩個(gè)數(shù)逆序馬上交換這兩個(gè)數(shù))。

PrivateSubCommand1_Click()

Dima(lTo5)AsInteger

Dimn%,i%,j%,t%

a(l)=53:a(2)=34:a(3)=45:a(4)=89:a(5)=23

Fori=lTo4(確保第i輪循環(huán)后，a⑴位置上存放第i大的數(shù))

Forj=5Toi+1Step-I

If(36)BThen

t=a(j)

(37)D

a(j-l)=t

EndIf

Nextj

Nexti

Fori=1To5

Printa(i);

Nexti

EndSub

(36)A)a(j)<a(j-1)B)aG)>a(j-1)

C)a(i)>a(j)D)a(j)>a(i)

(37)A)a(i)=a(j)B)a(j-l)=a(j)C)a(j)=a(i)D)a(j)=a(j-1)

【程序填空4】在窗體上畫一個(gè)名稱為Combol的組合框，畫兩個(gè)名稱分別Labe"和Label2

及Caption屬性分別為“城市名稱”和空白的標(biāo)簽。程序運(yùn)行后(如下圖所示)，當(dāng)在組

合框中輸入一個(gè)新的項(xiàng)目按回車鍵時(shí)(回車鍵的ASCII碼為13),如果輸入的項(xiàng)在組合框

的列表中不存在，則自動(dòng)添加到組合框的列表中，并在Label2中給出提示“已成功添加輸

入項(xiàng)；如果存在，則在Label2中給出提示“輸入項(xiàng)已在組合框中”。

福For>l13回區(qū))

城市名稱

已成功添加輸入項(xiàng)

海

上

京

南

東

曲

川

PrivateSubCombo1_KeyPress(KeyAsciiAsInteger)

If(38)BThen

Fori=0ToCombo1.ListCount-1

IfComboI.Text=(39)BThen

Label2.Caption="輸入項(xiàng)已在組合框中

ExitSub

EndIf

Nexti

Label2.Caption=”已成功添力口輸入項(xiàng)”

Combo1(40)CCombo1.Text

EndIf

EndSub

(38)A)KeyAscii=0B)KeyAscii=13C)KeyAscii=8D)KeyAscii=9

(39)A)Combo1.ListindexB)Combol.List(i)C)ComboI.Addltem(i)D)Combo1.Clear

(40)A)SelectedB)RemoveitemC)AdditemD)Listindex

四.程序閱讀題

【程序閱讀1］根據(jù)以下代碼，單擊窗體三次，那么第一次單擊后輸出的a、b、c的值為

(41)C,第二次單擊后輸出的a、b、c的值為(42)D,第三次單擊后輸出

的a、b、c的值為一(43)/。

Privatea%,b%,c%

PrivateSubForm_Click()

DimaAsInteger

c=2

CallAA(c)

b=BB(a)

Printa,b,c

EndSub

PublicSubAA(c%)

a=c+b

c=a+c

EndSub

PublicFunctionBB(ByValb%)

b=b+1

BB=a+b

EndFunction

(41)A)254B)2340034D)032

(42)A)7129B)71590062D)067

(43)A)0910B)092C)171935D)102732

【程序閱讀2】閱讀下列程序并回答問題，在每小題提供的若干可選答案中，挑選一個(gè)正確

答案。

PrivateSubForm_ClickO

Forml.Scale10)-(10,-10)

Forml.Circle(0,0),5,,-3*3.14/2,-3.14

Forml.FillStyle=0

EndSub

（44）運(yùn)行以上程序，第一次單擊窗體后，F(xiàn)orml上的輸出結(jié)果是（44）A

【程序閱讀3］閱讀下列程序并回答問題，在每小題提供的若干可選答案中，挑選一個(gè)正

確答案。（/：表示回車）

PrivateSubForm_Load()

TcxlLTcxl-'1";Founl.Cis

EndSub

PrivateSubText1_KeyPress(kAsInteger)

StaticsAsInteger

If(Chr(k)<"O"OrChr(k)>'9")Andk<>13Thenk=0

Ifk=13Thens=s+Val(Textl.Tcxt):Text1.Text=Prints;

EndSub

(46)寫出運(yùn)行時(shí)在Textl中依次按“1/3/5/”輸入后窗體上的顯示結(jié)果

A)149B)90135D)5

(47)寫出運(yùn)行時(shí)在Textl中依次按“1/-3/5/”輸入后窗體上的顯示結(jié)果(47)B—。

A)1-23B)14901-35D)3

(48)寫出運(yùn)行時(shí)在Textl中依次按“1/2a/5/”輸入后窗體上的顯示結(jié)果(48)D°

A)14348B)125C)5D)138

【程序閱讀4】

PrivateSubForm_click0

DimxAsSingle

x=Vai(InpulBox("輸入x"))

SelectCasex\2

Case1

Printx

Case2

Print"y="；xMod2

Case3

Print"y="；xMod3

CaseElse

Print"y=";x\2

EndSelect

EndSub

(49)當(dāng)x的輸入值為5時(shí)的運(yùn)行結(jié)果為(49)C

A)y=5B)y=2.5C)y=lD)y=0

(50)當(dāng)x的輸入值為5.5時(shí)的運(yùn)行結(jié)果為(50)D

A)y=5B)y=2.5C)y=lD)y=0

(51)當(dāng)x的輸入值為-7時(shí)的運(yùn)行結(jié)果為(51)B

A)y=-7B)y=-3C)y=lD)y=3.5

【程序閱讀5】設(shè)16*日.16*1;為“2血(16『'，運(yùn)行時(shí)連續(xù)單擊2次控件Hscrolll右側(cè)箭頭后,

組合框控件中的第一項(xiàng)為(52)A、第二項(xiàng)(53)A。

PrivateSubForm_Load()

HScroll1.SmallChange=I:HScroll1.Max=5

HScrolll.Min=1:HScroll1.Value=1

Combo1.Clear

EndSub

PrivateSubHScrolll_Change()

Combo1.AdditemLeft(Textl.Text,HScroll1.Value),0

EndSub

(52)A)abcB)abedC)abD)abede

(53)A)abB)abedeC)abcD)abed

【程序閱讀6］閱讀下列程序并回答問題，在每小題提供的若干可選答案中，挑選一個(gè)正

確答案。

PrivateSubf(sAsString)(解釋：根據(jù)代碼推測功能是：將字符串s等分為兩部分，

并交換前半部與后半部的位置，如“abede"，交換后得“decab”)

DimiAsInteger,nAsInteger,cAsString

n=Len(s)

IfnMod2=1Thenc=Mid(s,n\2+1,1)

Fori=1ToLen(s)\2

c=Mid(s,Len(s)+1-i,1)+c+Mid(s,i,1)

Nexti

s=c

EndSub

PrivateSubCommandl_Click()

DimxAsSiring

x=InputBox("x=")

Callf(x)

Primx

EndSub

(54)單擊Commandl后輸入“abc”，窗體上顯示結(jié)果為(54)A:

A)cbaB)bcaC)abcD)acb

(55)如果將Sub過程f首句改為PrivateSubf(ByvalsAsString),單擊Commandl后

輸入“abed”，窗體上顯示結(jié)果為：(55)C

A)abdcB)edabC)abedD)bead

《計(jì)算機(jī)程序設(shè)計(jì)基礎(chǔ)》課后練習(xí)題2

一、判斷題

1.（錯(cuò)）任何控件都有一個(gè)Caption屬性。

2.（對）對于事件驅(qū)動(dòng)型應(yīng)用程序，每次運(yùn)行時(shí)的執(zhí)行順序可以不一樣。

3.（錯(cuò)）用以下語句定義：Dimmax,minasSingle,則max和min的數(shù)據(jù)類型均為

Single。

4.（對）通用對話框不能真正實(shí)現(xiàn)文件打開、文件存儲(chǔ)、設(shè)置顏色、字體設(shè)置、打印等

操作，如果想要實(shí)現(xiàn)這些功能則需要編程實(shí)現(xiàn)。

5.（對）用Scale方法改變了窗體坐標(biāo)系后，窗體的Left、Top屬性值不變。

6.（對）在某列表框中一共有5個(gè)選項(xiàng)，而當(dāng)選中第三項(xiàng)時(shí)，這時(shí)列表框的Listindex

屬性為2。

7.（錯(cuò)，標(biāo)準(zhǔn)模塊文件格式為.bas）VB中工程文件是指與該工程有關(guān)的全部文件和對象,

其擴(kuò)展名是.vbp；窗體文件包括窗體及其控件的正文描述，其擴(kuò)展名是.frm；標(biāo)準(zhǔn)模

塊文件是可選的，其擴(kuò)展名是.cis。。

8.（錯(cuò)，Clear方法）用Cis方法可以清除組合框中的所有表項(xiàng)。

9.Frame控件可以作為其他控件的容器。

10.（錯(cuò)）VisualBasic工具箱中的所有控件都具有寬度（Width）和高度（Height）屬

性。

二、單選題

11.P的值為一3時(shí)，一P'2的值是—B___o

A、9B、-9C、6D、-6

12.以下程序段的執(zhí)行結(jié)果為Ao

A=0:B=1

Do

A=A+B

B=B+1

LoopWhileA<10

PrintA;B

A、105B、ABC、01D、1030

13.設(shè)置列表框中列表數(shù)量的屬性是_B_o

A、ListB、ListCountC、ListindexD、Columns

14.要獲得當(dāng)前驅(qū)動(dòng)器應(yīng)使用驅(qū)動(dòng)器列表框的哪個(gè)屬性_B_。

A、PathDriveC、DirD^Pattern

15.以下Case語句中錯(cuò)誤的是一C。

A、Case0To10B、CaseIs>10

C、CaseIs>10AndIs<50D、Case3,5,7,Is>10

16.執(zhí)行語句s=Len(Mid("VisualBasic”,0,5))后，s的值是_I)。

A、VisualB、BasicC、6D、表達(dá)式有錯(cuò)

17.以下關(guān)于函數(shù)過程的敘述中，正確的是—A。

A、函數(shù)過程形參的類型與函數(shù)返回值的類型沒有關(guān)系

B、在函數(shù)過程中，過程的電回值可以有多個(gè)

C、當(dāng)數(shù)組作為函數(shù)過程的參數(shù)時(shí)，既能以傳值方式傳遞，也能以傳址方式傳遞

D、如果不指明函數(shù)過程參數(shù)的類型，則該參數(shù)沒有數(shù)據(jù)類型

18.在窗體上畫一個(gè)名稱為TxtA的文本框,然后編寫如下的事件過程；

PrivateSubTxtAKeyPress(keyasciiasinteger)

EndSub

若焦點(diǎn)位于文本框中，則能夠觸發(fā)KeyPress事件的操作是—D—。

A、單擊鼠標(biāo)B、按下鍵盤上的“A”鍵

C、鼠標(biāo)滑過文本框D、按下鍵盤上的任意鍵

19.執(zhí)行行下面的事件過程，在窗體顯示的內(nèi)容是—Bo

PrivateSubCommandl_Click()

DimaAsVariant

a=Array(12,23,34,45,56)

Fori=1To3

PrintTrim(a(i));

NextI

EndSub

A、122334B、233445C、122334D、233445

20.將圖形框(PictureBox)控件的AutoSize屬性設(shè)置為True后，則對于圖形框而言,

_B____。

A、圖形框中的圖片自動(dòng)改變大小適應(yīng)圖形框

B、圖形框自動(dòng)改變大小適應(yīng)其中的圖形

C、如果圖片的大小比圖形也大，則圖形框自動(dòng)裁剪圖象以適應(yīng)圖形框的大小。

D、如果圖片的大小比圖形框小，則圖形框大小不發(fā)生變化。

21.在圖形框控件picture1上坐標(biāo)(100,100)和(500,500)之間畫一條紅色直線，寫作

_C_o

AxLine(100,100)-(500,500)vbRed

B、Line(100,100)-(500,500)RGB(0,255,0)

C、picturel.Line(100,100)-(500,500)RGB(255,0,0)

【)、picturel.Line(100,100)-(500,500)Red

22.下列賦值語句中，_C___是錯(cuò)誤的。

A、x=x+lB、x=x+yC、x+y=xD、x=4>6

23.單擊滾動(dòng)條的滾動(dòng)箭頭時(shí)，產(chǎn)生的事件是—C____。

A^ClickB、ScrollC、ChangeD、Move

24.在程序運(yùn)行期間可以用—D函數(shù)把圖形裝入窗體、圖片或圖象框。

A^AutosizeB、StretchC>PictureD^LoadPicture

25.在窗體上畫一個(gè)名稱為Commandl的命令按鈕，然后編寫如下事件過程；

PrivateSubCommandl_Click()

DimnumAsInteger

num=1

DoUntilnum>6

Printnum;

num=num+2.4

Loop

EndSub

程序運(yùn)行后，單擊命令按鈕，則窗體上顯示的內(nèi)容是—B。

As13.45.8B、135C、147D、無數(shù)據(jù)輸出

26.__C__對象具有Clear方法。

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

27.設(shè)a=16,b=7,c=l,則表達(dá)式a\3+2=bAndc=91Mod3的結(jié)果A。

A、TrueB、FalseC、1D、出錯(cuò)信息

28.設(shè)有如下通用過程：

PublicSubFun(a0,ByVaixAsInteger)

Fori=1To5

x=x+a(i)

Next

EndSub

在窗體上畫一個(gè)名稱為Textl的文本框和一個(gè)名稱為Commandl的命令按鈕，然后編寫

如下的事件過程：

PrivateSubCommand1_C1ick()

Dimarr(5)AsVariant

DimnasInteger

Fori=1To5

arr(i)=i

Next

n=10

CallFun(arr(),n)

Textl.Text=n

EndSub

程序運(yùn)行后，單擊命令按鈕，則在文本框中顯示的內(nèi)容是A

A、10B、15C、25D、24

29.窗體上畫一個(gè)名稱為Commandl的命令按鈕，然后編寫如下事件過程：

PrivateSubCommand1_C1ick()

DimnumAsInteger

Fornum=1To6Step3

Printnum;

Nextnum

Printnum

EndSub

程序運(yùn)行后，單擊命令按鈕，則窗體上顯示的內(nèi)容是—C。

As144B、135C、147D、無數(shù)據(jù)輸出

30.以下A—方式打開的文件只能讀不能寫。

A^InputB、OutputC、AppendD>Random

三、程序填空

程序1.在C盤當(dāng)前文件夾下建立一個(gè)名為Data.txt的順序文件，要求用文本框輸入若干

英文單詞，每次按下回車鍵時(shí)將文本框中的內(nèi)容寫入文件，并清除文本框的內(nèi)容，直到文

本框輸入END為止，最后關(guān)閉文件。

PrivateSubForm_Load0

(31)C

Textl.Text=""

EndSub

PrivateSubTextl_KeyPress(KeyAsciiAsInteger)

IfKeyAscii=13Then

If(32)D-"END"Then

(33)B

End

Else

(34)A

Textl.Text=

EndIf

EndIf

EndSub

31.A、Open"D:\Data.txt*ForOutputAs#1

B、Open“C:\Data.txt”ForInput#1

C、Open“C:\Data.txl”ForOutputAs#1

D、Open"C:\Data.txt”O(jiān)utputAs#1

32.A、LCaseText1.TextB、Textl.Text

C、Str(Textl)D、UCase(Text1.Text)

33.A、Quit#1B、Close#1

C、End#1I)、Exit#1

34.A、Write#1,TextlB、Write#1,Text

C、Write#3,Textl.TextD、Write#1,Text.Text

程序2.下面程序的作用是利用隨機(jī)函數(shù)產(chǎn)生100個(gè)隨機(jī)整數(shù),范圍在［20,120］之間(包

含20和120),打印其中為5或7的倍數(shù)的數(shù)，求出它們的總和并打印。請將下列程序補(bǔ)

充完整。

PrivateSubCommand1_C1ick()

SUM=O

Fori=1To100

X=Int((35)B)

If(36)DThen

SUM二SUM+X

(37)A

EndIf

Nexti

Print〃SUM=";SUM

EndSub

35.A、Int(Rnd*100+20)B、Int(Rnd*101+20)

C、Int(Rnd*101+19)D、Int(Rnd*100+21)

36.A、XMod5=0andXMod7=0

X\5=0andX\7=0

C>X\5=0OrX\7=0

D、XMod5=0OrXMod7=0

37.A、PrintX;B、PrintSUM+X;

C、PrintSUM;D、PrintSUM*X;

程序3.單擊窗體后，用輸入對話框輸入x、n,然后按下式計(jì)算結(jié)果。要求：將計(jì)算結(jié)果

以標(biāo)簽控件顯示，且標(biāo)簽控件每秒隨機(jī)變換一次顏色。

s=4上+JH-----------

2!3!4!(?+1)!

OptionExplicit_

PrivateSubForm_Load()

Timerl.Interval=1000

Timerl.Enabled=True

EndSub

PrivateSubForm_Click()

DimxAsSingle,nAsInteger,iAsInteger,tAsSingle

(38)B

s=0

x=InputBox("x=")

n=InputBox(〃n=")

(39)D

fori=(40)A

t=t*x/i

s=s+t

Nexti

(41)C

EndSub

Privat.eSuhTimer1_Tinier()

Label1.BackColor=RGB(Rnd*255,Rnd*255,Rnd*255)

EndSub

38.A、StaticsAsSingleB、DimsAsSingle

C、OptionBase1D、ConstsAsSingle

39.A、t=TB、t=0C、t=2D、t1

40.A、2Ton+11TonC^2TonD、1Ton+1

41.A、Label1.Caption=xB、Label1.Caption=n

C、Label1.Caption=sD^Label1.Caption=s+x

程序4.設(shè)計(jì)一個(gè)程序，用于從文本框Textl輸入課程名稱，單擊按鈕,添加到列表框(List1)

中顯示出來。

具體要求：單擊“Command1”按鈕，若文本框Textl.Text中不是空格串，并且列表中也沒

有，則將該課程添加列表框中，然后清?除文本框Tcxtl的內(nèi)容，再將焦點(diǎn)返回到文本框

Textl,以便再次在文本框Tcxtl輸入內(nèi)容，繼續(xù)添加。

PrivateSubCommandl_Click()

DimIAsInteger

DimAddFlagAsBoolean

(42)A

If(43)CThen

Fori=0To(44)B

IfListl.List(i)=Textl.TextThen

AddFlag=False

ExitFor

EndIf

Nexti

IfAddFlagThenListl.AddIternTextl.Text

EndIf

Textl.Text=

(45)B

EndSub

42.A、AddFlag=-1B、AddFlag=False

C、AddFlag=1D、AddFlag=0

43.A、textl.text=B、textl.text=""

C^textl.text<>D^textl.text<>“NULL

44.A、Listl.Listindex-1B、Listl.ListCount-1

C、Listl.ListindexD、Listl.ListCount

45.A、textl.ClearB、:extl.SetFocus

C^textl.MoveD、二ext1.ReFresh

四、程序閱讀

程序1.寫出下列程序運(yùn)行結(jié)果，單擊命令按鈕控件后窗體上的顯示結(jié)果

PrivateSubCommandl_Click()

Dima(lTo6)AsInteger

Fori=1To6

a(i)=i*i

Nexti

Forj=1To3(解釋：將后3個(gè)數(shù)挪到數(shù)組前頭)

temp=a(6)

Fori=6To2Step-1

a(i)=a(i-1)

Nexti

a(l)=temp

Nextj

Fori=1To6

Printa(i);

Nexti

EndSub

、Forml，!□1X|

結(jié)果:162536149

程序2.單擊窗體后，在四個(gè)PicturcBox控件中的圖形分別是：(答案略)

OptionExplicit

PrivateSubFormClickO

Dimi%

Fori=0To3

Picturel(i).Scale(-10,10)-(10,-10)

Nexti

Picturel(0).Line(-10,10)-(0,0)

Picturel(0).Line-(-10,-10)

Picturel(1).Circle(0,0),5

Picturel(2).Circle(0,0),5,,0,3.14159

Picturel(3).Circle(0,0),5,,,,2

EndSub

PrivateSubFormLoad()

DimiAsInteger

Fori=0To3

Picturel(i).FillStyle=(i+1)Mod2

Picturel(i).Cis

Nexti

程序3.事先將textl.text設(shè)為為空，在獲得焦點(diǎn)后，從鍵盤上依次按下以下鍵：

"1〃,"2〃,"3",〃4〃,"5","6","1","4〃,然后按回車鍵，寫出輸出結(jié)果。

PrivateSubTextlKeyPress(KAsInteger)

IfK<AscCO")OrK>Asc("9〃)Then

K=0

PrintTextl.Text

EndIf

EndSub

1234

123456

結(jié)果：12345614

程序4.在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫相應(yīng)的事件過程。程序運(yùn)

行后，如果單擊命令按鈕，則在窗體上顯示的內(nèi)容是

PublicFunctionf(xAsInteger)

DimyAsInteger

x=20

y=2

f=x*y

EndFunction

PrivateSubCommandlClickO

StaticxAsInteger

x=10

y=5

y=f(x)

Printx;y

EndSub

1Foi,1□Ix|

結(jié)果:2040

《計(jì)算機(jī)程序設(shè)計(jì)基礎(chǔ)》課后練習(xí)題3

判斷題

1.（錯(cuò)）窗體或控件的事件的名稱可以由編程人員確定。

2.（錯(cuò)）關(guān)系運(yùn)算表達(dá)式"1"+"2"="3”的運(yùn)算結(jié)果為丁「肥。

3.（對）變量是指在程序運(yùn)行過程中其值可?以改變的那些量，而值不能改變的是常量。

4.（對）控件的有些屬性只能在運(yùn)行時(shí)設(shè)置。

5.（對）數(shù)組在內(nèi)存中占據(jù)一片連續(xù)的區(qū)域。

6.（錯(cuò)）驅(qū)動(dòng)器列表框、目錄列表框、文件列表框三者之間能夠自動(dòng)實(shí)現(xiàn)關(guān)聯(lián)。

7.（錯(cuò)）當(dāng)按鈕的Default屬性設(shè)置為True時(shí)，任何情況下按＜Enter＞鍵，相當(dāng)于單擊

該按鈕。

8.（錯(cuò)，dim定義的也可能是模塊量）在過程中用Dim和Static定義的變量都是局部

變量。

9.（對）設(shè)置數(shù)組下標(biāo)下界缺省值為1的語句為oplionbase1。

10.（對）For-Next循環(huán)結(jié)構(gòu)的默認(rèn)步長為10

單選題

11.當(dāng)建立好一個(gè)簡單的應(yīng)用程序后，假定該工程僅有一個(gè)窗體模塊。問該工程涉及到

多少個(gè)文件要保存？B個(gè)。

A）1B）2C）3D）4

12.能夠?qū)⑽谋究蚩丶[藏起來的屬性是一B。

（A）Clear（B）Visible（C）Hide（D）New

13.下列符號(hào)中，哪個(gè)是VB合法的變量名？C。

A）a123B）IntegerC）X_yzD）n

14.inputBox函數(shù)返回值的類型為B。

A）數(shù)值B）字符串C）變體D）數(shù)值或字符串（視輸入的數(shù)據(jù)而定）

15.表達(dá)式5+5\3*10/8Mod9的值是C.

A)4B)50

6D)7

16.如果在立即窗口中執(zhí)行以下操作：

a=4<CR>（＜CR〉是回車鍵,

下同)

b=6<CR>

printa>b<CR>

則輸出結(jié)果是C.

A)-1B)00

FalseD)True

17.當(dāng)程序運(yùn)行時(shí)，在窗體上單擊鼠標(biāo)，以下哪個(gè)事件是窗體不會(huì)接收到的C

A)MouseDownB)MouseUpC)LoadD)Click

18.在設(shè)計(jì)菜單時(shí)，如在菜單中加入一個(gè)菜單分隔項(xiàng)，則菜單分隔項(xiàng)的標(biāo)題必須設(shè)置為

Bo

A)加號(hào)(+)B)減號(hào)(-)C)星號(hào)(*)D)感嘆號(hào)Q)

19.SelectCase語句屬于程序基本結(jié)構(gòu)中的注意：本題有問題，C和D均可：

A)順序結(jié)構(gòu)B)循環(huán)結(jié)構(gòu)C)分支結(jié)構(gòu)D)選擇結(jié)構(gòu)

20.為了把焦點(diǎn)移到某個(gè)指定的控件，所使用的方法是一A

A)SetFocusB)VisibleC)RefreshD)GetFocus

21.設(shè)a=3,則執(zhí)行x=IIf(a>5,-1,0)后，x的值為C(詳見附錄Hf函數(shù)定義)。

A)5B)6C)0D)

-1

22.執(zhí)行下面的程序段后，x的值為A.

x=5

Fori=lTo10Step2

x=x+i\5

Nexti

A)8B)10C)

6D)12

23.在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過程：

PrivateSubCommandlClickO

Fori=1To2

x=2

Forj=iTo3

x=x+6

Nextj

Nexti

Printx

EndSub

程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是B。

A)20B)14C)

32D)38

24.在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過程：

PrevateSubCommand1_C1ick()

b=0

DoWhilebO-1

a=Val(InputBox(“請輸入A的值”))

b=Val(InputBox(“請輸入B的值”))

a=a+b

Loop

Printa

EndSub

程序運(yùn)行后，單擊命令按鈕，依次在輸入對話框中輸入5、3、3、-1,則輸出結(jié)果

為八。

A)2B)3C)

14D)15

25.將通用對話框以打開對話框打開，則選以下(」)方法。

A)ShowOpenB)ShowColorC)ShowSaveD)ShowFont

26.計(jì)時(shí)器控件能夠引發(fā)的唯一事件是(C)

A.KeypressB.ClickC.TimerD.Timer1

27.用于設(shè)置計(jì)時(shí)器時(shí)間間隔的屬性是A: