《計算機程序設計基礎》課后練習題參考答案

《計算機程序設計基礎》課后練習題1

判斷題

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

(2)(錯)若X=2,丫=5,則表達式丫-2>XANDX+2>Y的結果為：True。

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

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

性。

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

(6)(對)如果創(chuàng)建的菜單項的標題是一個減號“-”，則該菜單項顯示為一條分隔線。

(7)(錯)標準模塊文件的擴展名是

(8)(錯，都不能)定時器控件可以響應Click事件，但不能響應DbClick事件。

(9)(錯)在默認情況下，數(shù)組下標下界的缺省值為1。

(10)(對)在使用字體對話框時，需要對其Flags屬性先進行相應設置。

單選題

(11)在VisualBasic中，表示鼠標單擊事件的是C___o

A)ActivateB)DoubleClickC)ClickD)MouseDown

(12)用于設置計時器時間間隔的屬性是—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語句結構的結尾應使用_D_o

A)EndB)EndCaseC)EndSubD)EndSelect

(15)改變了容器的坐標系后，該容器的—A一屬性值不會改變。

A)leftB)scaleleftC)scaletopD)scalewidth

(16)執(zhí)行下列語句后，列表框中各表項順序為—D

Listl.Clear

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

A)B)C)D)

013

--

022

031

040

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

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

(18)將焦點主動設置到指定的控件或窗體上，應采用B方法。

A)SetDateB)SetFocusC)SetTextD)GetData

(19)有如下程序段：

DimIAsInteger,SAsInteger

S=1

FORI=1TO8STEP2

S=S*I

NEXTI

PRINT"S="；S

運行結果為B

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

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

A)PrintDateB)PrintMonthC)PrintTimeD)PrintNow

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

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

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

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

A)ShowOpenB)ShowColorC)ShowSaveD)ShowFont

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

那么該矩形的面積=A。

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

(24)如何使一個標簽或按鈕控件在運行時不可用—C—。

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

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

(25)下列C表達式的結果為"1234556789"?

A)Trim("12345"+“56789")B)Ltrim("12345")+Rtrim("56789")

C)Rtrim(z/12345")&("56789")D)Ltrim(z/12345")&RtrimC56789")

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

____B____。

A)圖形框中的圖片自動改變大小適應圖形框

B)圖形框自動改變大小適應其中的圖形

C)如果圖片的大小比圖形框大，則圖形框自動裁剪圖象以適應圖形框的大小。

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

(27)要獲得當前驅(qū)動器應使用驅(qū)動器列表框的哪個屬性」

A)PathB)DriveC)DirD)Pattern

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

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

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

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

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

(29)單擊滾動條的滾動箭頭時;產(chǎn)生的事件是_C-。

A)ClickB)ScrollC)ChangeD)Move

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

A)BOFB)LOFC)LEND)EOF

三.程序填空題

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

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

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

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

PrivateSubFormLoad()

(31)A

Textl.Text=〃〃

EndSub

PrivateSubTextlKeyPress(KeyAsciiAsInteger)

IfKeyAscii=13Then

If(32)D="END"Then

Close#

End

Else

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

Textl.Text=〃”

EndIf

EndIf

EndSub

(31)A)OpenMC:\Data.txtnForOutputAs#1

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

C)OpennC:\Data.txt"InputAs#1

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

(32)A)LCase(Text1.Text)B)Text1.Text

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

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

C)Write#3,Text1.TextD)Write#l,Text.Text

【程序填空2】程序運行后如下圖所示，Label1的Caption顯示為"字體定時變大”，影響字

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

OptionExplicit

PrivateSubForm_Load()

Timerl.Enabled=True

(34)B

Label1.Caption="字體定時變大”

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)Label1.FontSize=i+1

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

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

PrivateSubCommandl_Click()

Dima(lTo5)AsInteger

Dimn%,i%,j%,t%

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

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

Forj=5Toi+1Step-1

If(36)BThen

t=a(j)

(37)D

a(j-1)=t

EndIf

Nextj

Nexti

Fori=1To5

Printa(i);

Nexti

EndSub

(36)A)a(j)<a(j-1)B)a(j)>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】在窗體上畫一個名稱為Combol的組合框，畫兩個名稱分別Labell和Label2

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

合框中輸入一個新的項目接回車鍵時(回車鍵的ASCII碼為13),如果輸入的項在組合框

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

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

券。5113回區(qū)I

城市名稱

杭

州

二已成功添加輸入項

上

海

南

京

北

京

四

川

PrivateSubCombo1_KeyPress(KeyAsciiAsInteger)

If(38)BThen

Fori=0ToCombo1.ListCount-1

IfCombol.Text=(39)BThen

Label2.Caption="輸入項已在組合框中"

ExitSub

EndIf

Nexti

Label2.Caption="已成功添力「輸入項”

Combo1(40)CCombo1.Text

EndIf

EndSub

(38)A)KeyAscii=OB)KeyAscii=13C)KeyAscii=8D)KeyAscii=9

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

(40)A)SelectedB)RemoveitemC)AddltemD)Listindex

四.程序閱讀題

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

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

的a、b、c的值為(43)Ao

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】閱讀下列程序并回答問題，在每小題提供的若干可選答案中，挑選一個正確

答案。

PrivateSubFormClickO

Forml.Scale(-10,10)-(10,-10)

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

Forml.FillStyle=0

EndSub

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

D)

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

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

PrivateSubForm_Load()

Textl.Text='H,:Form1.Cis

EndSub

PrivateSubTextl_KeyPress(kAsInteger)

StaticsAsInteger

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

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

EndSub

(46)寫出運行時在Textl中依次按“1/3/5/”輸入后窗體上的顯示結果△或A_。

A)149B)90135D)5

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

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

(48)寫出運行時在Textl中依次按“1/2a/5/”輸入后窗體上的顯示結果(48)D。

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

【程序閱讀4】

PrivateSubFormedick()

DimxAsSingle

x=Vai(InputBox(〃輸入x"))

SelectCasex\2

Case1

Print〃y二〃；x

Case2

Print〃y=“；xMod2

Case3

Print"y="；xMod3

CaseElse

Print〃y=〃；x\2

EndSelect

EndSub

(49)當x的輸入值為5時的運行結果為(49)C

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

(50)當x的輸入值為5.5時的運行結果為(50)D

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

(51)當x的輸入值為-7時的運行結果為(51)B

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

【程序閱讀5】設textl.text為“abcdef"，運行時連續(xù)單擊2次控件Hscrolll右側箭頭后,

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

PrivateSubForm_Load()

HScroll1.SmallChange=1: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］閱讀下列程序并回答問題，在每小題提供的若干可選答案中，挑選一個正

確答案。

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

PrivateSubCommand1_Click()

DimxAsString

x=InputBox(,'x=H)

Callf(x)

Printx

EndSub

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

A)cbaB)bcaC)abcD)acb

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

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

A)abdcB)edabC)abedD)bead

《計算機程序設計基礎》課后練習題2

一、判斷題

1.（錯）任何控件都有一個Caption屬性。

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

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

Singleo

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

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

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

6.（對）在某列表框中一共有5個選項，而當選中第三項時，這時列表框的Listindex

屬性為2。

7.（錯，標準模塊文件格式為.bas）VB中工程文件是指與該工程有關的全部文件和對象,

其擴展名是.vbp；窗體文件包括窗體及其控件的正文描述，其擴展名是.frm；標準模

塊文件是可選的，其擴展名是.cis。。

8.（錯，Clear方法）用Cis方法可以清除組合框中的所有表項。

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

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

性。

二、單選題

11.P的值為一3時，一P~2的值是B.0

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

12.以下程序段的執(zhí)行結果為A。

A=0:B=1

Do

A=A+B

B=B+1

LoopWhileA<10

PrintA;B

A>105B、ABC、01D、1030

13.設置列表框中列表數(shù)量的屬性是_B—。

A、ListB、ListCountC>ListindexD、Columns

14.要獲得當前驅(qū)動器應使用驅(qū)動器列表框的哪個屬性B.。

A、PathB、DriveC>DirI)、Pattern

15.以下Case語句中錯誤的是__C。

A、Case0To10B>CaseIs>10

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

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

A、VisualB、BasicC、6D、表達式有錯

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

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

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

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

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

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

PrivateSubTxtAKeyPress(keyasciiasinteger)

EndSub

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

A、單擊鼠標B、按下鍵盤上的“A”鍵

C、鼠標滑過文本框1)、按下鍵盤上的任意鍵

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

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屬性設置為True后，則對于圖形框而言,

____B____。

A、圖形框中的圖片自動改變大小適應圖形框

B、圖形框自動改變大小適應其中的圖形

C、如果圖片的大小比圖形框大，則圖形框自動裁剪圖象以適應圖形框的大小。

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

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

_C_?

A,Line(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)

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

22.下列賦值語句中，—C是錯誤的。

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

23.單擊滾動條的滾動箭頭時，產(chǎn)生的事件是C

A、ClickB、ScrollC、ChangeDAMove

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

A、AutosizeStretchC、PictureD、LoadPicture

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

PrivateSubCommand1Click（）

DimnumAsInteger

num=1

DoUntilnum>6

Printnum;

num=num+2.4

Loop

EndSub

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

13.45.8B、135C>147D、無數(shù)據(jù)輸出

26.—C__對象具有Clear方法。

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

27.設a=16,b=7,c=l,則表達式a\3+2=bAndc=91Mod3的結果A

A、TrueB、FalseC、1D、出錯信息

28.設有如下通用過程：

PublicSubFun(a(),ByVaixAsInteger)

Fori=1To5

x=x+a(i)

Next

EndSub

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

如下的事件過程：

PrivateSubCommandl_Click()

Dimarr(5)AsVariant

DimnasInteger

Fori=1To5

arr(i)=i

Next

n=10

CallFun(arr(),n)

Textl.Text=n

EndSub

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

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

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

PrivateSubCommandl_Click()

DimnumAsInteger

Fornum=1To6Step3

Printnum;

Nextnum

Printnum

EndSub

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

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

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

A^InputB、OutputC、AppendD、Random

三、程序填空

程序L在C盤當前文件夾下建立一個名為Data,txt的順序文件，要求用文本框輸入若干

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

本框輸入END為止，最后關閉文件。

PrivateSubForm_Load()

(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.txt"ForOutputAs#1

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

32.A、LCaseTextl.TextTextl.Text

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

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

C、End#1D、Exit#1

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

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

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

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

充完整。

PrivateSubCommand1Click()

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

B、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,然后按下式計算結果。要求：將計算結果

以標簽控件顯示，且標簽控件每秒隨機變換一次顏色。

XX2X3xn

S=一+一+一+

2!3!4!5+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

PrivateSubTimerl_Timer()

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

EndSub

38.A、StaticsAsSingleB、DimsAsSingle

C、OptionBase1D>ConstsAsSingle

39.A、t=-1B、t=0C>t=2D>t=1

40.A、2Ton+1B>1TonC>2TonD、1Ton+1

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

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

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

中顯示出來。

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

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

Textl,以便再次在文本框Textl輸入內(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.AdditemTextl.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<>I)、textl.text<>“NULL

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

C、Listl.ListindexD、Listl.ListCount

45.A>textl.ClearB、textl.SetFocus

C、textl.MoveD>textl.ReFresh

四、程序閱讀

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

PrivateSubCommandl_Click()

Dima(lTo6)AsInteger

Fori=1To6

a(i)=i*i

Nexti

Forj=1To3(解釋：將后3個數(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-1□!x|

結果:162536149

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

OptionExplicit

PrivateSubForm_Click()

Dimi%

Fori=0To3

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

Nexti

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

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

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

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

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

EndSub

PrivateSubForm_Load()

DimiAsInteger

Fori=0To3

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

Picturel(i).Cis

Nexti

結果：

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

〃1〃,〃2〃,〃+〃,〃3〃,〃4〃,〃-〃,〃5〃,〃6〃,〃/〃,〃1〃,〃4〃,然后按回車鍵,寫出輸出結果。

PrivateSubTextl_KeyPress(KAsInteger)

IfK<Asc(〃0〃)OrK>Asc(〃9〃)Then

K=0

PrintTextl.Text

EndIf

EndSub

1234

123456

結果：12345614

程序4.在窗體上畫一個名稱為Commandl的命令按鈕，然后編寫相應的事件過程。程序運

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

PublicFunctionf(xAsInteger)

DimyAsInteger

x=20

y=2

f=x*y

EndFunction

PrivateSubCommandl_Click()

StaticxAsInteger

x=10

y=5

y=f(x)

Printx;y

EndSub

?Foi?-1□1x|

結果:2040

《計算機程序設計基礎》課后練習題3

判斷題

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

2.（錯）關系運算表達式"1"+"2"="3"的運算結果為True。

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

4.（對）控件的有些屬性只能在運行時設置。

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

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

7.（錯）當按鈕的Default屬性設置為True時，任何情況下按<Enter>鍵，相當于單擊

該按鈕。

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

變量。

9.（對）設置數(shù)組下標下界缺省值為1的語句為optionbase1?

10.（對）For-Next循環(huán)結構的默認步長為1。

單選題

11.當建立好一個簡單的應用程序后，假定該工程僅有一個窗體模塊。問該工程涉及到

多少個文件要保存？B個?

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

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

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

13.下列符號中，哪個是VB合法的變量名？（,。

A）a123B）IntegerC）X_yzD）n

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

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

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

A）4B)5C)

6D)7

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

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

下同）

b=6<CR>

printa>b<CR>

則輸出結果是C。

A)-1B)0C)

FalseD)True

17.當程序運行時，在窗體上單擊鼠標，以下哪個事件是窗體不會接收到的C

A)MouseDownB)MouseUpC)LoadD)Click

18.在設計菜單時，如在菜單中加入一個菜單分隔項，則菜單分隔項的標題必須設置為

B?

A)加號(+)B)減號㈠C)星號(*)D)感嘆號(!)

19.SelectCase語句屬于程序基本結構中的注意：本題有問題，C和D均可：

A)順序結構B)循環(huán)結構C)分支結構D)選擇結構

20.為了把焦點移到某個指定的控件，所使用的方法是A

A)SetFocusB)VisibleC)RefreshD)GetFocus

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

A)5B)600D)

-1

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

x=5

Fori=lTo10Step2

x=x+i\5

Nexti

A)8B)10C)

6D)12

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

PrivateSubCommandl_Click()

Fori=1To2

x=2

Forj=iTo3

x=x+6

Nextj

Nexti

Printx

EndSub

程序運行后，單擊命令按鈕，輸出結果是一B。

A)20B)140

32D)38

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

PrevateSubCommandl_Click()

b二0

DoWhileb<>-l

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

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

a=a+b

Loop

Printa

EndSub

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

為A。

A)2B)3C)

14D)15

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

A)ShowOpenB)ShowColorC)ShowSaveD)ShowFont

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

A.Keypre