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

千里之行，始于足下讓知識帶有溫度。第第2頁/共2頁精品文檔推薦《計算機程序設(shè)計基礎(chǔ)》課后練習(xí)題答案《計算機程序設(shè)計基礎(chǔ)》課后練習(xí)題1

一．推斷題

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

(2)（錯）若X＝2,Y＝5，則表達(dá)式Y(jié)－2>XANDX＋2＞Y的結(jié)果為：True。

(3)（錯）常量是指在程序運行過程中其值可以轉(zhuǎn)變的那些量。

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

性。

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

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

(7)（錯）標(biāo)準(zhǔn)模塊文件的擴展名是“*.VBP”。

(8)（錯，都不能）定時器控件可以響應(yīng)Click大事，但不能響應(yīng)DbClick大事。

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

(10)（對）在使用字體對話框時，需要對其Flags屬性先舉行相應(yīng)設(shè)置。

二．單選題

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

A）ActivateB）DoubleClickC）ClickD）MouseDown

(12)用于設(shè)置計時器時光間隔的屬性是A。

A）IntervalB）NameC）LeftD）Top

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

A）[1，10]B）[1，10]C)[0，9)D）[0，9]

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

A）EndB）EndCaseC）EndSubD）EndSelect

(15)轉(zhuǎn)變了容器的坐標(biāo)系后，該容器的A屬性值不會轉(zhuǎn)變。

A）leftB）scaleleftC）scaletopD）scalewidth

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

List1.Clear

Fori=1to4:List1.AddItemi-1,0：Nexti

A）B）C）D）

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

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

(18)將焦點主動設(shè)置到指定的控件或窗體上，應(yīng)采納B辦法。

A）SetDateB）SetFocusC）SetTextD）GetData(19)有如下程序段：

DimIAsInteger,SAsInteger

S=1

FORI=1TO8STEP2

S=S*I

NEXTI

PRINT“S=“;S

運行結(jié)果為B

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

(20)利用以下___D____語句，可以輸出日期和時光信息。

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”,在窗體上繪制出一個矩形，

那么該矩形的面積=A。

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

(24)如何使一個標(biāo)簽或按鈕控件在運行時不行用___C____。

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

C）把它的Enabled屬性設(shè)置成FalseD）把它的Enabled屬性設(shè)置成True(25)下列C表達(dá)式的結(jié)果為"1234556789"。

A）Trim("12345"+"56789")B）Ltrim("12345")+Rtrim("56789")C）Rtrim("12345")&("56789")D）Ltrim("12345")&Rtrim("56789")

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

____B____。

A）圖形框中的圖片自動轉(zhuǎn)變大小適應(yīng)圖形框

B）圖形框自動轉(zhuǎn)變大小適應(yīng)其中的圖形

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

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

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

A）PathB）DriveC）DirD）Pattern

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

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

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盤當(dāng)前文件夾下已存在名為Data.txt的文件，利用文本框（Text1）輸入若干英文單詞。要求每輸入一個單詞后，按下回車鍵將文本框中的單詞寫入文件，然后清除文本框的內(nèi)容以便輸入下一個單詞。當(dāng)在文本框中輸入的單詞是“END”時，則表示結(jié)束輸入（對于單詞“END”不論大小寫都視為結(jié)束），最后將文件關(guān)閉。

PrivateSubForm_Load()

（31）A

Text1.Text=""

EndSub

PrivateSubText1_KeyPress(KeyAsciiAsInteger)

IfKeyAscii=13Then

If（32）D="END"Then

Close#

End

Else

（33）A（注重，Text1的默認(rèn)屬性為text，可省略不寫）

Text1.Text=""

EndIf

EndIf

EndSub

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

B）Open"C:\Data.txt"ForInput#１

C）Open"C:\Data.txt"InputAs#１

D）Open"C:\Data.txt"OutputAs#１

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

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

(33)A）Write#1,Text1B）Write#1,Text

C）Write#3,Text1.TextD）Write#1,Text.Text

【程序填空2】程序運行后如下圖所示，Label1的Caption顯示為"字體定時變大"，影響字體大小的屬性每隔0.5秒增強1，數(shù)值在[8，72]之間變化。

OptionExplicit

PrivateSubForm_Load()

Timer1.Enabled=True

（34）B

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

EndSub

PrivateSubTimer1_Timer()

StaticiAsInteger

Ifi=72Theni=7

i=i+1

（35）A

EndSub

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

C）Timer1.Interval=TrueD）Timer1.Interval=False

(35)A）Label1.FontSize=iB）Label1.Font=i

C）Label1.Size=iD）Label1.FontSize=i+1

【程序填空3】已知五個數(shù)存放在數(shù)組中，用冒泡法對該數(shù)組舉行遞減排序（冒泡法：一旦發(fā)覺數(shù)組中兩個數(shù)逆序馬上交換這兩個數(shù)）。

PrivateSubCommand1_Click()

Dima(1To5)AsInteger

Dimn%,i%，j%,t%

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

Fori=1To4（確保第i輪循環(huán)后，a(i)位置上存放第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)

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

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

【程序填空4】在窗體上畫一個名稱為Combol的組合框，畫兩個名稱分離Label1和Label2及Caption屬性分離為“城市名稱”和空白的標(biāo)簽。程序運行后（如下圖所示），當(dāng)在組合框中輸入一個新的項目按回車鍵時（回車鍵的ASCII碼為13），假如輸入的項在組合框的列表中不存在，則自動添加到組合框的列表中，并在Label2中給出提醒“已勝利添加輸入項；假如存在，則在Label2中給出提醒“輸入項已在組合框中”。

PrivateSubCombo1_KeyPress(KeyAsciiAsInteger)

If_(38)BThen

Fori=0ToCombo1.ListCount-1

IfCombo1.Text=_(39)BThen

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

ExitSub

EndIf

Nexti

Label2.Caption="已勝利添加輸入項"

Combo1._(40)CCombo1.Text

EndIf

EndSub

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

(39)A）Combo1.ListIndexB）Combo1.List(i)C）Combo1.AddItem(i)D）Combo1.Clear

(40)A)SelectedB)RemoveItemC)AddItemD)ListIndex

四．程序閱讀題

【程序閱讀1】按照以下代碼，單擊窗體三次，那么第一次單擊后輸出的a、b、c的值為_____(41)_C__，其次次單擊后輸出的a、b、c的值為_____(42)__D_，第三次單擊后輸出的a、b、c的值為_____(43)_A_。

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）234C）034D）032

(42)A）7129B）7159C）062D）067

(43)A）0910B）092C）171935D）102732【程序閱讀2】閱讀下列程序并回答問題，在每小題提供的若干可選答案中，選擇一個正確答案。

PrivateSubForm_Click()

Form1.Scale(-10,10)-(10,-10)

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

Form1.FillStyle=0

EndSub

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

A）B）C）D）

(45)其次次單擊窗體后,Form1上的輸出結(jié)果是(45)B。

A）B）C）D）

【程序閱讀3】閱讀下列程序并回答問題，在每小題提供的若干可選答案中，選擇一個正確答案。（↙：表示回車）

PrivateSubForm_Load()

Text1.Text="":Form1.Cls

EndSub

PrivateSubText1_KeyPress(kAsInteger)

StaticsAsInteger

If(Chr(k)"9")Andk13Thenk=0

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

EndSub

(46)寫出運行時在Text1中依次按“1↙3↙5↙”輸入后窗體上的顯示結(jié)果_(46)_A__。

A）149B）9C）135D）5

(47)寫出運行時在Text1中依次按“1↙-3↙5↙”輸入后窗體上的顯示結(jié)果_(47)_B___。

A）1-23B）149C）1-35D）3

(48)寫出運行時在Text1中依次按“1↙2a↙5↙”輸入后窗體上的顯示結(jié)果_(48)D__。

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

【程序閱讀4】

PrivateSubForm_click()

DimxAsSingle

x=Val(InputBox("輸入x"))

SelectCasex\2

Case1

Print"y=";x

Case2

Print"y=";xMod2

Case3

Print"y=";xMod3

CaseElse

Print"y=";x\2

EndSelect

EndSub

(49)當(dāng)x的輸入值為5時的運行結(jié)果為（49）C

A）y=5B）y=2.5C）y=1D）y=0

(50)當(dāng)x的輸入值為5.5時的運行結(jié)果為（50）D

A）y=5B）y=2.5C）y=1D）y=0

(51)當(dāng)x的輸入值為-7時的運行結(jié)果為（51）B

A）y=-7B）y=-3C）y=1D）y=3.5

【程序閱讀5】設(shè)text1.text為“abcdef”，運行時延續(xù)單擊2次控件Hscroll1右側(cè)箭頭后，組合框控件中的第一項為_(52)A_、其次項___(53)A_。

PrivateSubForm_Load()

HScroll1.SmallChange=1:HScroll1.Max=5

HScroll1.Min=1:HScroll1.Value=1

Combo1.Clear

EndSub

PrivateSubHScroll1_Change()

Combo1.AddItemLeft(Text1.Text,HScroll1.Value),0

EndSub

(52)A）abcB）abcdC）abD）abcde

(53)A）abB）abcdeC）abcD）abcd

【程序閱讀6】閱讀下列程序并回答問題，在每小題提供的若干可選答案中，選擇一個正確答案。

PrivateSubf(sAsString)（解釋：按照代碼推想功能是：將字符串s等分為兩部分，并交換前半部與后半部的位置，如“abcde”，交換后得“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=")

Callf(x)

Printx

EndSub

(54)單擊Command1后輸入"abc"，窗體上顯示結(jié)果為（54）A：

A）cbaB）bcaC）abcD）acb

(55)假如將Sub過程f首句改為PrivateSubf(ByvalsAsString)，單擊Command1后

輸入"abcd"，窗體上顯示結(jié)果為：（55）C

A）abdcB）cdabC）abcdD）bcad

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

一、推斷題

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

2．（對）對于大事驅(qū)動型應(yīng)用程序，每次運行時的執(zhí)行挨次可以不一樣。

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

4．（對）通用對話框不能真正實現(xiàn)文件打開、文件存儲、設(shè)置色彩、字體設(shè)置、打印等操作，假如想要實現(xiàn)這些功能則需要編程實現(xiàn)。

5．（對）用Scale辦法轉(zhuǎn)變了窗體坐標(biāo)系后，窗體的Left、Top屬性值不變。6．（對）在某列表框中一共有5個選項，而當(dāng)選中第三項時，這時列表框的ListIndex屬性為2。

7．（錯，標(biāo)準(zhǔn)模塊文件格式為.bas）VB中工程文件是指與該工程有關(guān)的所有文件和對象，其擴展名是.vbp；窗體文件包括窗體及其控件的正文描述，其擴展名是.frm；標(biāo)準(zhǔn)模塊文件是可選的，其擴展名是.cls。。

8．（錯，Clear辦法）用Cls辦法可以清除組合框中的全部表項。

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

10．（錯）VisualBasic工具箱中的全部控件都具有寬度（Width）和高度（Height）屬性。

二、單選題

11.P的值為－3時，－P^2的值是___B_____。

A、9

B、–9

C、6

D、-6

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

A=0:B=1

Do

A=A+B

B=B+1

LoopWhileA10

C、CaseIs>10AndIs10

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

A、Visual

B、Basic

C、6

D、表達(dá)式有錯

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

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

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

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

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

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

PrivateSubTxtＡ_KeyPress(keyasciiasinteger)

……

EndSub

若焦點位于文本框中,則能夠觸發(fā)KeyPress大事的操作是____D____。

A、單擊鼠標(biāo)

B、按下鍵盤上的“A”鍵

C、鼠標(biāo)滑過文本框

D、按下鍵盤上的隨意鍵

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

PrivateSubCommand1_Click()

DimaAsVariant

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

Fori=1To3

PrintTrim(a(i));

NextI

EndSub

A、122334

B、233445

C、122334

D、233445

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

____B____。

A、圖形框中的圖片自動轉(zhuǎn)變大小適應(yīng)圖形框

B、圖形框自動轉(zhuǎn)變大小適應(yīng)其中的圖形

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

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

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

__C__。

A、Line(100,100)-(500,500)vbRed

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

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

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

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

A、x=x+1

B、x=x+y

C、x+y=x

D、x=4>6

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

A、Click

B、Scroll

C、Change

D、Move

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

A、Autosize

B、Stretch

C、Picture

D、LoadPicture

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

PrivateSubCommand1_Click()

DimnumAsInteger

num=1

DoUntilnum>6

Printnum;

num=num+2.4

Loop

EndSub

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

A、13.45.8

B、135

C、147

D、很多據(jù)輸出

26.___C____對象具有Clear辦法。

A、窗體

B、復(fù)選框

C、列表框

D、圖片框

27.設(shè)a=16，b=7