計算機二級VB考試題及答案

計算機二級VB考試題及答案「篇一」

1.以下程序段運行的結(jié)果為(B)(單)

PrivateSubForm_Click

MyDate=#7/21/1997#

PrintFormat(MyDate,"m/d/yy〃)

PrintFormat(MyDate,，zyyyy年田月dd日〃)

EndSub

A.7/21/971997年7月21□

B.7-21-971997年7月21日

C.97/7/211997年7月21日

D.7/21/9797年7月21日

2.以下程序段運行的結(jié)果為(B)(單)

PrivateSubForm_Click

MyTime-#9:21:30PM#

MyDate=#7/21/1997#

PrintTab(2);Format(MyDate,“mmmm-yy")

PrintTab(2);Format(MyTime,"hh:mm:ssA/P")

EndSub

A.July-979:21:30P

B.July-9709:21:30P

C.07-979:21:30P

D.July-979:21:30

3.以下程序段運行的結(jié)果為(C)(單)

PrivateSubFormClick

MyDate=#7/21/1997#

PrintFormat(MyDate,〃dddd,minnun,del,yyyy〃)

EndSub

A.21,07,1997

B.21,07,21,1997

C.Monday,July,21,1997

D.Monday,07,21,1997

4.在窗體中建立?個文本框textl和?個命令按鈕command1,編寫下面程

序：

PrivateSubTextl_LostFocus

IfNotIsNumerictTextl)Then

MsgBox〃帳號有非數(shù)字字符錯誤〃

Textl.Text二〃〃

Textl.SetFocus

else

MsgBox〃帳號正確”

EndIf

EndSub

當(dāng)在textl文本框中輸入字符〃abc〃之后，單擊命令按鈕，結(jié)果為(B)(單)

A.顯示對話框，提示信息為〃帳號正確〃

B.顯示對話框，提示信息為〃帳號有非數(shù)字字符錯誤〃

C.程序出錯

D.沒有任何提示

5.在窗體中建立一個文本框textl和一個命令按鈕command1,編寫下面程

序：

PrivateSubTextl_LostFocus

IfNotIsNumericjTextl)Then

MsgBox〃帳號有非數(shù)字字符錯誤〃

Textl.Text="〃

Textl.SetFocus

else

MsgBox〃帳號正確”

EndIf

EndSub

當(dāng)在textl文本框中輸入數(shù)字123456之后，單擊命令按鈕，結(jié)果為(A)(單)

A.顯示對話框，提示信息為〃帳號正確〃

B.顯示對話框，提示信息為〃帳號有非數(shù)字字符錯誤〃

C.程序出錯

D.沒有任何提示

6.在窗體中建立一個文本框textl和一個命令按鈕command1,編寫下面程

序：

PrivateSubCommand1Click

DimIAsInteger

IfTextl.Text<>'Gong"Then

I二MsgBox（"密碼錯誤〃，5+vbExclamation,〃輸入密碼〃）

IfI<>4Then

End

Else

Textl.Text二〃〃

Textl.SetFocus

EndIf

Else

MsgBox〃密碼帳號正確！〃

EndIf

EndSub

若在textl中輸入字符串〃Gong〃，則程序運行結(jié)果為（A）（單）

A.顯示對話框，提示〃密碼帳號正確!〃

B.顯示對話框，提示〃密碼錯誤〃

C.程序出錯

D.沒有任何提示

7.在窗體中建立一個文本框t.pxl1和一個命令按鈕command1,編寫下面程

序：

PrivateSubCommand!Click

DimIAsInteger

IfTextl.Text<>'Gong"Then

I二MsgBox（〃密碼錯誤〃，5+vbExclamation,〃輸入密碼〃）

IfI04Then

End

Else

Text1.Text二

Textl.SetFocus

EndIf

Else

MsgBox〃密碼帳號正確！〃

EndIf

EndSub

若在textl中輸入字符串〃gong〃，則程序運行結(jié)果為（B）（單）

A.顯示對話框，提示〃密碼帳號正確!〃

B.顯示對話框，提示〃密碼錯誤〃

C.程序出錯

D.沒有任何提示

8.在窗體中建立一個文本框textl和一個命令按鈕command1,編寫下面程

序：

PrivateSubCommand1Click

DimIAsInteger

IfTextl.Text<>〃Gong〃Then

I=MsgBox（"密碼錯誤〃，VbRetryCancle+vbExclamation,“輸入密碼"）

IfI<>4Then

End

Else

Textl.Text二〃〃

Textl.SetFocus

EndIf

Else

MsgBox〃密碼帳號正確！〃

EndIf

EndSub

若在textl中輸入字符串〃123〃，顯示〃密碼錯誤〃對話框，關(guān)于此對話框描述

正確的是(A)(單)

A.顯示對話框中有“重試”按鈕

B.顯示對話框中有“確定”按鈕

C.顯示對話框中有“是"按鈕

D.以上說法都不正確

9.在窗體中建立三個文本框，名稱分別為textl、text2和text3,還有一個

名稱為label」的標(biāo)簽，一個名稱為comniandl的命令按鈕，編寫如卜代碼：

PrivateSubCommandl_Click

Dimx,y,z,t!

x=Textl

y=Text2

z=Text3

Ifx<yThen

t=x

x=y

y=t

EndIf

Ify<zThen

t=y

z

z=t

Ifx<yThen

t=x

x=y

y=t

EndIf

EndIf

Label1.Caption二x&&y&&z

EndSub

當(dāng)在文本框textl、text2和text3中分別輸入5、3和8,則標(biāo)簽顯示的結(jié)

果為(C)(單)

A.3,5,8

B.5,3,8C.8,5,3

D.3.8.5

10.以下程序段：

PrivateSubForm_Load

DimNopAsInteger,OpAsString*1

Numl=3

Num2=2

Nop=val(Inputbox(〃請輸入1-4之間的整數(shù)”))

SelectCaseNop

Case1

Op=+

Result=Numl+Nun】2

Case2

八〃〃

Op=-

Result=Numl-Num2

Case3

Op=〃X〃

Result=Numl*Num2

Case4

八〃?//

Op=—

Result=Numl/Num2

EndSelect

Label1=Numl&Op&Num2&"二"&Result

EndSub

窗體運行后，輸入1,則label1的標(biāo)題顯示結(jié)果為(A)(單)

A.3+2=5

R.3-2=1

C.3X2=6

D.34-2=1.5

11.以下程序段：

PrivateSubForm_Load

DimNopAsInteger,OpAsString*1

Numl=3

Num2=2

Nop=val(Inputbox(〃請輸入1-4之間的整數(shù)"))

SelectCaseNop

Case1

OCp=〃+I〃

Result=Numl+Num2

Case2

Ocp=〃-〃

Result=Numl-Num2

Case3

Op=〃X〃

Result=Numl*Num2

Case4

Op=—

Result=Numl/Num2

EndSelect

I.ABAI1=Numl&Op&Num?&"=〃&RASHIt

EndSub

窗體運行后，輸入2,則label1的標(biāo)題顯示結(jié)果為(B)(單)

A.3+2=5

B.3-2=1

C.3X2=6

D.34-2=1.5

12.以下程序段:

PrivateSubForm_Load

DimNopAsInteger,OpAsString*1

Numl=3

Num2=2

Nop=val(Inputbox("請輸入1-4之間的'整數(shù)〃))

SelectCaseNop

Case1

Op=〃+〃

Result=Numl+Num2

Case2

Op=一

Result=Numl-Num2

Case3

Op="X”

Result=Numl*Num2

CASPA

Ocp=〃—?〃

Result=Numl/Num2

EndSelect

Label1=Numl&Op&Num2&"="&Result

EndSub

窗體運行后，輸入3,則label1的標(biāo)題顯示結(jié)果為(C)(單)

A.3+2=5

B.3-2=1

C.3X2=6

D.34-2=1.5

13.以下程序段：

PrivateSubForm_Load

DimNopAsInteger,OpAsString*1

Numl=3

Num2=2

Nop=val(Inputbox("請輸入1-4之間的整數(shù)"))

SelectCaseNop

Case1

O八p=〃+I〃

Result=Numl+Num2

Case2

Op=-

Result=Numl-Num?

Case3

Op=〃X〃

Result=Numl*Num2

Case4

Op=〃+〃

Result=Numl/Num2

EndSelect

Label1=Numl&Op&Num2&"二〃&Result

EndSub

窗體運行后，輸入4,則labell的標(biāo)題顯示結(jié)果為(D)(單)

A.3+2=5

B.3-2=1

C.3X2=6

D.34-2=1.5

14.以下程序段的作用是(A)(單)

PrivateSubPicture!Click

DimasciAsInteger,iAsInteger

i=0

Forasci=32To126

Picturel.PrintTab(7*i+2);Chr(asci);asci;

i=i+1

Ifi=7Theni=0:Picturel.Print

NPXIasci

A.打印ASCII碼表,一行7個表達(dá)式

B.打印九九乘法表，一行7個表達(dá)式

C.打印ASCII碼表，一行8個表達(dá)式

D.以上說法都不正確

15.我國現(xiàn)在人口有13億，按人口增長0.8%計算，多少年后我國人口將超過

26億。

PrivateSubCommand1_Click

Dimx,n

x=Vai(Textl)

n=0

DoWhile[x]<26

x=x*(1+0.008)

n=n+1

Loop

Text2=Str(n)

EndSub

16.以下程序的作用是(B)(單)

Fori=1To9

Forj=1To9

se=i&〃X〃&j&〃二〃&i*j

Picturel.PrintTab((j-1)*9+1);se;

Nextj

Picturel.Print

Nexti

A.打印ASCII碼表

B.打印九九乘法表

C.打印加法表

D.以上說法都不正確

17.求自然數(shù)。的近似值，誤差小于0.00001,近似公式為:

e=l+l/l!+l/2!+l/3!++l/I!+以下程序用來求自然數(shù)e。

PrivateSubForm_Click

Dim1%,n&,t,e：

E=0'存放累加和結(jié)果

1=0'計數(shù)器

n=1'存放階乘的值

t=1'級數(shù)第I預(yù)值

DoWhile[t>]0.00001

e=e+t

1=1+1

n=n*I

t=1/n

Loop

Print〃計算了〃；I;〃項的和是〃；e

EndSub

18.求自然數(shù)e的近似值，誤差小于0.00001,近似公式為:

-1+1/1!+1/2!+1/3!++"1!+以下程序用來求自然數(shù)已

PrivateSubFormClick

Dim1%,n&,t,e*

E=0'存放累加和結(jié)果

1=0'計數(shù)器

n=1'存放階乘的值

t=11級數(shù)第I項值

DoWhilet>0.00001

e=e+[t]

1=1+1

n=n*1

t=1/n

Loop

Print〃計算了〃；I;〃項的和是〃；e

EndSub

19.求自然數(shù)e的近似值,誤差小于0.00001,近似公式為:

e=l+l/l!+l/2!+l/3!++l/I!+以下程序用來求自然數(shù)e。

PrivateSubFormClick

Dim1%,n&,t,e'

E=0’存放累加和結(jié)果

1=0'計數(shù)器

n=1'存放階乘的值

t=1，級數(shù)第I項值

DoWhilet>0.00001

e=e+t

1=1+1

n=n*[I]

t=1/n

Loop

Print〃計算了〃；I;〃項的和是〃；e

EndSub

20.以下程序是求最大公約數(shù)和最小公倍數(shù)的程序。

PrivateSubForm_Click

Dimml,nl,m,n,rAsInteger

nl=InputBox（〃輸入自然數(shù)n〃，〃輸入數(shù)〃）

ml=InpulBox(〃輸入自然數(shù)m〃，〃輸入數(shù)”)

n=nl

m=ml

Ifm<nThen

t=m:m=n:n=t

EndIf

r=mMod[n]

DoWhile(r<>0)

m=n

n=r

r=mModn

Loop

Print〃最大公約數(shù)二〃，n

Print〃最小公倍數(shù)二",ml*nl/n

EndSub

計算機二級VB考試題及答案「篇二」

1.在窗體上畫一個名稱為Tcxtl的文本框，一個名稱為Command1的命令按

鈕，然后編寫如下事件過程和通用過程：

PrivateSubCommand1_Click

n=Vai(Textl.Text)

Ifn2=n/2Then

f=fl(n)

Else

f=f2(n)

EndIf

Printf;n

EndSub

PublicFunctionfl(ByRefx)

x=x*x

fl=x+x

EndFunction

PublicFunctionf2(ByVaix)

x=x*x

f2=x+x+x

EndFunction

程序運行后，在文本框中輸入3,然后單擊命令按鈕，窗體上顯示的是(D)(單)

A.7236

B.10836

C.726

D.273

2.在窗體上畫一個名稱為Conmiandl的命令按鈕，然后編寫如下事件過程：

PrivateSubCommandlClick

c="1234〃

Fori=1To4

cl=Trim(Str)

Printcl

Nexti

EndSub

程序運行后，單擊命令按鈕，要求在窗體上顯示如下內(nèi)容

1

12

123

1234

則在下劃線處應(yīng)填入的內(nèi)容為(B)(單)

A.Right(cl,i)

B.Left(cl,i)

C.Mid(cl,i,1)

D.Mid(cl,i,i)

3.在窗體上畫一個名稱為Commandl的命令按鈕和一個名稱為Textl的文本

框，然后編寫如下事件過程：

PrivateSubCommand1_Click

n=Vai(Textl.Text)

Fori=2Ton

Forj=2Tosqr⑴

IfiModj=0ThenExitFor

Nextj

Ifj>Sqr(i)ThenPrinti

Nexti

EndSub

該事件過程的功能是(C)(單)

A.輸出n以內(nèi)的.奇數(shù)

B.輸出n以內(nèi)的偶數(shù)

C.輸出n以內(nèi)的素數(shù)

D.輸出n以內(nèi)能被j整除的數(shù)

4.在窗體上畫一個名稱為Commandl的命令按鈕，然后編寫如下通用過程和命

令按鈕的事件過程：

PrivateFunctionf(mAsInteger)

IfmMod2=0Then

f=m

Else

f=1

EndIf

EndFunction

PrivateSubCommand1_Click

DimiAsInteger

s=0

Fori=1To5

s=s+f(i)

Next

Prints

EndSub

程序運行后，單擊命令按鈕，在窗體上顯示的是(C)(單)

A.11

B.10

C.9

D.8

5.在窗體上畫一個名稱為Textl的文本框和一個名稱為Command1的命令按

鈕，然后編寫如下事件過程：

PrivateSubCommand1_Click

Dimarrayl(10,10)AsInteger

DimiAsInteger,jAsInteger

Fori=1To3

Forj=2To4

arrayl(i,j)=i+j

Nextj

Nexti

Textl.Text=arrayl(2,3)+arrayl(3,4)

EndSub

程序運行后，單擊命令按鈕，在文本框中顯示的值是(D)(單)

A.15

B.14

C.13

D.12

6.VisualBasic應(yīng)用程序中標(biāo)準(zhǔn)模塊文件的擴展名是【BAS或.BAS](注意不

要寫點)。

7.在菜單編輯器中建立一個菜單,其中菜單項的幺稱為mnuEdil.Visible屬

性為False,程序運行后，如果用鼠標(biāo)右鍵單擊窗體，則彈出與mnuEdit相應(yīng)的菜

單。

PrivateSubForm_[mousedown](ButtonAsInteger,ShiftAsInteger,

XAsSingle,YAsSingle)

IfButton=2Then

popupmenumnuEdit

EndIf

EndSub

8.在菜單編輯器中建立一個菜單，其主菜單項的名稱為mnuEdit,Visible屬

性為False,程序運行后，如果用鼠標(biāo)右鍵單擊窗體，則彈出與mnuEdit相應(yīng)的菜

單。以下是實現(xiàn)上述功能的程序，請?zhí)羁铡?/p>

PrivateSubFormmousedown(ButtonAsInteger,ShiftAsInteger,X

AsSingle,YAsSingle)

IfButton=2Then

[popupmenu]mnuEdit

EndIf

9.為了使計時器控件Timerl每隔0.5秒觸發(fā)一次Timer事件，應(yīng)將Timerl控

件的[Interval]屬性沒置為500。

10.為了使計時器控件Timeri每隔0.5秒觸發(fā)一次Timer事件，應(yīng)將Timerl

控件的Interval屬性設(shè)置為【500】。

計算機二級VB考試題及答案「篇三」

1.設(shè)有如下程序段：

x=2

Forc=lTo4Step2

x=x+c

Nextc

運行以上程序后，x的值是(A)(單)

A.6

B.7

C.8

D.9

2.以下敘述中錯誤的是(A)(單)

A.在KeyPress事件過程中不能識別鍵盤鍵的按下與釋放

B.在KeyPress事件過程中不能識別回車鍵

C.在KcyDown和KeyUp事件過程中，從鍵盤輸入的字母和字母"a”對應(yīng)的

KeyCode視作相同的字母

D.在KeyDown和KeyUp事件過程中，從大鍵盤上輸入的“1〃和從右側(cè)小鍵盤上

輸入的〃1〃被視作不同的字符

3.執(zhí)行如下兩條語句，窗體上顯示的是(C)(單)

A=9.8596

PrintFormat(a,"000.00")

A.0,009.86

B.9.86

C.009.86

D.0,009.86

4.在窗體上畫一個名稱為CommandDialogl的通用對話框，一個名稱為

Command1的命令按鈕。然后編寫如下事件過程：

PrivateSubCommandl_Click

CommonDialogl.FileName="〃

CommonDialogl.Filter="Allfile|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt”

CommonDialogl.Filterlndex=1

CommonDialogl.DialogTitle=，，VBTest，/

CommonDialogl.Action=l

EndSub

對于這個程序，以下敘述中錯誤的是(D)(單)

A.該對話框被設(shè)置為〃打開〃對話框

B.在該對話框中指定的文件名為空

C.該對話框的標(biāo)題為VBTest

D.在該對話框中指定的默認(rèn)文件類型為文本文件(*.Txt)

5.設(shè)一個工程由兩個窗體組成，其名稱分別為Forml和Eorm2,在Forml上有

一個名稱為Commandl的命令按鈕。窗體Forml的程序代碼如卜.：

PrivateSubCommand1_Click

DimaAsInteger

a=10

Callg(Form2,a)

EndSub

PrivateSubg(fAsForm,xAsInteger)

y=Iif(x>10,100,-100)

f.Show

f.Caption二y

EndSub

運行以上程序，正確的結(jié)果是(B)(單)

A.Forml的Caption屬性值為100

B.Form2的Caption屬性值為TOO

C.Forml的Caption屬性值為TOO

D.Form2的Caption屬性值為100

6.在窗體上畫一個名稱為Commandl的命令按鈕，并編寫如下程序：

PrivateSubCommandlClick

DimxAsInteger

StaticyAsInteger

x=10

y=5

Callfl(x,y)

Printx,y

EndSub

PrivateSubfl(ByRefxlAsInteger,ylAsInteger)

xl=xl+2

yl=yl+2

EndSub

程序運行后，單擊命令按鈕，在窗體上顯示的內(nèi)容是(D)(單)

A.105

B.125

C.107

D.127

7.OptionBase1

PrivateSubCommand1Click

Dima(10)AsInteger

DimnAsInteger

n=3

Ifn<10Then

CallGetArray(a,n)

EndIf

EndSub

PrivateSubGetArray(bAsInteger,nAsInteger)

Dimc(10)AsInteger

j=0

Fort=lTon

b(t)=Rnd*100

Ifb(t)/2=b(t)2Then

j=j+l

c(j)=b(t)

EndIf

Nextt

Printj

EndSub

以下敘述中錯誤的是(C)(單)

A.數(shù)組b中的'數(shù)范圍為0T00

B.c數(shù)組下標(biāo)的下界從1開始

C.GetArray過程的參數(shù)n是按值傳送的

D.語句Ifb(t)/2=b(t)2Then是判斷數(shù)組b中元素的值是否為整數(shù)

8.在窗體上畫一個名稱為Conimandl的命令按鈕，然后編寫如下事件過程:

OptionBase1

PrivateSubCommand1_C1ick

Dima

a=Array(1,2,3,4,5)

Forc=lToUbound(a)

a(c)=a(c)+c-l

Nextc

Printa(3)

EndSub

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

A.4

B.5

C.6

D.7

9.閱讀程序：

OptionBase1

PrivateSubForm_Click

Dimarr

DimSum%

Sum=0

arr=Array(1,3,5,7,9)

Fort=1To5

Sum=Sum+arr(t)

Nextt

PrintSum

EndSub

程序運行后，單擊穿體，輸入結(jié)果為(B)(單)

A.5

B.9

C.25

D.15

10.在窗體上畫一個名稱為Filcl的文件列表框，并編寫如下程序：

PrivateSubFilel_DblClick

x=Shell(Filel.FileName,1)

EndSub

以卜關(guān)于該程序的敘述中，錯誤的是(A)(單)

A.x沒有實際作用，因此可以將該語句寫為:CallShell(Filel,FileName,1)

B.雙擊文件列表框中的文件，將觸發(fā)該事件過程

C.要執(zhí)行的文件的名字通過Filel.FileName指定

D.Filel中顯示的是當(dāng)前驅(qū)動器、當(dāng)前目錄下的文件

11.在窗體上畫一個名稱為Labell、標(biāo)題為"VisualBasic考試”的標(biāo)簽，兩個

名稱分別為Commandl和Command2、標(biāo)題分別為〃開始〃和〃停止〃的命令按鈕，然后

畫一個名稱為Timerl的計時器控件，并把其Interval屬性設(shè)置為500。編寫如下

程序：

PrivateSubForm_Load

Timerl.Enabled=False

EndSub

PrivateSubCommand1_C1ick

Timerl.Enabled=True

EndSub

PrivateSubTimerlTimer

IfLabel1.Left<Forml.WidthThen

Label1.Left=Label1.Left+20

Else

Label1.Left=0

EndIf

EndSub

程序運行后，單擊"開始〃按鈕，標(biāo)簽在窗體中移動。對于這個程序，以下敘

述中錯誤的是(A)(單)

A.標(biāo)簽的移動方向為自右向左

B.單擊〃停止〃按鈕后再單擊〃開始〃按鈕，標(biāo)簽從停止的位置繼續(xù)移動

C.當(dāng)標(biāo)簽全部移出窗體后，將從窗體的另一端出現(xiàn)并重新移動

D.標(biāo)簽按指定的時間時隔移動

12.規(guī)范地說，VB是一種(A)的開發(fā)工具(單)

A.面向?qū)ο?/p>

B.面向用戶

C.面向屏幕

D.面向窗體

13.VB6設(shè)計界面包含多個視窗，控制這些視窗顯示或關(guān)閉的命令包含在(D)下

拉菜單中(單)

A.文件

B.工程

C.編輯

D.視圖

14下面(D)操作不是激活或顯示屬性列表框的操作(單)

A.按快捷鍵F4

B.點擊工具欄中的〃屬性列表框〃按鈕

C.選擇〃視圖〃下拉菜單的〃屬性窗口〃項

D.雙擊窗體中的某一對象

15.VisualBasic程序中分隔各語句的字符是［B）（單）

AJ

B:

Co

D._

16.假定窗體的名稱（Name屬性）為Forml,則把窗體的標(biāo)題設(shè)置為〃VBTesl〃的

語句為（B）（單）

A.Forml=Test”

B.Caption二〃VBTest”

C.Forml.Text=〃VBTest"

D.Forml.Name=〃VBTest”

17.下列不能打開代碼窗口的操作是（D）（單）

A.雙擊窗體上的某個控件雙擊

B.雙擊窗體

C.按F7鍵

D.單擊窗體或控件

18.VisualBasic程序中語句行的續(xù)行符是（D）（單）

A.，

B:

Co

D._

19.VisualBasic程序中的注釋所使用的字符是(A)(單)

A.，

B:

Co

D._

20.下列說法中正確的是：為了保存一個VisualBasic應(yīng)用程序，應(yīng)當(dāng)(D)(單)

A.只保存窗體模塊文件(.frm)

B.只保存工程文件［.vbp)

C.分別保存工程文件和標(biāo)準(zhǔn)模塊文件(.bas)

D.分別保存工程文件、窗體文件和標(biāo)準(zhǔn)模塊文件

計算機二級VB考試題及答案「篇四」

1.以下程序是求最大公約數(shù)和最小公倍數(shù)的程序，在【】處填寫合適的關(guān)系運

算符。

PrivateSubForm_Click

Dimml,nl,m,n,rAsInteger

nl=InputBox(〃輸入自然數(shù)n〃，〃輸入數(shù)〃)

ml=InpulBox(〃輸入自然數(shù)m”,〃輸入數(shù)〃)

n=nl

m=ml

Ifm<np=〃〃then〈二〃”>

t=m:m=n:n=t

EndIf

r=mModn

DoWhiler[<>]0

m=n

n=r

r=mModn

Loop

Print〃最大公約數(shù)二〃，n

Print”最小公倍數(shù)="，ml*nl/n

EndSub

2.下面是求100以內(nèi)素數(shù)的程序。

PrivateSubCommand1_C1ick

DimiAsInteger,mAsInteger,tagAsBoolean

Form=2To100

tag=True

Fori=2Tom-1

TfmMed[i]=0Thantag=FA1SA

Nexti

IftagThenPrintm

Nextm

EndSub

3.下面是求100以內(nèi)素數(shù)的程序，下面說法正確的是(A)(單)

PrivateSubCommand1_C1ick

DimiAsInteger,mAsInteger,tagAsBoolean

Form=2To100

tag=True

Fori=2Tom-1

IfinModi=0Thentag=False

Nexti

Iftag=trueThenPrintm

Nextm

EndSub

A.tag為true時,表示m是素數(shù)

B.tag為false時，表示m是素數(shù)

C.語句mModi=0,說明m是素數(shù)

D.以上說法都不正確

4.百元買百雞問題：假定小雞每只5角，公雞每只2元，母雞每只3元。現(xiàn)在

有100元錢要求買100只雞，以下程序列出了所有可能的購雞方案。

PrivateSubCommand2Click

Dimx%,y%,z%

Forx=0To33

Fory=0To50

If3*x+2*y+0.5*(100-x-y)=100Then

Picture2.Printx,y,[100-x-y,10-y-x]

EndIf

Nexty

Nextx

EndSub

5.百元買百雞問題：假定小雞每只5角，公雞每只2元，母雞每只3元。現(xiàn)在

有100元錢要求買100只雞，以下程序列出了所有可能的購雞方案。

PrivateSubCommand1Click

Dimx%,y%,z%

Forx=0To33

Fory=0To50

Forz=0To100

If3*x+2*y+0.5*z=100And[x+-y+z=100]Then

Picturel.Printx,y,z

EndIf

Nextz

Nexty

Nextx

EndSub

6.隨機產(chǎn)生10個100?200之間的數(shù)，求它們的最大值程序如下：

PrivateSubCommand1_C1ick

Max=100

Fori=1To10

x=Int(Rnd*101+100)

Printx;

Ifx>MaxThen[]

Nexti

Print

Print"最大值Max

EndSub

在此程序中，其中【】處應(yīng)該填寫的是(C)(單)

A.Max=100

B.Max=200

C.Max=x

D.Max=0

7.隨機產(chǎn)生10個100?200之間的數(shù)，求它們的最大值程序如下：

PrivateSubCommand1_C1ick

Max=100

Fori=1To10

x=int小陽木101-100或100+區(qū)即木101或1^>101+100或100+1^>101】

Printx;

Ifx>MaxThenMax二x

Next