高級語言程序設計（VB）期末試題集及答案

VB作業(yè)集

2017-2018第一學期

信息工程學院

公共計算機教學部

第1章VisualBasic6.0概述

蛤自己打分

7你預習了本幸內走了嗎？英花時向分

2,禰復習了上一堂課內參嗎？共花時間分

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

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

一、判斷題

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

2.控件的屬性值不可以在程序運行時動態(tài)地修改。（）

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

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

5.面向對象的程序設計是一種以對象為基礎，由事件驅動對象執(zhí)行的設計方法。（）

6.為了使一個控件在運行時不可見，應該將該控件的Enabled屬性設置為False。（）

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

窗體或模塊文件。（）

8.事件是由VisualBasic預先定義的對象能夠識別的動作。（）

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

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

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

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

因為系統(tǒng)將同時保存其他文件。（）

13.對象的Name屬性可以在運行期間改變。（）

14.窗體的Enabled屬性值為False時，該窗體上的按鈕、文本框等控件就不會對用戶的操作做出反應。

二、選擇題

1.要使某個控件不可操作，要對______屬性進行設置。

A.EnabledB.VisibleC.CaptionD.Name

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

A.屬性B.方法C.事件D.函數

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

A.ClickB.LoadC.DblClickD.Unload

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

A.F2B.F5C.Alt+F3D.F8

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

A.TopB.LeftC.,WidthD.Right

6.啟動￥B后，就意味著要建立一個新的o

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

7.在VisualBasic中，稱對象的數據為。

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

8.下列選項中不屬于屬性的是。

A.NameB.CaptionC.ShowD.Text

9.將VisualBasic編制的程序保存在磁盤上，至少會產生何種文件。

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

10.下列關于屬性設置的敘述錯誤的是。

A.一個控件具有什么屬性是VB預先設計好的，用戶不能改變它

B.一個控件具有什么屬性值是VB預先設計好的，用戶不能改變它

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

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

11.下列選項中不屬于事件的是0

A.DblclickB.LoadC.ShowD.KeyUp

12.在窗體上按下鼠標左鍵時產生的事件是?

A.KeyDownB.MouseUpC.MouseMoveD.MouseDown

13.有如下程序代碼：

Forml.Caption=MVisualBasic實例”

則Forml、Caption和“VisualBasic實例"分別代表。

A、對象、值、屬性B、對象、方法、屬性

C、對象、屬性、值D、屬性、對象、值

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

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

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

三、程序設計題

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

號字出現“XXX：歡迎你！"，如果單擊“結束”按鈕，即結束程序運行。

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

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

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

單擊Command4按鈕時，字體又由粗體變?yōu)闃藴省＃?）4個按鈕每單擊一次都在窗體上顯示“青春無悔”。（5）

雙擊窗體后可以退出。

答案：

12、

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

消失；當單擊Command2時，文本框出現，并在文本框中顯示“我學會了創(chuàng)建一個應用程序了！"，要求Font

為楷體和三號。

第2章VisuaIBasic的語言基礎

蛤自己打分

7.你預習了本章內宏了嗎？美花時間分

2,你復習了上一堂課內參嗎？共花時間分

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

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

一'判斷題

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

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

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

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

5.使用Dim聲明語句建立一個變量后，VisualBasic自動對該變量賦初值為0.（）

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

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

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

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

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

二、選卷題：

1.VisualBasic的邏輯類型數據占（）字節(jié)內存。

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

2.下列選項中（）是日期型數據。

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

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

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

A.EndB.15efgC.b_12D.X9fj]

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

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

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

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

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

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

B.變量丫等于變量X的值，然后再加上1的一個表達式

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

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

7.對于Inputbox函數，下列說法不正確的是（）。

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

B.Inputbox函數輸入的是數值型。

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

D.函數值必須賦與一個變量

8.要把InputBox的返回值轉換為數值應該使用的函數是()。

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.下列表達式中，合法的VisualBasic表達式有：

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<血+人的結果是介于()之間的整數。

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

12.若要處理一個值為50000的整數，應采用VB標準數據類型—描述更合適。

A、LongB、IntegerC、SingleD^String

13.設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.設a=5,b=4,c=3,d=2表達式3>2*bOra=cAndb<>cOrc>d的值是

A、1B、TrueC、FalseD、2

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

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

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

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

D、以上都是錯誤的

三、填空題

1.VisualBasic算術表達式a+b/(b+c/(d+e/Sqr(2*a*b)))對應的數學表達

式。

2.產生一個100—999之間的隨機整數的表達式o

3.數學表達式sin65°+、的VisualBasic算術表達式為______________________

x-y

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

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

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

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

四、編程題

1.編一個程序，輸入一個三位數據，在窗體打印輸出其個位數，十位數和百位數。

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

2.編一個程序，當單擊窗體，通過InputBox函數一個小寫字母，再利用MsgBox函數將該字母的大寫

形式輸出。

代碼編寫：

12、

批改人:

始自己打分第3章順序結構程序設計

7,你預習了本章內袞了嗎？美花時間分

2,你復習了上一堂課內袞嗎？共花時間分

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

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

一、程序閱讀

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

PrivateSubcommandl_Click()結果:

A=3:B=2:C=1

A=B

B=C

C=A

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

EndSub

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

PrivateSubForm_Click()

A$=“456“：B$=“789”結果:

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

PrintC\100

EndSub

二、選擇題

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

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

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

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.以下程序段可以實現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.下述程序的運行結果是（）。

A=5

B=-5

C=NOTA=B

PrintC

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

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

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

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

表示。

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.在窗體上畫一個文本框，然后編寫如下事件過程：

PrivateSubForm_Click()

x=工nputsBox("請輸入一個整數”)

Printx+Textl.Text

EndSub

程序運行時，在文本框中輸入456,然后單擊窗體，在輸入對話框中輸入123,單擊“確定”按鈕后，在

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

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

三、程序設計題

1.輸入一個圓的半徑，輸出圓的面積。

2.文本框中輸入小時、分、秒，化成共有多少秒,單擊命令按鈕“計算“后，在標簽框中輸出相對應

的秒數。界面如下:

批改人:

第4章選擇結構程序設計

蛤自己打分

7.你預習了本章內宏了嗎？美花時間分

2,你復習了上一堂課內參嗎？共花時間分

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

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

一、選擇題

1.下面程序段運行后，顯示的結果是。

DimxAsInteger

IfxThenPrintxElsePrintx+1

A.1B.0C.-1D.顯示出錯信息

2.下面程序段求兩個數中的大數，不正確。

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

IfY>=maxThenMax=Y

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

IfY>=XThenMax=YMax=X

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

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可否構成三角形的邏輯表達式為:

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í)行結果是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í)行結果為是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.窗體上有一個命令按鈕，事件代碼如下：

PrivateSubCommandl_Click()結果：

A="ln

B="2n

A=Vai(A)+Vai(B)

B=Vai("12")

IfA<>BThenPrintA-BElsePrintBA

EndSub

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

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

PrivateSubForm_Click()

DimAAsInteger,WAsInteger

A=Val(Inputbox(“請輸入數據”，，，100))結果：

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時窗體上顯示的結果。

DimsAsInteger

PrivateSubForm_Click()

DimxAsInteger

x=Vai(工nputBox("請輸入一個正整數”))

IfxMod2=0Then

S=S*X

Else

S=S+X

EndIf

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

EndSub

三'程序填空題

1.下面的程序用于求三個數中的最大數和最小數。

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''最大數為〃；Max

Print''最小數為〃；Min

EndSub

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

4,則輸出；否則將文本框內容清空。

PrivateSubCommandl_Click()

X=Val(Textl.Text)

If⑸Then

PrintX

Else

(6)

EndIf

EndSub

四、編程題

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

整除。

2.輸入3個不同的數，將它們從大到小排序。

3.編程計算下列分段函數值：

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)結構程序設計

小"口"T.禰預習了本章內走了嗎？美花時間分

2,你復習了上一堂課內裝嗎？美花時間分

%

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

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

一、判斷題

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

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

并等于“終值”+“步長”。

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

4.不論步長是正值或負值，當循環(huán)變量的值大于終值時，結束循環(huán)。

5.有IF則必有與之對應的EndIF。

二、選擇題

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

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

2.某人設計了如下程序來計算并輸出7!

PrivateSubCommandl_Click()

DimtAsLong,iAsInteger

t=0

Fori=7To2Step-1

t=t*i

Next

Printt

EndSub

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

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

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

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

(D)把Next改成Nexti

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

(A)25(B)10

(C)11(D)因為y的初值不知道，所以不確定

Fori=lto10step2

y=y+i

NextI

Printi;

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

3=0

Dowhilea<=10

a=a+2

loop

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

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

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.設有以下循環(huán)結構

Do

循環(huán)體

LoopWhile＜條件,

則以下敘述中錯誤的是

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

B、”條件”可以是關系表達式、邏輯表達式或常數

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

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

三、程序閱讀題

1.程序運行時單擊Commandl后，輸入12345678,寫出窗體上的輸出結果。

PrivateSubCommandl_Click()

DimxAsLong,yAsString

x=InputBox(A一個數")

DoWhilex<>0

y=y&xMod10

y=xMod10&y

x=x\100

Printy

Loop

EndSub

2.在窗體上畫兩個文本框（其Name屬性分別為Textl和Text2）和一個命令按鈕（其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

程序運行后，單擊命令按鈕，在兩個文本中顯示的值分別為

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)計算一個表達式的值，該表達式為：

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()

結果:

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

請寫出第1次單擊Commandl輸入7后，窗體上的顯示結果為？第2次單擊Command1輸入8后，窗體上的

顯示結果為：

5、PrivateSubCommandl_Click()

DimxAsLong,iAsInteger

x=60

i二2

DoWhilex>1

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

Loop

EndSub

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

四、程序填空題

1.由輸入對話框輸入n（設n為大于零且小于30的自然數）,計算下列表達式的值，并在標簽框Labell上顯示。

1

H----------

1x22x33x4(〃+1)

【程序】

PrivateSubForm_Click()

DimnAsInteger,sumAsDouble,kAsInteger

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

Do(1)

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

Loop

sum=0

⑵

Do

k=k+1

sum=⑶

LoopUntilk>=n

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

EndSub

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

數，程序如下：

PrivateSubForm_Click()

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

DimlengthAsInteger,字符串長度

DimsumAsInteger,查到的個數

DimiAsInteger

strl=工nputBox("請輸入一個字符串”)

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)&”個“

EndIf

EndSub

3.下面程序的功能是：計算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中的內容，假設文本框中有偶數個字符。要求：將文本框中的內

容從頭尾至中間依次各取字符，組成一個新的字符串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.閱讀下列程序說明和程序，在每小題提供的若干可選答案中，挑選一個正確答案。

【程序說明】單擊Commandl后用輸入對話框輸入1個整數，單擊Command2后在Textl中顯示其反序的

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

例如：輸入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

五、上機調試題：程序設計

1.計算下式的和，變量x與n的數值用輸入對話框輸入。

Xx

S=一

2!3!4!5+1)!

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

輸出所有的“水仙花數”。

3.用近似公式求自然對數的底數e的值，直到最后1項小于10-8為止。

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

1!2!3!n\

4.隨機產生100個10-1000內的整數，要求統(tǒng)計其中素數的個數，并且將其中的素數按照每行5個進行

輸出。

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

1從第20列開始輸出1

222

33333

4444444

555555555

6666666

77777

888

9

代碼編寫：

1、2、

34、

批改人:

第6章數組

.禰預習了本章內走了嗎？共花時間分

2,你復習了上一堂課內參嗎？美花時間分

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

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

一、判斷題

1.數組中所有元素的數據類型不一定相同。

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

3.數組的下界一定是0。

4.定義數組時，其下界只能為正整數。

5.可以在通用的聲明部分使用OptionBase-1語句把數組下標下界的默認值設置為-1。

6.在Vb中，用Dim定義數組時，數組元素將自動賦初值為0。

二、選擇題

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

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

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

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

3.下列關于數組的說法正確的是o

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

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

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

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

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

1)。為實現此功能，正確的程序段應該是：。

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.在窗體上畫一個命令按鈕，然后編寫如下事件過程：

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

運行上面的程序，單擊命令按鈕，其輸出結果是

2.請寫出單擊窗體后，窗體上的顯示結果。

OptionBase1

PrivateSubForm_Click()

Dima(4,4)AsInteger,iAsInteger

DimjAsInteger

Fori=1