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

一．推斷題

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

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

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

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

性。

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

(6)（對(duì)）假如創(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)（對(duì)）在使用字體對(duì)話框時(shí)，需要對(duì)其Flags屬性先舉行相應(yīng)設(shè)置。

二．單選題

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

A）ActivateB）DoubleClickC）ClickD）MouseDown

(12)用于設(shè)置計(jì)時(shí)器時(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語(yǔ)句結(jié)構(gòu)的結(jié)尾應(yīng)使用D。

A）EndB）EndCaseC）EndSubD）EndSelect

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

A）leftB）scaleleftC）scaletopD）scalewidth

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

List1.Clear

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

A）B）C）D）

(17)輸入對(duì)話框InputBox的返回值的類(lèi)型是A。

A）字符串B）整數(shù)C）浮點(diǎn)數(shù)D）長(zhǎng)整數(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____語(yǔ)句，可以輸出日期和時(shí)光信息。

A）PrintDateB）PrintMonthC）PrintTimeD）PrintNow(21)一只美麗的酒杯被摔碎了，則美麗，酒杯，摔是___D____。

A）對(duì)象，屬性，大事B）對(duì)象，屬性，辦法

C）屬性，對(duì)象，辦法D）屬性，對(duì)象，大事

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

A)ShowOpenB）ShowColorC）ShowSaveD）ShowFont

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

那么該矩形的面積=A。

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

(24)如何使一個(gè)標(biāo)簽或按鈕控件在運(yùn)行時(shí)不行用___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è)置為T(mén)rue后，則對(duì)于圖形框而言，

____B____。

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

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

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

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

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

A）PathB）DriveC）DirD）Pattern

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

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

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

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

D）假如不指明函數(shù)過(guò)程參數(shù)的類(lèi)型，則該參數(shù)沒(méi)有數(shù)據(jù)類(lèi)型

(29)單擊滾動(dòng)條的滾動(dòng)箭頭時(shí)，產(chǎn)生的大事是___C____。

A）ClickB）ScrollC）ChangeD）Move

(30)以下能返回文件長(zhǎng)度的函數(shù)是__B___。

A）BOFB）LOFC）LEND）EOF

三．程序填空題

【程序填空1】在C盤(pán)當(dāng)前文件夾下已存在名為Data.txt的文件，利用文本框（Text1）輸入若干英文單詞。要求每輸入一個(gè)單詞后，按下回車(chē)鍵將文本框中的單詞寫(xiě)入文件，然后清除文本框的內(nèi)容以便輸入下一個(gè)單詞。當(dāng)在文本框中輸入的單詞是“END”時(shí)，則表示結(jié)束輸入（對(duì)于單詞“END”不論大小寫(xiě)都視為結(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，可省略不寫(xiě)）

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】程序運(yùn)行后如下圖所示，Label1的Caption顯示為"字體定時(shí)變大"，影響字體大小的屬性每隔0.5秒增強(qiáng)1，數(shù)值在[8，72]之間變化。

OptionExplicit

PrivateSubForm_Load()

Timer1.Enabled=True

（34）B

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

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】已知五個(gè)數(shù)存放在數(shù)組中，用冒泡法對(duì)該數(shù)組舉行遞減排序（冒泡法：一旦發(fā)覺(jué)數(shù)組中兩個(gè)數(shù)逆序馬上交換這兩個(gè)數(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】在窗體上畫(huà)一個(gè)名稱為Combol的組合框，畫(huà)兩個(gè)名稱分離Label1和Label2及Caption屬性分離為“城市名稱”和空白的標(biāo)簽。程序運(yùn)行后（如下圖所示），當(dāng)在組合框中輸入一個(gè)新的項(xiàng)目按回車(chē)鍵時(shí)（回車(chē)鍵的ASCII碼為13），假如輸入的項(xiàng)在組合框的列表中不存在，則自動(dòng)添加到組合框的列表中，并在Label2中給出提醒“已勝利添加輸入項(xiàng)；假如存在，則在Label2中給出提醒“輸入項(xiàng)已在組合框中”。

PrivateSubCombo1_KeyPress(KeyAsciiAsInteger)

If_(38)BThen

Fori=0ToCombo1.ListCount-1

IfCombo1.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）Combo1.List(i)C）Combo1.AddItem(i)D）Combo1.Clear

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

四．程序閱讀題

【程序閱讀1】按照以下代碼，單擊窗體三次，那么第一次單擊后輸出的a、b、c的值為_(kāi)____(41)_C__，其次次單擊后輸出的a、b、c的值為_(kāi)____(42)__D_，第三次單擊后輸出的a、b、c的值為_(kāi)____(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】閱讀下列程序并回答問(wèn)題，在每小題提供的若干可選答案中，選擇一個(gè)正確答案。

PrivateSubForm_Click()

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

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

Form1.FillStyle=0

EndSub

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

A）B）C）D）

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

A）B）C）D）

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

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)寫(xiě)出運(yùn)行時(shí)在Text1中依次按“1↙3↙5↙”輸入后窗體上的顯示結(jié)果_(46)_A__。

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

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

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

(48)寫(xiě)出運(yùn)行時(shí)在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時(shí)的運(yùn)行結(jié)果為（49）C

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

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

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

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

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

【程序閱讀5】設(shè)text1.text為“abcdef”，運(yùn)行時(shí)延續(xù)單擊2次控件Hscroll1右側(cè)箭頭后，組合框控件中的第一項(xiàng)為_(kāi)(52)A_、其次項(xiàng)___(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】閱讀下列程序并回答問(wèn)題，在每小題提供的若干可選答案中，選擇一個(gè)正確答案。

PrivateSubf(sAsString)（解釋?zhuān)喊凑沾a推想功能是：將字符串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過(guò)程f首句改為PrivateSubf(ByvalsAsString)，單擊Command1后

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

A）abdcB）cdabC）abcdD）bcad

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

一、推斷題

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

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

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

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

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

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

8．（錯(cuò)，Clear辦法）用Cls辦法可以清除組合框中的全部表項(xiàng)。

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

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

二、單選題

11.P的值為－3時(shí)，－P^2的值是___B_____。

A、9

B、–9

C、6

D、-6

12.以下程序段的執(zhí)行結(jié)果為_(kāi)____A_______。

A=0:B=1

Do

A=A+B

B=B+1

LoopWhileA10

C、CaseIs>10AndIs10

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

A、Visual

B、Basic

C、6

D、表達(dá)式有錯(cuò)

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

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

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

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

D、假如不指明函數(shù)過(guò)程參數(shù)的類(lèi)型，則該參數(shù)沒(méi)有數(shù)據(jù)類(lèi)型

18.在窗體上畫(huà)一個(gè)名稱為T(mén)xtA的文本框,然后編寫(xiě)如下的大事過(guò)程：

PrivateSubTxtＡ_KeyPress(keyasciiasinteger)

……

EndSub

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

A、單擊鼠標(biāo)

B、按下鍵盤(pán)上的“A”鍵

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

D、按下鍵盤(pán)上的隨意鍵

19.執(zhí)行行下面的大事過(guò)程，在窗體顯示的內(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è)置為T(mén)rue后，則對(duì)于圖形框而言，

____B____。

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

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

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

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

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

__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.下列賦值語(yǔ)句中，___C_____是錯(cuò)誤的。

A、x=x+1

B、x=x+y

C、x+y=x

D、x=4>6

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

A、Click

B、Scroll

C、Change

D、Move

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

A、Autosize

B、Stretch

C、Picture

D、LoadPicture

25.在窗體上畫(huà)一個(gè)名稱為Command1的命令按鈕，然后編寫(xiě)如下大事過(guò)程：

PrivateSubCommand1_Click()

DimnumAsInteger

num=1

DoUntilnum>6

Printnum;

num=num+2.4

Loop

EndSub

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

A、13.45.8

B、135

C、147

D、很多據(jù)輸出

26.___C____對(duì)象具有Clear辦法。

A、窗體

B、復(fù)選框

C、列表框

D、圖片框

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