Vb專題習題

一、選擇題

1.將數(shù)學表達式J二一4"|寫成visualBasic表達式，正確的是()

(A)Sqr(abs(b*b-4ac))(B)Sqr(abs[b*2-4*a*c])

(C)Sqr(abs(b*b-4*<i*c))(D)Sqr[abs(b*b-4*a*c)]

2.在VisualBasic中，若要將窗體中某個命令按鈕設(shè)置成無效狀態(tài)，應(yīng)對該按鈕的

()屬性值進行修改，

(A)Value(B)Visible(C)Enabled(D)Caption

3.執(zhí)行如下VisualBasic程序段時，出現(xiàn)了如下圖所示的錯誤：

PrivateSubCommandl_Click()

DimaAsInteger,bAsInteger

a=5:b=8

b=a+b

label1.Caption=Str(b)

EndSub

引發(fā)此錯誤的語句可能為()

(A)DimaAsInteger,bAsInteger

(B)a=5:b=8

(C)b=a+b

(D)label1.Cciption=Str(b)

4.已知a=5,b=9,c=ll,則下列VisualBasic表達式的值為False的是()

(A)a>bAnda>c(B)a<bOra>c

(C)a<b+c(D)a>c-b

5.有下列VisualBasic程序段：

某同學正編寫一個判斷兩數(shù)大小的程序，其窗體和代碼窗口如下圖所示：

用工程1-Forml(Code)|o|回OForml

Commandl▼[[Click

PrivateSubCommandl_C1xck0

DimaAsInteger,bAsInteger

a=Vai(Textl.Text)

b=Vai(Textl.Text]

Ifa=bThen

Print"兩數(shù)相同"

Else

Ifa>bThen

Printa

Else

Printb

EndIf

EndSub

根據(jù)代碼窗口中的程序，要在程序運行時判斷兩數(shù)的大小，窗體上必須增加的對象是()

(A)標簽Textl

(B)文本框Text2

(C)命令按鈕Command1

(D)文本框Print

PrivateSubCommandl_Click()

DimiAsInteger：nAsInteger

n=0

Fori=1To100

IfThenn=n+1

Nexti

Texxl.Texr="100內(nèi)能被3整數(shù)的數(shù)有“-Su(n)十“個“

EndSub

若程序要實現(xiàn)“求10()內(nèi)能被3整數(shù)的自然數(shù)個數(shù)”的功能，則方框中正確的語句是()

(A)i/3=0

(B)imod3=0

(C)i\3=0

(D)int(i/3)=0

6.有如下VisualBasic程序段：

PrivateSubCommandl_Click()

DimaAsInteger

a=Int(5*Rnd+1)*Int(5*Rnd-1)

Printa

EndSub

執(zhí)行程序后，a的值范圍是()

(A)[0,15](B)[-1,15](C)[-4,15](D)[-5,15]

7.在VisualBasic中，表達式3-2Mod14\2〃3的值是()

(A)1(B)0(C)2(D)3

8.某同學正編寫一個判斷兩數(shù)大小的程序，其窗體和代碼窗口如下圖所示:

工程1-Forml(Code)|o||E||^|

Comnandl|Click

PrivateSubCommandl_C1ick()-

DimaAsInteger,bAsInteger—

A=Vai(TaxtlTaxt)

b=VaiCText.1.Text)

Ifa=bThen

Print"函數(shù)相同"

Else

Ifa>bThen

Printa

Else

Printb

EndIf

EndSub

圣業(yè)

根據(jù)代碼窗口中的程序，要在程序運行時判斷兩數(shù)的大小，窗體上必須增加的對象是

)

(A)標簽Textl

(B)文本框Text2

(C)命令按鈕Command1

(I))文本框Print

9.下列VisualBas遼程序段中，能實現(xiàn)輸出變量a、b、c三個數(shù)中最大數(shù)的是()

(A)(B)

Ifa<bThenIfa>bThen

a=ba=b

Elselfa<cThenElselfa>cThen

a=ca=c

EndIfEndIf

PrintaPrinta

(C)(D)

Ifa<bThenIfa>bThen

a=ba=b

EndIfEndIf

Ifa<cThenIfa>cThen

a=ca=c

EndIfEndIf

PrintaPrinta

10、有如下VisualBasic程序段:

15.已知字符A?Z的ASCII碼值分別對應(yīng)65?90,小明編寫了一個在標簽Label1上

顯示26個英文大寫字母-ABCDE……XYZ”的VB程序。部分程序如下：

"〃

a=

Fori=65To90

Nexti

Label1.Caption=a

方框中正確的語句是O

A.ci=a+Str(i)B.a=a+Chr(i)C.a=a+Int(i)D.a=a+ASC(i)

16.a=a+b

b=a-b

a=a-b

功能相同的程序段是O

A.a=b

b=a

B.a=a+b

a=a-b

b=a-b

C.t=a

a=b

b=t

D.IFa>bTHEN

a=b

ELSE

b=a

ENDIF

17.在VisualBasic中，表達式Abs(-3.6)*Sqr(lOO)的值是()

A.36

B.360

C.-36

D.-360

18.某同學正編寫一個判斷酒駕行為的VisualBasic程序，其窗體和代碼窗I」如下圖所示。

工程1-For*l(Code)口回國

根據(jù)代碼窗口中的程序，要在程序運行時獲取輸入的x值，窗體上必須增加的對象是()

A.標簽TexllB.標簽Label2C.文本框TexllD.文本框Labe12

19.某VisualBasic程序如下：

PrivateSubCommand1_C1ick()

DimiAsInteger,sumAsInteger

sum=0

Fori=10To2Step-2

sum=sum+i

Nexti

tcxtl.Text=Str(sum)

EndSub

運行程序，單擊命令按鈕Conmiandl后彈出如圖所示的出錯信息提示，此時程序正執(zhí)行

的語句是()

MicrosoftVisualBasic

實時錯誤’424,:

要求對象

_________|結(jié)束四)||麻式8)|「助00|

(A)sum=0

(B)Fori=10to2step-2

(C)Sum=sum+i

(D)Textl.text=str(sum)

20.有如下VisualBasic程序段：

s=0

Fori=lTo5

s=s+i

Nexti

該程序運行后，i的值為()

(A)1

(B)5

(C)6

(D)15

21.在VisualBasic中,某對象的屬性窗口如圖所示:

該對象名是()

(A)ConimandButton

(B)Command1

(C)Command」

(D)Appearance

22.有如下Visualbasic程序段：

j=10

Fori=1To9

Ifa(i)>a(j)Thenj=i

Nexti

該程序運行后，變量a(j)中存儲的是

(A)a(l)至a(10)中的最大值

(B)a(l)至a)0)中的最小值

(C)a(D至a(10)的累加值

(D)從1計數(shù)至9

23.某VisualBasic程序的一個事件過程如下：

PrivateSubCommandlClickO

DimrAsSingle

DimpiAsDouble

r=100

pi=3.14

Label1.Caption="圓面積為:“+Vai(pi*r*r)

EndSub

運行程序，單擊命令按鈕Commandl后彈出如圖所示的出錯信息提示，引起該錯誤的語

句因是()

A.DimrAsInteger

B.DimpiAsDouble

C.Pi=3.14

D.Label1.Caption="圓面積為:"+Vai(pi*r*r)

24.有如下VisualBasic程序段:

s=0

Fori=1To10Step4

s=s+i

Nexti

該程序運行后，變量S的值是()

(A)0(B)1(C)5(D)15

25.卜列VisualBasic表達式的值等于表的是()

(A)Mid(“123456”,5,3)

(B)Len("55"+1)

(C)Sqr(56)

(D)Abs(-55)+1

26.

【例4】下列能計算Sum=l+2/3+35+……+50/99的VisualBasic程序段是

(A)Sum=l(B)Sum=0

Fori=lTo49Fori=lTo99

Sum=Sum+i/(2*i-1)Sum=i/(2*i—1)

NextiNexti

(C)Sum=0(D)Sum=0

i=li=l

DoWhilei<=50DoWhilei<=50

Sum=Sum+i/(2*i—1)Sum=Sum+i/(2*i—1)

i=i+lLoop

Loop

27.

【例2】某算法的自然語言描述與流程圖表示分別如下:

圖2-1-10

則流程圖2-1-10中空白處理框①和②處應(yīng)填入的是

(A)①y*-x2-l(B)(Dy-X,-1

②x<-2x-l②y2x—1

(C)(Dy-2x-l(D)①x*-x2-l

②y*-x2-l②y—2x—1

28.小金編寫了一個統(tǒng)計隨機數(shù)分布的VB程序，部分程序如下所示，在調(diào)試程序的時

候出現(xiàn)如右圖所示的錯誤信息：

n=0

MicrosoftVisualBasic

m=0

編譯錯誤:

Fori=1To100

△Next沒有For

IfRnd>0.5Thon

n=n+1確定幫助

Else

m=m+1

Nexti

小金仔細分析該程序段后，發(fā)現(xiàn)其中缺少了()

A.ForB.NextC.EndIfD.If

29.有如下VB程序:

PrivateSubCommand1_C1ick()

DimaAsInteger,bAsInteger,cAsInteger

a=Vai(text1.Text)

b=Vai(text2.Text)

c=(a+b+Abs(a-b))\3

Text3.Text=Str(c)

EnclSub

運行該程序，分別在文本框Textl、Text2中輸入5、9,單擊命令按鈕Commandl后，

文本框Text3中顯示的內(nèi)容是()

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

30.如右圖所示的VB程序中，輸入以下程序代碼，運行后單擊命令按鈕Command］，出

現(xiàn)錯誤的提示圖是：

PrivateSubCommand1Click()

Dima(lTo4)AsInteger

DimiAsInteger

a(l)=1

Fori=2To4

a(i)=2*a(i-1)+1

Nexti

Listl.AdditemStr(a(i))

EndSub

MicrosoftVisualBasic

A.B.

?編曲齦

缺少EndSub

就幫助I

31.若x表示能被3整除的正整數(shù)，則下面邏輯表達式的值一定為真的是：（）

A.Int（x/3）=0B.3Modx=0

C.xMod3=0I).x\3=0

32.、為使下面左右框內(nèi)的VB程序段實現(xiàn)相同的功能，則左框內(nèi)劃線處填寫的代碼應(yīng)

該是()。

s=O:t=°

s=0

DoWhilet<=6

Fort=lTo6Step2

s=s+t

s=s+t

Nextt

Loop

A.A.t=2B.B.t=6

C.t=t+lD.D.t=t+2

33.VB表達式S=Int(Rnd()*1000+9000),則S的取值范圍是()

A{S|9000<S<1000QSe/?}b{S|9000<S<10000,SGZ}

R{S|9000<S<10000,SG/?}n{S|9000<S<10000,5eZ}

34.下表記錄了6個數(shù)據(jù)的排序過程。分析表中數(shù)據(jù)可知，該排序采用的算法與排序方

式分別為（）

原始數(shù)655759444569

第1遍446557594569

第2遍444565575969

第3遍444557655969

??????????????????

A.冒泡排序，升序B.選擇排序，升序

C.冒泡排序，降序D.選擇排序，降序

35.階乘是基斯頓?卡曼于1808年發(fā)明的運算符號。正整數(shù)n的階乘為n!=1X2X3…

Xn。小王編寫了如下VB程序用來求S=l!+2!+3!+…+10!。

Functionfac(nAsInteger)AsLong

fac=1

Fori=1Ton

fac=fac*i

Nexti

EndFunction

PrivateSubCommandl_Click()

DimsAsLong,jAsInteger

Forj=1To10

Nextj

Tcxtl.Text=Str(s)

EndSub

方框中的正確語句是：

A.s=s+fac(j)B.s=fac(j)

C.s=s+i*fac(i)D.s=s+fac(i)

36.下列邏輯表達式中，值為False的是()

A.Asc("A")<Asc("a")B.Int(Rnd*49)<49

C.3+4<=7and5+6>9D.”ihirly”>

37.有100個大小形狀一樣的透明玻璃球，其中有1個玻璃球的重量輕于其他99個玻

璃球，小明想利用一臺無祛碼的天平，運用合理的算法保證一定能找出這顆輕玻璃球的最少

的次數(shù)為：

A.100B.10C.8D.6

38.下列VB程序中，f是一個遞歸函數(shù)：

PrivateSubCommandl_Click()

DimyAsInteger

y=Vai(Textl.Text)

Label1.Caption=Str(f(y))

EndSub

Functionf(nAsInteger)AsInteger

If(n=1)Or(n=2)Then

f=1

Else

f=f(n-1)+f(n-2)

EndIf

EnclFunction

程序運行時，在文本框中輸入8,單擊命令按鈕Comnandl后，Label1中顯示的內(nèi)容是:

A.5B.8C.13D.21

39.用選擇排序?qū)⑵邆€數(shù)“2022,2017,2018,2014,2021,2012,2015”從小到大進

行排序，則第二輪交換數(shù)據(jù)后的順序是（）

A.2022,2021,2018,2017,2014,2012,2015

B.2012,2014,2018,2017,2021,2022,2015

C.2012,2017,2018,2014,2021,2022,2015

D.2022,2021,2018,2014,2017,2012,2015

40.某高校學籍管理系統(tǒng)軟件有2萬個學生的電子當案（已按學籍號排序），假設(shè)從中

取出一條記錄并與待查項進行比較所花時間為8亳秒,則用對分法在該系統(tǒng)中查找任意一位

學生檔案最多花費的時間約為（）

A.16萬毫秒B.8萬亳秒C.10亳秒D.120亳秒

41.已知tempi=“12"，temp2=3,則VisualBasic表達式templ+temp2的值為（B）

A.“15"B.15C.“123"I）.123

B

二、程序填空題（學考部分）

1.編寫一個具有下列功能的VB程序：單擊“分類”按鈕CommandL隨機產(chǎn)生10個［10,

99］區(qū)間中的整數(shù)，并將其中3的倍數(shù)顯示在List1中，余下的數(shù)顯示在List2中。運行界

面如圖所示。

（1）要使命令按鈕Commandl上顯示的文本為“分類”，可在其屬性窗口中將

屬性的屬性值改為“分類”。

（2）為實現(xiàn)上述功能，請在劃線處填寫合適的代碼。

PrivateSubCommandl_Click（）

Listl.Clear

List2.Clear

Dima（lTo10）AsInteger

Fori=1To10

a（i）=__________?__________

If②Then

Ustl.AdditemStr(a(i))

Else

__________

EndIf

Nexti

EnclSub

CoBBaAdlCoownandButton▼I

按字母序但組生］_____________________________

（名稱）CoMtndlA

Appearance1-3D

BtckColor□aX8000000F&

CancelFalse

CtpticnCotMktndl

CausesValidationTrue

D?faultFei”

Dis&bl?dPicture(None)

DownFictur*Qiont)

DraclconCNone)

Drajiod.0-ManuU

EnabledTrue

2.小丁想買幾張6+1彩票，選號時，他希望前4位月自己的生日：11月8日，即1108,

特別號碼他選了買彩票口子的個位數(shù)5,并且他希望前六個數(shù)字組成的數(shù)能被他的幸運數(shù)字

9整除。他的好朋友小杰幫他設(shè)計了一-個VB程序，可以提供一份符合這些要求的號碼清單

供他挑選。相應(yīng)的界面如第12題圖-1所示。閱讀程序并完成后面的問題。

6+1參考號碼:

5

5

08175

08265

08355&a

08445

08535開始

086n25

085

0880圖控件工具箱“

（1）設(shè)計應(yīng)用程序界面時，為添加a所指向的對象，應(yīng)使用圖所示的“控件工具箱”

中的（填寫相應(yīng)編號）；在第14題-3圖所示的“屬性窗口”中，將屬

性值設(shè)置為“開始”，可使2中b所指向的對象顯示“開始”。

U?Co?nmandl回

|C*MMUIC—

按字母屋|按分寅/I______________

I?3)

B□oeoooooon

CwtctlFUt?

CpQionCceegdl

CMS?iV?lid*tioftTru?

D?<?ul<2”

Distbletficlwt01—)

D”陋eyX

DrtclcpftOOM)

Dr，*d,0-

k-bhdTz

FQ余體

(名稱廠

邊回代碼中使用的標喇象的名爵，

屬性窗口〃

（2）請根據(jù)題意將下列程序補充完整。

PrivateSubCommand1ClickO

Dimiasinteger,jasinteger,cAsInteger

DimnAsLong

c=0

Fori=0To99

n=110800+i

If①Then

Listl.AdditemStr(n)+""+"5"

②

EndTf

Nexti

Label2.Caption=〃滿足條件的數(shù)有：〃+Str(c)+〃組”

EnclSub

3.小李想用vb制作一個分鐘倒計時器，界面如圖所示。先在文本框textl中輸入分鐘

數(shù)，然后在文本框text2中輸入秒鐘數(shù),再點擊“開始倒計時”按鈕開始倒計時。Vb程序

如下：

PrivateSuhCommand1Click()

Timerl.Enabled=①

EndSub

PrivateSubTimerlTimer()

:分：：：----------：秒

sec=Vai(Text2.Text)

min=Vai(Textl.Text)

Ifsec>0Then

開始倒琳寸：：：：：：：：：：：：：：：：

sec=sec-1

Else

sec=59

屬性-Timerl>(l

Ifmin>0Then].

TinerlTimer▼|

min=min-1按字母序按分類序|

Else(名稱)Timerl

EnabledFalse

Textl=0Index

Text2=0Interval0

Left.6840

MsgBox”倒計時時訶到“Tag

Top360

EndIf

EndIf

Textl=min

Text2=sec

EndSub

(1)程序中①處應(yīng)該填o(選填：True/False)

(2)計時器timerl的inteval屬性應(yīng)該設(shè)置為。

4.小沈很久沒登錄自己的電子郵箱了，這次他想給遠方的朋友發(fā)封電子郵件，但是密

碼忘記了，請你幫她盡可能找回密碼。她零星記得自己的密碼信息如下：

①共八位字符，前兩位為字母“zj”，后六位是數(shù)字，并以66開頭(即密碼格式為

zj66****)；

②最后兩位數(shù)字相同；

③后六位數(shù)能被16和46同時整除。

單擊“找回密碼”按鈕(Conunandl)后，可能的密碼顯示在列表框Listl中。

八第M題圖

PrivateSubCommand1Click()

DimsAsLong,aAsInteger,bAsInteger,cAsInteger,iAsInteger

Fori=0To9999

s=660000+i

If①AndsMod46=0Then

'（選填字母，從下列A、B、C、D四個選項中選取一項）

a=sMod10

b=（sMod100）\10

If②Then'（選填字母，從下列A、B、C、D四個選項中選取

一項）

Listl.Additem（"zj"+Str（s））

c=③，（填程序代碼）

EndIf

EndIf

Nexti

Label1.Caption="共有"+Str（c）+"個"

EndSub

（1）解決此問題的算法是O（選填：枚舉算法/解析算法/查找算法）

（2）程序中①劃線史應(yīng)填入；程序中②劃線處應(yīng)填入o

劃線①、②處的選項：（）

A.sMod16=0B.s\16=0C.a<>bD.a=b

（3）程序中①劃線史應(yīng)填入的代碼o

5.小蘭設(shè)計了一個“猜價格”小游戲，用戶在Texll中輸入所猜的價格，單擊“猜一猜”

按鈕，如果偏高了，Label4標簽中將提示“對不起，偏高了！”；若所猜的價格偏低，則Label4

標簽中將提示“對不起，偏低了！”；若猜中，則Label4標簽中將顯示“恭喜你，猜對啦！

界面如圖所示。

Forml

Label1

Label2

TextlLabel3

Label4

Commandl

（1）應(yīng)用程序界面設(shè)計時，為添加“請輸入繇的價格：”對象，應(yīng)使用圖所示的“控

件工具箱”中的—（填寫相應(yīng)字母），并在圖所示的“屬性窗口”中，將屬性

值設(shè)置為“請輸入您猜的價格：”。

屬性-Label2回

|Label2LabelV|

按字母序|按分類序I

（名稱）Label2>

AligMent0-LeftJi

Appearance1-3D

AutoSizeFalse

BackColor□ftHSOOOOO二

BackStyle1-Opaque

BorderStyle0-None

CaptionLabel2

DetbSld

DatftFormat

Datall?mb?r

DataSourc?

Dr<glcon(None)

Drajlode0-Manual

EnabledTrue

Font走體▼

圖圖

（2）解決此問題的相應(yīng)程序如F，請根據(jù)題意將程序補充完整。

PrivateSubCommand1Click()

DimgAsInteger

DimpAsInteger

P=99'預設(shè)價格的值存儲到p變量中

g=__________

Ifg>pThen

二〃對不起，偏高了！〃

Elselfg<pThen

Label4.Caption="對不起,偏低了！”

Else

Labe14.Caption=〃恭喜你，猜對啦！“

EndSub

6.十進制數(shù)轉(zhuǎn)二進制數(shù)程序界面如第14題-1圖所示，相關(guān)VB程序運行時，單擊命令

按鈕Commandl后，執(zhí)行十進制數(shù)轉(zhuǎn)二進制數(shù)并輸出顯示的程序。

（1）應(yīng)用程序界面設(shè)計。轉(zhuǎn)換得到的二進制數(shù)將顯示在Label3中，請根據(jù)笫14題-3

圖提供信息，確定使用第14題-2圖控件工具箱中的（填寫相應(yīng)編號），修改屬

性的值為1010。

-L.bel3

LabielTextl□

砌|Label3Label

①?畫-②按字母序|按分類序

k?十講制數(shù)轉(zhuǎn)二進...pIH3<bA

AutoSizeFalseA

二十虛制數(shù)：：|；0'門」.④

BackColor□AH8000000E.

P6BackStyle1-Opaque

二二進制數(shù)：11010國團—@BorderStyle1-FixedSir

Caption?mm

’:十世磐轉(zhuǎn)三營常擻DataField

③?電口DatoFormat

DataSource

Labe12Command1Label3Dragicon(Hone)▼

第14題7圖第14題-2圖第14題-3圖

（2）解決此問題的相應(yīng)程序如下，請根據(jù)相應(yīng)注釋及題意將程序補充完整。

PrivateSubCommand1Click()'不停除2到商為0為止，所得余數(shù)倒推

DimsjzsAsInteger'sjzs：十進制數(shù)

DimrjzsAsStringirjzs：二進制數(shù)

sjzs=Vai(Toxtl.Text)

?""

rjzs=

DoWhile_____________

rjzs=Str(sjzsMod2)+rjzs

Label3.Caption=rjzs

EndSub

7.以下VB程序段的功能是用DO語句求ClOOO之間滿足“用3除余2,用5除余3,用

7除余2”的數(shù)。并將結(jié)果在listl中列出，并在labell處顯示符合條件的數(shù)的個數(shù)。

(1)程序中①處應(yīng)填入的代碼是

(2)程序運行結(jié)束后，變量i的值為

PrivateSubCommandl_Click()

DimiAsInteger

DimjAsInteger

i=1:j=0

listl.clear

DoWhilei<=1000

If(iMod3=2AndiMod5=3AndiMod7=2)Then

Listl.Additemi

@

EndIf

i=i+1

Loop

Label1.Caption=Str(j)

EndSub

8.有如下VisualBasic程序段:

Ifx>100then

Y=12

_(1)_x>60then

Y=8

Else

y=5

—（2）_____

該程序段中，（1）處填寫的內(nèi)容為⑵處填寫的內(nèi)容為___________o

9.用VB軟件編寫判斷閏年的年份。界面如第11題-圖1所示，文本框Text1輸入年份,

單擊“判斷”按鈕Commands在文本框Text2中輸出判斷結(jié)果（閏年的判斷條件是:能被4

整除但是不能被100整除；或者能被四百整除）。

日閏年判斷.0回i區(qū)

第11題-圖1

（1）應(yīng)用程序界面設(shè)計時，Textl文本框內(nèi)沒有內(nèi)容顯示，這是由于將其屬性名為

的值設(shè)置為空，窗口顯示“閏年判斷”是將窗體屬性名為

的值設(shè)置成了“閏年判斷二（1分，1分）

（2）請根據(jù)題意將下列程序補充完整。（2分）

PrivateSubCommand1Click（）

DimYearAsInteger

①

If(YearMod4=0)And(YearMod100<>0)Or(YearMod400=0)Then

Text2.Text="是閏年"

Else

Text2.Text="不是閏年"

EndIf

EndSub

為實現(xiàn)上述功能，程序①加框處應(yīng)填寫為

10.編寫VB程序，實現(xiàn)如下功能：在文本框Textl中輸入騎士奔跑的速度值（為1到

10之間的整數(shù)），單擊“奔跑”按鈕Command］，騎士以相應(yīng)的速度從左往右循環(huán)奔跑，單擊

“停止”按鈕Command2,騎士停止奔跑。界面如第14題-1圖所示。

（1）在設(shè)計應(yīng)用程序界面時，應(yīng)使用第14題-2圖所示“控件工具箱”中的（填

寫相應(yīng)編號）添加用于輸入文字“加減速（1到10）”的控件。

（2）為實現(xiàn)上述功能，請在劃線處填入合適代碼。

PrivateSubCommandl_Click（）

DimxAsInteger

If(x>0)And(x<=10)Then

Timerl.Enab1ed=

Timerl.Interval=1000\x

Else

Textl.Text="錯誤"

EndSub

三、程序填空題（選考部分）

1.【加試題】編寫VB程序，在如第16題-1圖所示1X1的正方形區(qū)域內(nèi)產(chǎn)生一定數(shù)

量、位置隨機的點坐標，統(tǒng)計位于0.5X0.5的黑色區(qū)域內(nèi)（包括邊界）點的數(shù)量。程序運

行時界面如第16題-2圖所示。

。.涉10邇7|閨

自上而下兩個文本框的名稱分別是Textl和Text2,“開始”按鈕的名稱是Command1。

在Text1

中輸入數(shù)據(jù)，單擊“開始”按鈕，在Text2中顯示統(tǒng)計

結(jié)果。“開始”按鈕單擊事件處理過程的流程圖如右圖獷?示。

請根據(jù)流程圖將下列程序補充完整。

PrivateSubCommand1Click()

DimnAsInteger,mAsInteger,iAsInteger

DimxAsSingle,yAsSingle

n=①

m=0

Randomize'初始化Rnd函數(shù)

Fori=1Ton

x=Rnd'隨機產(chǎn)生x坐標，OWxVl

y=Rnd'隨機產(chǎn)生y坐標，OWyVl

②

Nexti

Text2.Text=Str(m)

第16題-3圖

EndSub

2.【加試題】求享生素數(shù)。攣生素數(shù)是指兩個相鄰奇數(shù)且都是素數(shù)，由于它們是最近的

素數(shù)，就像攣生兄弟一樣，下列VisualBasic程序用于查找100以內(nèi)的所有攣生素數(shù)，其

中函數(shù)f用于判斷一個數(shù)是否是素數(shù)，程序運行界面如圖(第17題-1圖)所示，Command1

鼠標單擊事件過程的流程圖如圖(第17題-2圖)所示。

一李生素數(shù)

100以內(nèi)的享生素數(shù):

3和5

5和7開始

1和

113

17和19

—

2和31

4和3

14

5和61

7和3

17

第17題-1圖

程序代碼如下：

PrivateSubCommand1Click()

DimiAsInteger

Listl.Clear'清除列表框內(nèi)容

Fori=3To97①

Iff(i)And②Then

Listl.AddItemStr(i)+“和"+Str(i+2)

EndIf

Nexti

EndSub

PrivateFunctionf(xAsInteger)As