高級(jí)語言程序設(shè)計(jì)（VB）期末試題集及答案

VB作業(yè)集

2017-2018第一學(xué)期

信息工程學(xué)院

公共計(jì)算機(jī)教學(xué)部

第1章VisualBasic6.0概述

蛤自己打分

7你預(yù)習(xí)了本幸內(nèi)走了嗎？英花時(shí)向分

2,禰復(fù)習(xí)了上一堂課內(nèi)參嗎？共花時(shí)間分

3.你作業(yè)做了嗎？

4,作業(yè)是自己做的嗎？

一、判斷題

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

2.控件的屬性值不可以在程序運(yùn)行時(shí)動(dòng)態(tài)地修改。（）

3.一個(gè)控件的屬性在屬性窗口中設(shè)置后，還可以再利用程序代碼為其設(shè)置新值。（）

4.所謂保存工程，是指保存正在編輯的工程的窗體。（）p24

5.面向?qū)ο蟮某绦蛟O(shè)計(jì)是一種以對(duì)象為基礎(chǔ)，由事件驅(qū)動(dòng)對(duì)象執(zhí)行的設(shè)計(jì)方法。（）

6.為了使一個(gè)控件在運(yùn)行時(shí)不可見，應(yīng)該將該控件的Enabled屬性設(shè)置為False。（）

7.保存VisualBasic文件時(shí)，若一個(gè)工程包含多個(gè)窗體或模塊，則系統(tǒng)先保存工程文件，再分別保存各

窗體或模塊文件。（）

8.事件是由VisualBasic預(yù)先定義的對(duì)象能夠識(shí)別的動(dòng)作。（）

9.“方法”是用來完成特定操作的特殊子程序。（）

10.窗體中的控件，是使用工具箱中的工具在窗體上畫出的各圖形對(duì)象。（）

11.語句Forml.show和Forml.visible=True是等效的。（）

12.在打開一個(gè)VisualBasic工程進(jìn)行修改后，要另存為一個(gè)版本，只需單擊“工程另存為…”就行，

因?yàn)橄到y(tǒng)將同時(shí)保存其他文件。（）

13.對(duì)象的Name屬性可以在運(yùn)行期間改變。（）

14.窗體的Enabled屬性值為False時(shí)，該窗體上的按鈕、文本框等控件就不會(huì)對(duì)用戶的操作做出反應(yīng)。

二、選擇題

1.要使某個(gè)控件不可操作，要對(duì)______屬性進(jìn)行設(shè)置。

A.EnabledB.VisibleC.CaptionD.Name

2.下列不屬于對(duì)象的基本特征的是_______o

A.屬性B.方法C.事件D.函數(shù)

3.當(dāng)運(yùn)行程序時(shí)，系統(tǒng)自動(dòng)執(zhí)行啟動(dòng)窗體的_______.事件過程。

A.ClickB.LoadC.DblClickD.Unload

4.VisualBasic中“程序運(yùn)行”允許使用的快捷鍵是.________________O

A.F2B.F5C.Alt+F3D.F8

5.改變控件在窗體中的左右位置應(yīng)修改該控件的—____屬性。

A.TopB.LeftC.,WidthD.Right

6.啟動(dòng)￥B后，就意味著要建立一個(gè)新的o

A.窗體B.程序C.工程D.文件

7.在VisualBasic中，稱對(duì)象的數(shù)據(jù)為。

A.屬性B.方法C.事件D.封裝

8.下列選項(xiàng)中不屬于屬性的是。

A.NameB.CaptionC.ShowD.Text

9.將VisualBasic編制的程序保存在磁盤上，至少會(huì)產(chǎn)生何種文件。

A..doc與.txtB..com與.exeC..bat與.frmD..vbp與.frm

10.下列關(guān)于屬性設(shè)置的敘述錯(cuò)誤的是。

A.一個(gè)控件具有什么屬性是VB預(yù)先設(shè)計(jì)好的，用戶不能改變它

B.一個(gè)控件具有什么屬性值是VB預(yù)先設(shè)計(jì)好的，用戶不能改變它

C.一個(gè)控件的大多數(shù)屬性既可以在屬性窗口中設(shè)置，也可以用程序代碼設(shè)置

D.一個(gè)控件的屬性在屬性窗口中設(shè)置后，還可以再利用程序代碼為其設(shè)置新值

11.下列選項(xiàng)中不屬于事件的是0

A.DblclickB.LoadC.ShowD.KeyUp

12.在窗體上按下鼠標(biāo)左鍵時(shí)產(chǎn)生的事件是?

A.KeyDownB.MouseUpC.MouseMoveD.MouseDown

13.有如下程序代碼：

Forml.Caption=MVisualBasic實(shí)例”

則Forml、Caption和“VisualBasic實(shí)例"分別代表。

A、對(duì)象、值、屬性B、對(duì)象、方法、屬性

C、對(duì)象、屬性、值D、屬性、對(duì)象、值

14.為了使命令按鈕（名稱為Commandl）右移200,應(yīng)使用的語句是。

A、Commandl.Move-200B、Commandl.Move200

C、Command1.Left=Command1.Left+200D、Command1.Left=Command1.Left-200

三、程序設(shè)計(jì)題

1.編一程序：當(dāng)用戶在文本框中輸入姓名，例如輸入“XXX”，單擊“確定”按鈕，則窗體上以隸書、18

號(hào)字出現(xiàn)“XXX：歡迎你！"，如果單擊“結(jié)束”按鈕，即結(jié)束程序運(yùn)行。

2.在窗體上建立4個(gè)命令按鈕Commandl、Command2>Command3和Command4。

要求：（1）命令按鈕的Caption屬性分別為“字體變大"、"字體變小”、“加粗”和“標(biāo)準(zhǔn)”。（2）每單擊

Command］按鈕和Command2按鈕一次，字體變大或變小3個(gè)單位。（3）單擊Command3按鈕時(shí)，字體變粗;

單擊Command4按鈕時(shí)，字體又由粗體變?yōu)闃?biāo)準(zhǔn)。（4）4個(gè)按鈕每單擊一次都在窗體上顯示“青春無悔”。（5）

雙擊窗體后可以退出。

答案：

12、

3.在窗體中創(chuàng)建一個(gè)文本框和兩個(gè)命令按鈕Commandl和Command2,當(dāng)單擊Commandl時(shí)，文本框

消失；當(dāng)單擊Command2時(shí)，文本框出現(xiàn)，并在文本框中顯示“我學(xué)會(huì)了創(chuàng)建一個(gè)應(yīng)用程序了！"，要求Font

為楷體和三號(hào)。

第2章VisuaIBasic的語言基礎(chǔ)

蛤自己打分

7.你預(yù)習(xí)了本章內(nèi)宏了嗎？美花時(shí)間分

2,你復(fù)習(xí)了上一堂課內(nèi)參嗎？共花時(shí)間分

3.你作業(yè)做了嗎？

4.作業(yè)是自己做的嗎？

一'判斷題

1.InpulBox函數(shù)的返回值的類型為整型。（）

2.在邏輯運(yùn)算符Not、Or、And中，運(yùn)算優(yōu)先級(jí)有高到低為Not、Or和And。（）

3.語句Forml.PrintTab（10）的作用是在窗體的第11列位置輸出字符"#"。（）

4.dimal,a2asinteger語句表示聲明的變量al和a2都為整型變量。（）

5.使用Dim聲明語句建立一個(gè)變量后，VisualBasic自動(dòng)對(duì)該變量賦初值為0.（）

6.$仃篩8$（5,“丫1$驗(yàn)11^5m”）的值和比（1（“丫15迎11^$遼"，7,5）的值相同。（）

7."A=B=C”是一個(gè)合法的VisualBasic語句。（）

8.VB的Byte類型數(shù)據(jù)的數(shù)值范圍，在-255到255之間。（）

9.執(zhí)行語句丁^^皿"，T是一個(gè)邏輯型變量。（）

l（）.Print_Text是一個(gè)不合法的變量名。（）

二、選卷題：

1.VisualBasic的邏輯類型數(shù)據(jù)占（）字節(jié)內(nèi)存。

A.2B.4C.8D.16

2.下列選項(xiàng)中（）是日期型數(shù)據(jù)。

A.@January10,1997@B.#January10,1997#

「January10』997”D.&January10,1997&

3.下列哪一個(gè)字符串可以作為VisualBasic中的變量名（）。

A.EndB.15efgC.b_12D.X9fj]

4.下列哪一個(gè)是合法的變量名（）。

A.VbredB.“name123”C.TrueD.n

5.整數(shù)Int（Rnd（）*l1）+10的值的范圍是（）。

A.[10,20]BJ0,20]C.[10,10]D.[10,ll]

6.語句丫=X+1代表（）。

A.變量丫等于X+1的值

B.變量丫等于變量X的值，然后再加上1的一個(gè)表達(dá)式

C.將變量丫存入變量X中，再加上1的表達(dá)式

D.將變量丫存入變量X+1中

7.對(duì)于Inputbox函數(shù)，下列說法不正確的是（）。

A.每執(zhí)行一次Inputbox函數(shù)，只能輸入一個(gè)值。

B.Inputbox函數(shù)輸入的是數(shù)值型。

C.Inputbox函數(shù)的提示信息參數(shù)不能缺省。

D.函數(shù)值必須賦與一個(gè)變量

8.要把InputBox的返回值轉(zhuǎn)換為數(shù)值應(yīng)該使用的函數(shù)是()。

A.IntB.AscC.LenD.Vai

9.下列可以將變量A和B的值互換的語句是()o

A.A=B:B=AB.A=A+B:B=A-B:A=A-B

C.A=C:C=B:B=AD.A=(A+B)/2:B=(A-B)/2

10.下列表達(dá)式中，合法的VisualBasic表達(dá)式有：

A.(-b+sqr(b*b+4a*c))/2/aB.cos(a)A2-Atn(a)

C.sqr(Y八3+3*(A*A+6B*B));D.1/(X+1/Y+5A)

11.人=52二8,則(8仄)*1<血+人的結(jié)果是介于()之間的整數(shù)。

A.5?8B.O?5C.3-5D.0-3

12.若要處理一個(gè)值為50000的整數(shù)，應(yīng)采用VB標(biāo)準(zhǔn)數(shù)據(jù)類型—描述更合適。

A、LongB、IntegerC、SingleD^String

13.設(shè)a="MicrosoftVisualBasic"，則以下使變量b的值為“VisualBasic”的語句是。

A、b=Left(a,11)B、b=Mid(a,11,10)-

C、b=Right(a,11)D、b=Mid(a,11,11)

14.設(shè)a=5,b=4,c=3,d=2表達(dá)式3>2*bOra=cAndb<>cOrc>d的值是

A、1B、TrueC、FalseD、2

15.設(shè)在名稱為Myform的窗體上只有一個(gè)名稱為Cl的命令按鈕，下面敘述正確的是—。

A、窗體的單擊事件過程的過程名是Form_Click

B、命令按鈕的單擊事件過程名是Cl_Click

C、命令按鈕的Click事件過程的過程名是Command1.Click

D、以上都是錯(cuò)誤的

三、填空題

1.VisualBasic算術(shù)表達(dá)式a+b/(b+c/(d+e/Sqr(2*a*b)))對(duì)應(yīng)的數(shù)學(xué)表達(dá)

式。

2.產(chǎn)生一個(gè)100—999之間的隨機(jī)整數(shù)的表達(dá)式o

3.數(shù)學(xué)表達(dá)式sin65°+、的VisualBasic算術(shù)表達(dá)式為______________________

x-y

4.表達(dá)式Ucase(Mid("abcdefgh”,2,3))的值是。

5.表達(dá)式18/3-2-4*4mod8的值是。

6.不同數(shù)據(jù)類型中所占字節(jié)數(shù)最小的是。

7.語句Prinl"5*5”的執(zhí)行結(jié)果為。

四、編程題

1.編一個(gè)程序，輸入一個(gè)三位數(shù)據(jù)，在窗體打印輸出其個(gè)位數(shù)，十位數(shù)和百位數(shù)。

(提示，方法1：用算術(shù)運(yùn)算符；或方法2：用Left。、Right。、Mid()函數(shù))

2.編一個(gè)程序，當(dāng)單擊窗體，通過InputBox函數(shù)一個(gè)小寫字母，再利用MsgBox函數(shù)將該字母的大寫

形式輸出。

代碼編寫：

12、

批改人:

始自己打分第3章順序結(jié)構(gòu)程序設(shè)計(jì)

7,你預(yù)習(xí)了本章內(nèi)袞了嗎？美花時(shí)間分

2,你復(fù)習(xí)了上一堂課內(nèi)袞嗎？共花時(shí)間分

3.你作業(yè)做了嗎？

4.作業(yè)是自己做的嗎？

一、程序閱讀

1.下面程序執(zhí)行的結(jié)果是。

PrivateSubcommandl_Click()結(jié)果:

A=3:B=2:C=1

A=B

B=C

C=A

PrintnA=n;A;"B=n;B;nC=n;C

EndSub

2.下面程序執(zhí)行的結(jié)果是。

PrivateSubForm_Click()

A$=“456“：B$=“789”結(jié)果:

C=Vai(A$)+Vai(B$)

PrintC\100

EndSub

二、選擇題

1.假設(shè)變量B是一個(gè)布爾型變量，則下面正確的賦值語句是（）。

A.B=TB.B="True"C.B=#True#D.B=3<4

2.下列程序執(zhí)行的結(jié)果為()。

x=5：y=6：z=7

Print"a(";x+z*y;")"

A.a(47)B.a(72)C.a(5+6*7)D.a(47)

3.以下程序段可以實(shí)現(xiàn)X、Y變量值交換的是()o

A.Y=X：X=YB.Z=X：Y=Z：X=Y

C.Z=X：X=Y：Y=ZD.Z=X：W=Y：Y=Z：X=Y

4.下述程序的運(yùn)行結(jié)果是（）。

A=5

B=-5

C=NOTA=B

PrintC

A.TrueB.5C.0D.無法輸出

6.如果將布爾常量False賦值給一個(gè)整型變量，則整型變量的值為（）。

A.0B.-1C.TrueD.False

7.用X、Y、Z表示三角形的三條邊，條件"三角形任意兩邊之和大于第三邊”的布爾表達(dá)式可以用（)

表示。

A.X+Y>ZAndX+Z>YAndY+Z>X

B.X+Y<ZOrX+Z<YOrY+Z<X

C.Not(X+Y<ZOrX+Z<YOrY+Z<X)

D.X+Y>=ZOrX+Z>=YOrY+Z>=X

8.在窗體上畫一個(gè)文本框，然后編寫如下事件過程：

PrivateSubForm_Click()

x=工nputsBox("請(qǐng)輸入一個(gè)整數(shù)”)

Printx+Textl.Text

EndSub

程序運(yùn)行時(shí)，在文本框中輸入456,然后單擊窗體，在輸入對(duì)話框中輸入123,單擊“確定”按鈕后，在

窗體上顯示的內(nèi)容是()o

A.123B.456123C.579D.123456

三、程序設(shè)計(jì)題

1.輸入一個(gè)圓的半徑，輸出圓的面積。

2.文本框中輸入小時(shí)、分、秒，化成共有多少秒,單擊命令按鈕“計(jì)算“后，在標(biāo)簽框中輸出相對(duì)應(yīng)

的秒數(shù)。界面如下:

批改人:

第4章選擇結(jié)構(gòu)程序設(shè)計(jì)

蛤自己打分

7.你預(yù)習(xí)了本章內(nèi)宏了嗎？美花時(shí)間分

2,你復(fù)習(xí)了上一堂課內(nèi)參嗎？共花時(shí)間分

3.你作業(yè)做了嗎？

4.作業(yè)是自己做的嗎？

一、選擇題

1.下面程序段運(yùn)行后，顯示的結(jié)果是。

DimxAsInteger

IfxThenPrintxElsePrintx+1

A.1B.0C.-1D.顯示出錯(cuò)信息

2.下面程序段求兩個(gè)數(shù)中的大數(shù)，不正確。

A.Max=XB.IfX>YThenMax=XElseMax=Y

IfY>=maxThenMax=Y

C.Max=XD.IfY>=XThenMax=Y

IfY>=XThenMax=YMax=X

3.下列程序段的執(zhí)行結(jié)果是。

X=5

Y=-20

IfNotX>0ThenX=Y-3ElseY=X+3

PrintX-Y;Y-X

A.-33B.5-8C.3-3D.25-25

4.已知變量A、B、C中C最小，則判斷A、B、C可否構(gòu)成三角形的邏輯表達(dá)式為:

A.A>=BAndB>=CAndC>0B.A+C>BAndB+C>AAndC>0

C.(A+B>=COrA-B<=C)AndC>0D.A+B>CAndA-B<CAndC>0

5.下列程序段的執(zhí)行結(jié)果是o

A=75

IfA>60Then

1=1+1

ElseifA>70Then

1=1+2

ElseifA>80Then

1=1+3

ElseifA>90Then

1=1+4

EndIf

Print

A.1=1B.1=3C.1=6D.1=10

6.下列程序段的執(zhí)行結(jié)果為是o

A=1B=0

SelectCaseA

Case1

SelectCaseB

Case0

Print、、**0…

Case1

Print、'**1**〃

EndSelect

Case2

Print''**2**〃

EndSelect

A.**0**B.**]**C.D.0

二、程序閱讀

1.窗體上有一個(gè)命令按鈕，事件代碼如下：

PrivateSubCommandl_Click()結(jié)果：

A="ln

B="2n

A=Vai(A)+Vai(B)

B=Vai("12")

IfA<>BThenPrintA-BElsePrintBA

EndSub

程序執(zhí)行后，單擊命令按鈕，輸出結(jié)果為多少？

2.下段程序執(zhí)行后，設(shè)輸入的數(shù)據(jù)分別為14、3、125、21時(shí)，寫出在標(biāo)簽框Labell中顯示的內(nèi)容。

PrivateSubForm_Click()

DimAAsInteger,WAsInteger

A=Val(Inputbox(“請(qǐng)輸入數(shù)據(jù)”，，，100))結(jié)果：

SelectCaseAMod5

CaseIs<4

W=A+10

CaseIs<2

W=A*2

CaseElse

W=A-10

EndSelect

__________________________________

Labell.Caption=nW=H&Str(W)

EndSub

3.寫出單擊窗體4次，每次輸入分別為1、2、3、4時(shí)窗體上顯示的結(jié)果。

DimsAsInteger

PrivateSubForm_Click()

DimxAsInteger

x=Vai(工nputBox("請(qǐng)輸入一個(gè)正整數(shù)”))

IfxMod2=0Then

S=S*X

Else

S=S+X

EndIf

Me.Print”s="；Str(s)1在當(dāng)前窗體上輸出

EndSub

三'程序填空題

1.下面的程序用于求三個(gè)數(shù)中的最大數(shù)和最小數(shù)。

PrivateSubCommandl_Click()

A=Val(Inputbox(、'A=?〃))

B=Vai(Inputbox(''B=?"))

C=Vai(Inputbox(、'C=?〃))

Max=A

Min=A

IfB>O)ThenMax=B

IfB<(2]ThenMin=B

If(3)ThenMax=C

If(4)ThenMin=C

Print''最大數(shù)為〃；Max

Print''最小數(shù)為〃；Min

EndSub

2.下程序判斷從文本框Textl中輸入的數(shù)據(jù)，如果該數(shù)據(jù)滿足條件：除以3余2,除以5余3,除以7余

4,則輸出；否則將文本框內(nèi)容清空。

PrivateSubCommandl_Click()

X=Val(Textl.Text)

If⑸Then

PrintX

Else

(6)

EndIf

EndSub

四、編程題

1.輸入一公元年號(hào)，判斷是否是閏年。閏年的條件是：年號(hào)能被4整除但不能被100整除，或者能被400

整除。

2.輸入3個(gè)不同的數(shù)，將它們從大到小排序。

3.編程計(jì)算下列分段函數(shù)值：

x~+2x—6,x<0且4w—3

/(x)=vx?Sinx+2。0<x<10且xw2及rw3

Jx+5+log10(x+4),其他

代碼編寫:

1、2、

3、

批改人:

第5章循環(huán)結(jié)構(gòu)程序設(shè)計(jì)

小"口"T.禰預(yù)習(xí)了本章內(nèi)走了嗎？美花時(shí)間分

2,你復(fù)習(xí)了上一堂課內(nèi)裝嗎？美花時(shí)間分

%

3.禰作業(yè)做了嗎？

4,作業(yè)是自己做的嗎？

一、判斷題

1.Do-LoopWhile語句實(shí)現(xiàn)循環(huán)時(shí)，不管條件真假，首先無條件地執(zhí)行一次循環(huán)。

2.For循環(huán)語句正常結(jié)束(即不是通過ExitFor語句或強(qiáng)制中斷)其循環(huán)控制變量的值一定大于“終值”,

并等于“終值”+“步長(zhǎng)”。

3.如果有多重D。循環(huán)嵌套，位于最里層循環(huán)體語句中的ExitD。語句可以退出所有的循環(huán)。

4.不論步長(zhǎng)是正值或負(fù)值，當(dāng)循環(huán)變量的值大于終值時(shí)，結(jié)束循環(huán)。

5.有IF則必有與之對(duì)應(yīng)的EndIF。

二、選擇題

1.循環(huán)結(jié)構(gòu)Fori!=1to10step1.5共執(zhí)行幾次。

(A)6(B)7(C)9(D)10

2.某人設(shè)計(jì)了如下程序來計(jì)算并輸出7!

PrivateSubCommandl_Click()

DimtAsLong,iAsInteger

t=0

Fori=7To2Step-1

t=t*i

Next

Printt

EndSub

執(zhí)行程序時(shí)，發(fā)現(xiàn)結(jié)果是錯(cuò)誤的，下面的修改方案中能夠得到正確結(jié)果的是。

(A)把Fori=7To2Step-1改成Fori-7ToIStep-1

(B)把Fori=7To2Step-1改成Fori=1To7

(C)把t=0改成t=l

(D)把Next改成Nexti

3.下程序段循環(huán)結(jié)構(gòu)執(zhí)行后，輸出i的值是：

(A)25(B)10

(C)11(D)因?yàn)閥的初值不知道，所以不確定

Fori=lto10step2

y=y+i

NextI

Printi;

4.以下程序循環(huán)的執(zhí)行次數(shù)是。

3=0

Dowhilea<=10

a=a+2

loop

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

5.下列程序段的執(zhí)行結(jié)果為：

Do

1=1+1

A=A+2

LoopuntilI>=7

PrintI

Print”=〃；A

(A)1=4(B)1=7

A=5A=13

(C)1=8(D)1=7

A=7A=ll

6.設(shè)有以下循環(huán)結(jié)構(gòu)

Do

循環(huán)體

LoopWhile＜條件,

則以下敘述中錯(cuò)誤的是

A、若“條件”是一個(gè)為0的常數(shù)，則一次也不執(zhí)行循環(huán)體

B、”條件”可以是關(guān)系表達(dá)式、邏輯表達(dá)式或常數(shù)

C、循環(huán)體中可以使用ExitDo語句

D、如果“條件"總是為True,則不停地執(zhí)行循環(huán)體

三、程序閱讀題

1.程序運(yùn)行時(shí)單擊Commandl后，輸入12345678,寫出窗體上的輸出結(jié)果。

PrivateSubCommandl_Click()

DimxAsLong,yAsString

x=InputBox(A一個(gè)數(shù)")

DoWhilex<>0

y=y&xMod10

y=xMod10&y

x=x\100

Printy

Loop

EndSub

2.在窗體上畫兩個(gè)文本框（其Name屬性分別為Textl和Text2）和一個(gè)命令按鈕（其Name屬性為Command1）,

然后編寫如下事件：

PrivateSubCommandlClick()

x=0

Dowhilex<10

x=(x+l)*(x+2)

n=n+l

Loop

Textl.text=str(n)

Text2.text=str(x)

EndSub

程序運(yùn)行后，單擊命令按鈕，在兩個(gè)文本中顯示的值分別為

3.閱讀以下程序：

PrivateSubCommandl_Click()

DimsumAsDouble,xAsDouble

sum=0

n=0

Fori=1To5

x=n/i

n=n+1

sum=sum+x

Next

EndSub

該程序通過For循環(huán)計(jì)算一個(gè)表達(dá)式的值，該表達(dá)式為：

A、1+1/2+2/3+3/4+4/5B、1/2+1/3+1/4+1/5

C、1+1/2+1/3+1/4+1/5D、1/2+2/3+3/4+4/5

4.Dimmasinteger

PrivateSubCommandl_Click()

結(jié)果:

DimaAsInteger,iAsInteger,fAsInteger

a=InputBox(Ha=n)

f=1:i=2

Whilei<=a/2

IfaModi=0Thenf=f+i

i=i+1

m=m+1

Wend

Forml.Cis

Printf,m

EndSub

請(qǐng)寫出第1次單擊Commandl輸入7后，窗體上的顯示結(jié)果為？第2次單擊Command1輸入8后，窗體上的

顯示結(jié)果為：

5、PrivateSubCommandl_Click()

DimxAsLong,iAsInteger

x=60

i二2

DoWhilex>1

IfxModi=0ThenPrinti;:x=x\iElsei=i+1

Loop

EndSub

執(zhí)行下列事件過程時(shí)，窗體上的顯示結(jié)果依次為2、、、—

四、程序填空題

1.由輸入對(duì)話框輸入n（設(shè)n為大于零且小于30的自然數(shù)）,計(jì)算下列表達(dá)式的值，并在標(biāo)簽框Labell上顯示。

1

H----------

1x22x33x4(〃+1)

【程序】

PrivateSubForm_Click()

DimnAsInteger,sumAsDouble,kAsInteger

n=Vai(InputBox("n=","請(qǐng)輸入自然數(shù)n(n>0且n<30)”))

Do(1)

n=Vai(InputBox(,,n=,\"請(qǐng)重輸”))

Loop

sum=0

⑵

Do

k=k+1

sum=⑶

LoopUntilk>=n

Labell.Caption="sum=n+Str(sum)

EndSub

2.下面的程序是在一個(gè)字符串變量中查找“at"，并用消息框給出查找結(jié)果的報(bào)告：沒有找到或找到的個(gè)

數(shù)，程序如下：

PrivateSubForm_Click()

DimstrlAsString,在字符串strl中查找"at”

DimlengthAsInteger,字符串長(zhǎng)度

DimsumAsInteger,查到的個(gè)數(shù)

DimiAsInteger

strl=工nputBox("請(qǐng)輸入一個(gè)字符串”)

length=(4)

i=1

sum=0

DoWhilei<=(5)

If(6)=nat"Then

sum=sum+1

EndIf

i=i+1

Loop

If(7)Then

MsgBox”沒有找到！”

Else

MsgBox”找至lj了”&Str(sum)&”個(gè)“

EndIf

EndSub

3.下面程序的功能是：計(jì)算f=l-1/(2*3)+1/(3*4)-1/(4*5)+.....+1/(19*20)?

PrivateSubForm_Click()

DimfAsSingle,iAsInteger,signAsInteger

⑻

f=1

(9)

(io)一

f=f+sign/(i*(i+1))

Nexti

Printnf=n;f

EndSub

4.本程序用于處理文本框Textl.Text中的內(nèi)容，假設(shè)文本框中有偶數(shù)個(gè)字符。要求：將文本框中的內(nèi)

容從頭尾至中間依次各取字符，組成一個(gè)新的字符串Slr2,并在窗體上輸出。

例如：

Textl.Text="12345678",則Str2="18273645"

PrivateSubForm_Click()

DimStrlAsString,Str2AsString

Strl=Textl.Text

Str2=

m=0

Do___________(11)___________

Str2=Str2+(12)

Str2=Str2+(13)

m=m+1

Loop

Forml.PrintStr2

EndSub

5.閱讀下列程序說明和程序，在每小題提供的若干可選答案中，挑選一個(gè)正確答案。

【程序說明】單擊Commandl后用輸入對(duì)話框輸入1個(gè)整數(shù)，單擊Command2后在Textl中顯示其反序的

數(shù)(高位變低位)。要求在文本框中不可輸入任何字符。

例如：輸入123顯示321,輸入-567顯示-765。

(14J

PrivateSubForm_Load()

(15)

EndSub

PrivateSubCommandl_Click()

Textl.Text=""：n=InputBox(Hn=n)

EndSub

PrivateSubCommand2_Click()

Ifn<0Thenn=-n:Textl.Text="一

Whilen<>0

Textl.Text=(16)

(17)

Wend

EndSub

【供選擇的答案】

(14)A、DimnAsByteB、DimnAsInteger

C、DimnAsStringD、PublicnAsByte

(15)A、Textl.Locked=TrueB、Textl.Locked=False

C、Textl.Visible=TrueD、Textl.Visible=False

(16)A、n/10&Textl.TextB、nMod10&Textl.Text

C、Textl.Text&n/10D、Textl.Text&nMod10

(17)A>n=n\10n=n/10

C>n=nMod10D>n=n-10

五、上機(jī)調(diào)試題：程序設(shè)計(jì)

1.計(jì)算下式的和，變量x與n的數(shù)值用輸入對(duì)話框輸入。

Xx

S=一

2!3!4!5+1)!

2.“水仙花數(shù)”是指一個(gè)3位數(shù)，其各位數(shù)的立方和等于該數(shù)，如：153=17+5八3+3-3。編寫程序，

輸出所有的“水仙花數(shù)”。

3.用近似公式求自然對(duì)數(shù)的底數(shù)e的值，直到最后1項(xiàng)小于10-8為止。

e=i+_L+_L+_L+…+_L

1!2!3!n\

4.隨機(jī)產(chǎn)生100個(gè)10-1000內(nèi)的整數(shù)，要求統(tǒng)計(jì)其中素?cái)?shù)的個(gè)數(shù)，并且將其中的素?cái)?shù)按照每行5個(gè)進(jìn)行

輸出。

5.打印由數(shù)字組成的如下所示金字塔圖案。

1從第20列開始輸出1

222

33333

4444444

555555555

6666666

77777

888

9

代碼編寫：

1、2、

34、

批改人:

第6章數(shù)組

.禰預(yù)習(xí)了本章內(nèi)走了嗎？共花時(shí)間分

2,你復(fù)習(xí)了上一堂課內(nèi)參嗎？美花時(shí)間分

3.禰作業(yè)做了嗎？

4,作業(yè)是自己做的嗎？

一、判斷題

1.數(shù)組中所有元素的數(shù)據(jù)類型不一定相同。

2.可以在程序中使用Redim語句來改變動(dòng)態(tài)數(shù)組的大小、維數(shù)和類型。

3.數(shù)組的下界一定是0。

4.定義數(shù)組時(shí)，其下界只能為正整數(shù)。

5.可以在通用的聲明部分使用OptionBase-1語句把數(shù)組下標(biāo)下界的默認(rèn)值設(shè)置為-1。

6.在Vb中，用Dim定義數(shù)組時(shí)，數(shù)組元素將自動(dòng)賦初值為0。

二、選擇題

1.定義數(shù)組A(lTo5,5)后，下列哪一個(gè)數(shù)組元素不存在：。

(A)A(l,l)(B)A(l,0)(C)A(0,l)(D)(5,5)

2.在過程中定義DimA(1To10,3)AsSingle，則數(shù)組占用字節(jié)的空間。

(A)132(B)80(C)160(D)120

3.下列關(guān)于數(shù)組的說法正確的是o

(A)在VB中，一個(gè)數(shù)組中所包含的元素只能是相同類型的數(shù)據(jù)。

(B)在VB中，數(shù)組只能在模塊中定義，不能在過程中定義模塊。

(C)同普通變量一樣，數(shù)組也可以不定義，先使用。

(D)在定義數(shù)組時(shí)，數(shù)組的每一維元素的個(gè)數(shù)必須是常數(shù)，不能是變量或表達(dá)式。

4.已知數(shù)組b中的5個(gè)元素分別是1,3,5,7,9,現(xiàn)將數(shù)組b中的5個(gè)數(shù)逆序存放(即排列為9,7,5,3,

1)。為實(shí)現(xiàn)此功能，正確的程序段應(yīng)該是：。

A.Fori=0To5-1\2:temp=b(i):b(i)=b(5-i-1):b(5-i-1)=temp:Nexti

B.Fori=0To5:temp=b(i):b(i)=b(5-i-1):b(5-i-1)=temp:Nexti

C.Fori=0To5\2:temp=b(i):b(i)=b(5-i-1):b(5-i-1)=temp:Nexti

D.Fori=1To5\2:temp=b(i):b(i)=b(5-i-1):b(5-i-1)=temp:Nexti

三、程序閱讀題

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

PrivateSubCornmandl_Click()

Dima(1To4)AsInteger,iAsInteger,jAsInteger

DimsAsLong

Fori=1To4

a(i)=i

Nexti

j=1

Fori=4To1Step-1

s=s+a(i)*j

j=3*10

Nexti

Prints

EndSub

運(yùn)行上面的程序，單擊命令按鈕，其輸出結(jié)果是

2.請(qǐng)寫出單擊窗體后，窗體上的顯示結(jié)果。

OptionBase1

PrivateSubForm_Click()

Dima(4,4)AsInteger,iAsInteger

DimjAsInteger

Fori=1