程序設(shè)計(jì)語(yǔ)言VB

本文格式為Word版，下載可任意編輯——程序設(shè)計(jì)語(yǔ)言VB《程序設(shè)計(jì)語(yǔ)言VB》課程習(xí)題集

一、單項(xiàng)選擇題

1.VisualBasic是一種面向（）的程序設(shè)計(jì)語(yǔ)言。

A.用戶B.事件C.程序D.對(duì)象

2.在VisualBasic6.0中規(guī)定工程文件的擴(kuò)展名是（）。

A.vbpB.forC.frmD.bas

3.VisualBasic6.0中規(guī)定窗體文件的擴(kuò)展名是（）。

A.forB.frmC.vbpD.bas

4.如何使一個(gè)標(biāo)簽或按鈕控件在運(yùn)行時(shí)不可用（）。

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

5.控件的字體可在屬性窗口的（）屬性中調(diào)整？

A.FontB.ColorC.TextD.Caption

6.若要將某命令按鈕設(shè)置為默認(rèn)命令按鈕。則應(yīng)設(shè)置為True的屬性是（）。

A.ValueB.CancelC.DefaultD.Enabled

7.在VB中，記錄對(duì)象數(shù)據(jù)的是（）。

A.方法B.事件C.屬性

第1頁(yè)共24頁(yè)

D.語(yǔ)句

8.在文本框上顯示文本的屬性是（）。

A.ValueB.TextC.PrintD.Enabled

9.InputBox函數(shù)返回值的類型為（）。

A.字符串B.數(shù)值C.變體

D.數(shù)值或字符串（視輸入的數(shù)據(jù)而定）

10.設(shè)有語(yǔ)句：a=InputBox(\請(qǐng)輸入數(shù)值:\輸入例如\程序執(zhí)行后,若從鍵盤上輸

入數(shù)值20并按回車鍵,則變量a的值是（）。A.字符串\B.字符串\C.默認(rèn)值100D.數(shù)值120

11.以下控件中可用于接受用戶輸入文本，又可用于顯示文本的是（）。

A.Label控件B.TextBox控件C.Timer控件

D.CommandButton控件

12.語(yǔ)句PRINT\的輸出結(jié)果是（）。

A.25*4B.\C.100

D.出現(xiàn)錯(cuò)誤信息

13.只能用來(lái)顯示字符信息的控件是（）。

A.文本框B.標(biāo)簽框C.圖片框D.圖像框

14.以下可作為VisualBasic變量名的是（）。

A.A%AB.4AC.?xyD.Stemp

15.以下哪個(gè)符號(hào)不能作為VB中的變量名（）。

A.timefly

第2頁(yè)共24頁(yè)

B.pass4C.min4maxD.R[8]

16.在窗體內(nèi)聲明的變量是（）。

A.局部變量B.模塊變量C.公共變量D.任意變量

17.語(yǔ)句DimxAsInteger作用是:將x定義為（）變量。

A.單精度型B.整型C.布爾型D.字符型

18.在VB中,用Boolean來(lái)表示的數(shù)據(jù)類型是（）。

A.長(zhǎng)整型B.字符型C.布爾型D.單精度型

19.定義常量需要用到的關(guān)鍵字是（）。

A.ConstB.DimC.PrivateD.Public

20.假使要處理3.1415類數(shù)據(jù)，使用的變量類型應(yīng)當(dāng)是（）。

A.SingleB.LongC.IntegerD.String

21.表達(dá)式2*3^2+2*8/2+3^2的值為（）。

A.27B.31C.35D.42

22.數(shù)學(xué)表達(dá)式X^2+3XY對(duì)應(yīng)的VB算術(shù)表達(dá)式是（）。

A.X*2+3X*YB.X*X+3XYC.X*X+3*X*YD.X*X+3*XY

23.在VB語(yǔ)言中，求余運(yùn)算符是（）。

第3頁(yè)共24頁(yè)

A.％B.MODC.*D./

24.判斷兩個(gè)規(guī)律關(guān)系任一滿足的規(guī)律運(yùn)算是（）。

A.OrB.AndC.NotD.Ok

25.表達(dá)式4+5\\6*7/8Mod9的值是（）。

A.4B.5C.6D.7

26.選拔身高T超過(guò)1.7米且體重W小于60公斤的人，表示該條件的布爾表達(dá)式為（）。

A.T>=1.7AndW=60C.T>1.7AndW=1.7OrWbanda>cB.a>b>cC.a≤bD.a≠122

28.設(shè)x=4,y=8,z=7，表達(dá)式xz)Orz=10thena=1elsea=2執(zhí)行后，a的值為（A.12B.10C.1D.2

38.語(yǔ)句Ifx=1Theny=1,以下說(shuō)法正確的是（）。

A.x=1和y=1均為賦值語(yǔ)句B.x=1和y=1均為關(guān)系表達(dá)式

C.x=1為關(guān)系表達(dá)式，y=1為賦值語(yǔ)句

第5頁(yè)共24頁(yè)

。）

D.x=1為賦值語(yǔ)句，y=1為關(guān)系表達(dá)

39.下面程序段中，（）不是把兩個(gè)數(shù)中的大值賦給變量Ｍax。

A.Max=IIf(x>y,x,y)

B.Ifx>yThenMax=xElseMax=yC.Max=x：Ify>=xThenMax=yD.Ify>=xThenMax=yMax=x

40.在Select判斷結(jié)構(gòu)中，下面的表述中不正確的是（）。

A.Case1B.Casea>5C.Case3To6D.CaseisA.順序文件開(kāi)啟后，既可以讀又可以寫B(tài).隨機(jī)文件開(kāi)啟后，既可以讀又可以寫C.順序文件開(kāi)啟后，只能讀或者只能寫

D.順序文件和隨機(jī)文件的開(kāi)啟都使用Open語(yǔ)句

78.VB編程中順序文件的處理將用到關(guān)鍵字是（）。

A.FileB.SaveC.OpenD.Disk

二、填空題1

79.PrivateSubCommand1_Click()

a=3b=1

Fori=1To3f=a+ba=bb=fNextiPrintfEndSub

以上程序段運(yùn)行后，f的結(jié)果為。

80.設(shè)有如下通用過(guò)程：

PublicSubfun(a()AsInteger,xAsInteger)Fori=1To5x=x+a(i)NextEndSub

在窗體上畫一個(gè)名稱為Text1的文本框和一個(gè)名稱為Command1的命令按鈕,然后編寫如下事件過(guò)程:

PrivateSubCommand1_Click()

Dimarr(5)AsInteger,nAsIntegerFori=1To5arr(i)=2*iNextfunarr,n

Text1.Text=Str(n)

第11頁(yè)共24頁(yè)

EndSub

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

81.閱讀以下程序段

OptionExplicit

PrivateSubCommand1_Click()Dimstr1AsStringDimstr2AsStringstr1=\MySubstr1,str2Printstr2EndSub

PrivateSubMySub(ByValaAsString,bAsString)DimcAsStringDimiAsInteger

Fori=Len(a)To1Step-1c=c+Mid(a,i,1)Nextb=cEndSub程序運(yùn)行后，“print〞語(yǔ)句的輸出結(jié)果是____。

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

PrivateSubCommand1_Click()x=Int(Rnd)+6

Ifx^2>25Theny=x^2+5x=Int(Rnd)+4

Ifx^2=7Printi,xEndSub

單擊命令按鈕后，i和x的值分別是、。

87.下面程序運(yùn)行后，a、b、c、d的結(jié)果分別。

PrivateSubCommand1_Click()Dima,b,c,dAsIntegerDo

Fora=1To2b=b+1

Ifa=1Thenb=0c=5d=d+2Nexta

LoopUntild>10Printa,b,c,dEndSub

88.假定有如下的Sub過(guò)程：

SubS(xAsSingle,yAsSingle)t=xx=t+xy=t-yEndSub

PrivateSubCommand2_Click()DimaAsSingle,bAsSinglea=6b=4

CallS(a,b)Printa,bEndSub

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

89.閱讀以下程序段

Dima(3,3)AsIntegerForm=1To3

第14頁(yè)共24頁(yè)

Forn=1To3

a(m,n)=(m-1)*3+nNextnNextm

Form=2To3Forn=1To2Printa(m,n);NextnNextm

程序運(yùn)行后，顯示結(jié)果為：。

三、綜合設(shè)計(jì)題

90.編制程序?qū)崿F(xiàn)：在窗體上，單擊按鈕1，在文本框中動(dòng)態(tài)顯示當(dāng)前時(shí)間；單擊按鈕2，

則中止動(dòng)態(tài)顯示；單擊按鈕3，清除文本框內(nèi)容。提醒：可用定時(shí)器控制時(shí)間，用系統(tǒng)函數(shù)Now顯示時(shí)間（如Text1.Text=Now）。

91.編制程序：求出100-200之間所有可以被3整除的數(shù)的總和，將結(jié)果用消息框顯示輸

出。

92.編制程序：利用輸入框輸入10個(gè)不同的整數(shù)，將它們從小到大排序，并打印輸出。93.編制程序?qū)崿F(xiàn)：設(shè)計(jì)在一框架中包含三個(gè)復(fù)選框，只有當(dāng)其1,3選中而2未選中時(shí)，

才在Text1中顯示\字符。

94.編一程序能實(shí)現(xiàn)在窗體上打印出如下圖所示的圖形。

AAAAAAAAAAAAAAAABBBBBBBBBBBBBBBB

95.編一程序用于判斷一正整數(shù)是否為素?cái)?shù)。（提醒：只能被1和本身整除的正整數(shù)稱為

素?cái)?shù)。為了判斷一個(gè)數(shù)n是不是素?cái)?shù)，可以將n被2到sqr(n)之間的所有整數(shù)除，假使都除不盡，則n就是素?cái)?shù)，否則n是非素?cái)?shù)。）

96.選用If和Select判斷結(jié)構(gòu)中任意一種編寫滿足以下條件的計(jì)稅要求的程序：少于1600

元，免稅；1601-5000元，征2%的稅；多于5000元，超過(guò)部分征5%的稅。

97.有a、b、c三個(gè)數(shù)，編一程序?qū)崿F(xiàn)通過(guò)文本框給a、b賦值；再調(diào)用能完成a、b比較

大小的子過(guò)程，用c將大數(shù)回傳。要求按值傳送a、b。

98.編一程序用于求所有的\水仙花數(shù)\。所謂\水仙花數(shù)\是指一個(gè)3位數(shù)，其各位數(shù)字立

第15頁(yè)共24頁(yè)

方和等于該數(shù)本身。例如：153就是一水仙花數(shù)，由于153=13+53+33。

99.設(shè)計(jì)一彈出式菜單，用于設(shè)置窗體的背風(fēng)景，背風(fēng)景包含白色、黃色、紅色三種顏色。100.編寫程序?qū)崿F(xiàn)：輸入三角形的三條邊a,b,c的值，根據(jù)其數(shù)值判斷能否構(gòu)成三角形。

假使能，則判斷三角形是否是直角三角形，若是則計(jì)算該直角三角形的面積。

提醒：判斷能否構(gòu)成三角形的方法是，求最長(zhǎng)的一邊，判斷它的邊長(zhǎng)是否小于另外兩邊邊長(zhǎng)之和；或求最短的一邊，判斷它的邊長(zhǎng)是否大于另外兩邊之差。

101.編寫程序：通過(guò)四個(gè)命令按鈕Command1-Command4，在圖片框Picture1內(nèi)分別實(shí)

現(xiàn)畫點(diǎn)、畫線、畫圓、擦除等功能。

102.編寫程序?qū)崿F(xiàn)：在窗體上單擊按鈕1，可通過(guò)輸入對(duì)話框輸入兩個(gè)字符串；單擊按

鈕2，將輸入的兩個(gè)字符串連接為一個(gè)字符串，并計(jì)算該字符串長(zhǎng)度，然后在消息框中顯示出來(lái)。

103.編一程序：用三個(gè)文本框分別輸入a、b、c，求一元二次方程ax2+bx+c=0的解x1

和x2，只包括實(shí)根。

104.編一程序：利用輸入對(duì)話框輸入兩個(gè)正整數(shù)，求最大公約數(shù)。四、簡(jiǎn)答題（略）??

答案

一、單項(xiàng)選擇題1.D2.A3.B4.C5.A6.C7.C8.B9.A10.A11.B

第16頁(yè)共24頁(yè)

12.A13.B14.D15.D16.B17.B18.C19.A20.A21.C22.C23.B24.A25.B26.C27.A28.D29.A30.B31.B32.C33.A34.C35.C36.C37.C38.C39.D40.B41.C42.D43.A44.B45.B46.D47.C48.B49.C50.B

第17頁(yè)共24頁(yè)

51.D52.C53.D54.D55.C56.A57.A58.D59.C60.B61.A62.B63.B64.D65.C66.B67.C68.D69.C70.B71.D72.C73.C74.C75.D76.C77.A78.C

二、填空題179.980.30

81.GFEDCBA82.2083.384.1585.4、14

第18頁(yè)共24頁(yè)

86.7、29

87.3、1、5、1288.12、2

89.4、5、7、8

三、綜合設(shè)計(jì)題

90.PrivateSubCommand1_Click()

Timer1.Interval=5Timer1.Enabled=TrueEndSub

PrivateSubCommand2_Click()Timer1.Enabled=FalseEndSub

PrivateSubCommand3_Click()Timer1.Enabled=FalseText1.Text=\EndSub

PrivateSubTimer1_Timer()Text1.Text=NowEndSub

91.PrivateSubCommand1_Click()

Dimi,sAsIntegerFori=100To200

IfiMod3=0Thens=s+iNexti

MsgBox(\之間所有可以被3整除的數(shù)的總和為：\EndSub

92.PrivateSubCommand1_Click()

Dima(9),i,j,mAsIntegerFori=0To9

a(i)=Val(InputBox(\第\個(gè)數(shù)：\Nexti

Fori=0To9

Forj=i+1To9Ifa(i)>a(j)Thenm=a(i)a(i)=a(j)

第19頁(yè)共24頁(yè)

a(j)=mEndIfNextjNexti

Fori=0To9Printa(i);NextiEndSub

93.PrivateSubCommand1_Click()

IfCheck1.Value=1AndCheck2.Value=1AndCheck3.Value=0ThenText1.Text=\EndIfEndSub

94.PrivateSubCommand1_Click()

Dimi,jAsIntegerFori=1To4

Forj=1To(2*i-1)Print\NextjPrintNexti

Fori=4To1Step-1

Forj=(2*i-1)To1Step-1Print\NextjPrintNextiEndSub

95.PrivateSubCommand4_Click()

Dimn,k,i,tempAsInteger

n=InputBox(\請(qǐng)輸入一個(gè)正整數(shù)\k=Int(Sqr(n))i=2temp=0

DoWhilei

EndIfLoop

Iftemp=0Then

Printn;\是一個(gè)素?cái)?shù)\Else

Printn;\不是素?cái)?shù)\EndIfEndSub

96.PrivateSubCommand1_Click()

Dimn,pAsSinglen=Val(Text1.Text)SelectCasen

CaseIsbThenc=aElsec=bEndSub

PrivateSubCommand1_Click()Dima,b,cAsSinglea=Val(Text1.Text)b=Val(Text2.Text)Callc1(a,b,c)PrintcEndSub

98.PrivateSubCommand1_Click()

Dima,b,c,nAsInteger

Forn=100To999a=Int(n/100)b=Int((n-a*100)/10)c=n-(a*100+b*10)

Ifn=a^3+b^3+c^3ThenPrintn;Next

第21頁(yè)共24頁(yè)

EndSub

99.PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAs

Single)

IfButton=2Then

PopupMenuMenuAEndIfEndSub

PrivateSubB_Click(IndexAsInteger)SelectCaseIndexCase1

Form1.BackColor=vbWhiteCase2

Form1.BackColor=vbYellowCaseElse

Form1.BackColor=vbRedEndSelectEndSub

100.PrivateSubCommand1_Click()

Dima(2),i,j,mAsIntegerFori=0To2

a(i)=Val(InputBox(\第\條邊為：\Nexti

Fori=0To2

Forj=i+1To2Ifa(i)>a(j)Thenm=a(i)a(i)=a(j)a(j)=mEndIfNextjNexti

I