浙江省計(jì)算機(jī)二級(jí)vb資料

2006年春浙江省高等學(xué)校

計(jì)算機(jī)等級(jí)考試試卷（二級(jí)VisualBasic）

說(shuō)明：⑴考生應(yīng)將所有試題的答案填寫在答卷上。其中試題1?試題6,請(qǐng)?jiān)诖鹁砩细餍☆}

正確選項(xiàng)的對(duì)應(yīng)位置處填“V”：

⑵請(qǐng)將你的準(zhǔn)考證號(hào)的后五位填寫在答卷右下角的指定位置內(nèi)；

⑶考試時(shí)間為90分鐘；

試題1（每小題3分，共15分）

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

【程序說(shuō)明】

界面設(shè)計(jì)如上圖所示，程序運(yùn)行時(shí)要求有以下功能：

?按Commandl(出題)后隨機(jī)生成兩個(gè)兩位正整數(shù)存入模塊級(jí)變量a、b且a>b,并分別

在Labell、Label2中顯示，此后Command1不可用；

?在Textl中輸入結(jié)果、按回車后，以消息框顯示運(yùn)算正確與否、累計(jì)所完成題數(shù)以及

做錯(cuò)的題數(shù)，Commandl恢復(fù)為可用；

?按Command2(退出)后以消息框顯示所完成題數(shù)以及做錯(cuò)的題數(shù)，退出。

【程序】

DimnAsInteger,n_errorAsInteger

(1)

PrivateSubConunandl_Click()

a=10+Rnd*89:b=10+Rnd*89

Ifa<bThen(2)

Labell.Caption=a:Label2.Caption=b

n=n+1:Textl.Text="":Commandl.Enabled=False

EndSub

PrivateSubTextl(3)(KeyAsciiAsInteger)

IfKeyAscii<>13Then(4),回車鍵的ASCII碼值為13

Ifa-b=Vai(Textl.Text)Then

MsgBox("回答正確")

Else

MsgBox("回答不正確”)

n_error=n_error+1

EndIf

Commandl.Enabled=True

EndSub

PrivateSubCommand2_Click()

MsgBox((5))

End

EndSub

【供選擇的答案】

(1)A、’小學(xué)生兩位數(shù)減法訓(xùn)練程序B,a=0:b=0:c=0

C、n=0:n_error=0D、DimaAsByte,bAsByte,cAsByte

(2)A、b=a:a=bB、c=a:a=b:b=c

C、a=b:b=aD、c=a:b=a:a=c

(3)A、KeyPressB、ChangeC、KeyDownD、KeyUp

(4)A、ExitSubKeyAscii=13C、KeyAscii=OD>ExitDo

⑸A、"共"&n&”題,錯(cuò)”&n_error&”題"

B、”共n題,錯(cuò)n_error題”

C、“共"+n+“題，錯(cuò)"+n_error+”題“

D、共&n&“題，錯(cuò)"&n_error&”題"

試題2(每小題3分，共12分)

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

【程序說(shuō)明】

輸入n后，再輸入n個(gè)數(shù)6,生,…,4，按照下列公式計(jì)算s的值并顯示。

—2-*v2-2

_+a2-\-----Fan__Jv)+(%)-------v)

V=s=

nn

【程序】

PrivateFunctionf()AsSingle

DimiAsInteger

Fori=1Ton:f=f+x(i):Nexti

EndFunction

PrivateSubCommandl_Click()

DimnAsInteger,a()AsSingle,iAsInteger

DimvAsSingle,sAsSingle

n=InputBox("輸入數(shù)據(jù)個(gè)數(shù)”)

(7}

Fori=1Ton

a(i)=InputBox("a("&i&"輸入各數(shù)組元素”)

Nexti

v=f(a,n)/n

Fori=1Ton

s=(8)_________

Nexti

(9)

EndSub

【供選擇的答案】

(6)A、x()AsSingle,nAsIntegerx(n)AsSingle

C、aAsSingle,nAsIntegerD、nAsInteger,x()AsSingle

(7)A、Dima(n)AsSingleB、ReDima()C、Dima(n)D、ReDima(n)

(8)A、(a(i)-v)*(a(i)-v)BNs+a(i)-v2C、s+(a(i)-v)2D、(a(i)-v)*2

(9)A、s=s0.5/nB、Prints*0.5/nC、PrintSqr(s)D>Sqr(s)/n

試題3（每小題3分，共15分）

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

【程序說(shuō)明】

?圖片框控件Pl、P2除Name屬性外均取缺省值，將鼠標(biāo)在P1拖動(dòng)繪制矩形框（邊框顏

色通過(guò)通用對(duì)話框指定）：鼠標(biāo)按下處為矩形左上角，鼠標(biāo)抬起處為矩形右下角；

?鼠標(biāo)抬起后，將P1中矩形區(qū)域內(nèi)的圖象在P2中重新繪制，如下圖所示。

【程序】

00]

PrivateSubPl_MouseDown(ButtonAsInteger,ShiftAsInteger,

XAsSingle,YAsSingle)

xl=X:yl=Y

EndSub

PrivateSubPl_MouseUp(ButtonAsInteger,ShiftAsInteger,

XAsSingle,YAsSingle)

DimjAsSingle,iAsSingle,jkAsSingle,ikAsSingle

Dim(11)_______

jk=P2.ScaleWidth/(X-xl):ik=P2.ScaleHeight/(Y-yl)

Commondialogl.Action=(12)

Pl.Line(xl,yl)-(X,Y),Commondialogl.Color,B

Forj=xlToX

Fori=ylToY

c=(13)，讀取該點(diǎn)處的顏色值

(14J

Nexti,j

EndSub

【供選擇的答案】

(10)A、DimxAsSingle,yAsSingleB、Dimx2AsSingle,y2AsSingle

C、PublicxlAsSingle,ylAsSingleD、DimxlAsSingle,ylAsSingle

(11)A^cAsLongB、cAsIntegerC、cAsSingleD、cAsDouble

(12)A、1B、2C、3D、4

(13)A、Pl.PsetCj,i)B、P2.Pset(j,i)C、Pl.Point(j,i)D、Pl.Point(i,j)

(14)A、P2.PSet((j-xl)*jk,(i-yl)*ik),cB、Pl.Pset((j-xl)*jk,(i-yl)*ik),c

C>P2.PSet((i-yl)*ik,(j-xl)*jk),cD、Pl.Pset((i-yl)*ik,(j-xl)*jk),c

試題4(每小題3分，共9分)

閱讀下列程序并回答問題，在每小題提供的若干可選答案中，挑選一個(gè)正確答案。

【程序】

PrivateSubForm_Load()

Textl.Text=nn:Listl.Clear

EndSub

PrivateSubTextl_KeyPress(KAsInteger)

DimnAsInteger

'IfK>=Asc(u0n)AndK<=Asc(n9n)ThenK=0

IfK=13Then

Listl.AddltemTextl.Textn

n=n+1

Textl.Text=

EndIf

EndSub

(15)運(yùn)行時(shí)在文本框控件Textl中依次輸入3個(gè)以回車結(jié)束的字符串”abc34"、"xyl2$"、

列表框中各表項(xiàng)依次為：

A、abc34B、+-*/C、abcD、+-*/

xyl2$xyl2$xy$xy$

+—*/abc34+-*/abc

(16)如果將語(yǔ)句DimnAsInteger用StaticnAsInteger替換，運(yùn)行時(shí)在文本框中依

次輸入3個(gè)以回車結(jié)束的字符串”abc34"、"xyl2$"、列表框中各表項(xiàng)依次為:

A、abc34B、+-*/C、abcD>+-*/

xyl2$xyl2$xy$xy$

+-*/abc34+-*/abc

(17)如果將語(yǔ)句DimnAsInteger后一條語(yǔ)句前的注釋符刪除，運(yùn)行時(shí)在文本框中依次輸

入3個(gè)以回車結(jié)束的字符串“abc34"、"xyl2$"、列表框中各表項(xiàng)依次為：

A、abc34B、+-*/C、abcD、+-*/

xyl2$xyl2$xy$xy$

+-*/abc34+-*/abc

試題5(每小題3分，共12分)

閱讀下列程序并回答問題，在每小題提供的若干可選答案中，挑選一個(gè)正確答案。

【程序】

PrivateSubf(sAsString)

DimiAsInteger,nAsInteger,cAsString

n=Len(s)

IfnMod2=1Thenc=Mid(s,n\2+1,1)

Fori=1ToLen(s)\2

c=Mid(szLen(s)+1-iz1)+c+Mid(s,i,1)

Nexti

s=c

EndSub

PrivateSubCommandl_Click()

DimxAsString

x=InputBox(nx=H)

Callf(x)

Printx

EndSub

(18)單擊Commandl后輸入“abc”，窗體上顯示結(jié)果為：

A、cbaB、bcaC、abcD、acb

(19)單擊Commandl后輸入“abed”,窗體上顯示結(jié)果為：

A、abdcB、edabCNabedD、bead

(20)如果將Sub過(guò)程f首句改為PrivateSubf(ByvalsAsString),單擊Commandl后

輸入“abed”，窗體上顯示結(jié)果為:

ANabdcB、edabC、abedD^bead

(21)如果將Sub過(guò)程f首句改為PrivateSubf(ByrefsAsString),單擊Commandl后

輸入“abed”，窗體上顯示結(jié)果為:

A、abdcB、edabCNabedD、bead

試題6(每小題3分，共9分)

閱讀下列程序并回答問題，在每小題提供的若干可選答案中，挑選一個(gè)正確答案。

【程序】

PrivateSubCommandl_Click()

DimiAsInteger,fnAsByte

fn=FreeFile

Open"e:\aaa.txt”ForOutputAs#fn

Fori=1To20

IfSqr(i)=Int(Sqr(i))ThenPrint#fn,i

Nexti

Close#fn

EndSub

(22)如果文件e:\aaa.txt已存在并己有數(shù)據(jù)1、4,執(zhí)行以上過(guò)程后文件中全部數(shù)據(jù)為：

A、1,4,1,4,9,16B、1,4,9,16C、l,4D、2,4,6,8,10,12,14,16,18

(23)如果文件e:\aaa.txt不存在，執(zhí)行以上過(guò)程后文件中全部數(shù)據(jù)為：

A、1,4,1,4,9,161,4,9,16C、空D,2,4,6,8,10,12,14,16,18

(24)如果文件e:\aaa.txt已存在并已有數(shù)據(jù)1、4,且程序中文件打開方式改為Append,

執(zhí)行以上過(guò)程后文件中全部數(shù)據(jù)為：

A、1,4,1,4,9,16B,1,4,9,16C、l,4D、2,4,6,8,10,12,14,16,18

試題7（14分）

編寫過(guò)程Commandl_Click,用InputBox函數(shù)輸入100個(gè)學(xué)生的成績(jī)，統(tǒng)計(jì)后依次用標(biāo)

簽控件Labell?Label3顯示優(yōu)秀（85?100）、通過(guò)（60?84）和未通過(guò)（小于60）的人數(shù)。

試題8（14分）

編寫程序，界面設(shè)計(jì)、運(yùn)行時(shí)狀態(tài)如下圖所示，按照下列要求定義各事件過(guò)程：

Forml-laixi

當(dāng)前時(shí)間|下午05:1下29

開始O小時(shí)E分區(qū)秒

「開始詁時(shí)

⑴在窗體的Load事件過(guò)程中設(shè)置計(jì)時(shí)器控件Timerl的Enable屬性為False、響應(yīng)的

時(shí)間間隔為1秒；

（2）單擊Command1后計(jì)時(shí)器開始計(jì)時(shí)，每隔1秒刷新一次控件Label2（0）~Label2⑶在

窗體上所顯示的當(dāng)前時(shí)間以及計(jì)時(shí)開始后所經(jīng)過(guò)的時(shí)間。

2005年秋浙江省高等學(xué)校

計(jì)算機(jī)等級(jí)考試試卷（二級(jí)VisualBASIC）

試題三、程序填空題（每空2分，共20分）

說(shuō)明：閱讀下列程序說(shuō)明和相應(yīng)程序，在每小題提供的若干可選答案中，挑選一個(gè)正確答案。

程序1、

【程序說(shuō)明】用近似公式求自然對(duì)數(shù)的底數(shù)e的值，要求計(jì)算結(jié)果的誤差小于10工

,1111

e=1H-------1--------1--------1--------F???

1!2!3!4!

【程序】

PrivateSubCommandl_Click0

DimsAsDouble,（21）

DimiAsInteger

i=2

（22）

t=1

DoWhile（23）

（24）

t=t/i

i=i+1

Loop

Prints

(21)A、tAsSingleB^tAsByteCNtAsIntegerD、tAsDouble

(22)A、s=2B>s=1C、s=0D.s=i+1

(23)A、t<=le-9B、t>=ld-9C、t>=le-9D、t<0.000000001

(24)ANs=s+tB、s=s+iC、s=t/iD>s=s+t/i

程序2、

【程序說(shuō)明】下列過(guò)程的功能是為與形參a所對(duì)應(yīng)的n個(gè)元素的實(shí)參數(shù)組送數(shù)：第1個(gè)元素

賦值儲(chǔ)其他元素為2位隨機(jī)整數(shù)，要求這n個(gè)數(shù)各不相同。

【程序】

PrivateSubcreate(a()AsByte,nAsByte)

DimiAsByte,jAsByte,xAsByte

a(l)=n

i=1

DoWhilei<n

x=(25)

Forj=1To(26)

Ifx=a(j)Then(27)

Nextj

If(28)Theni=i+1:a(i)=x

Loop

EndSub

(25)A、Rnd*99B、10+rnd*89C、Rnd*100D、Int(rnd*100)

(26)A、iB、n-1C、i-1D、n

(27)A、BreakB、ExitSubc、j=j-1D、ExitFor

(28)A、j>iB、j*iC>x<>a(i)D、j<>i

程序3、【程序說(shuō)明】下列過(guò)程在裝入窗體時(shí)，清空列表框控件Listl中所有表項(xiàng)，并順序、

逐行讀入文件e:\aaa.txt中的數(shù)據(jù),顯示在Listl中。

【程序】

PrivateSubForm_Load()

DimsAsString

Open"e:\aaa.txt"ForInputAs#1

(29)

DoWhileNotEOF(l)

(30)

Listl.Addltems

Loop

Close#1

EndSub

(29)A^Listl.List=〃〃Listl="〃C、Listl.CisD、Listl.Clear

(30)A^LineInput#1,sB、InputLine#1,sC、Input#1,sD、Lineinputs

試題四、程序閱讀題(每空2分，共20分)

說(shuō)明：閱讀下列程序并根據(jù)各題的要求，在各程序后的若干組選項(xiàng)中選出一組，寫在答卷紙

的相應(yīng)題號(hào)下。

程序1、設(shè)Text1.Text為〃abcdef〃，運(yùn)行時(shí)連續(xù)單擊3次控件HScrol11右側(cè)箭頭后，組合

框控件中的第1項(xiàng)為控1)、第2項(xiàng)為(32)、第3項(xiàng)為(33)。

PrivateSubForm_Load()

HScrolll.SmallChange=1:HScrolll.Max=5

HScrolll.Min=1:HScrolll.Value=1

Combo1.Clear

EndSub

PrivateSubHScrolll_Change()

Combol.AdditemLeft(Textl.Text,HScrolll.Value),0

EndSub

(31)A、abcabedC、abD、abcde

(32)A、aB、abcdeC、abcD^abed

(33)A、abcdeabedC、abcD、ab

程序2、執(zhí)行下列事件過(guò)程時(shí)，窗體上的顯示結(jié)果依次為2、(34)、(35)、(36)°

PrivateSubCommand1Click()

DimxAsLong,iAsInteger

x=60

i=2

DoWhilex>1

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

Loop

EndSub

(34)A、2B、3C、5D、1

(35)A、2B、5C、3D、1

(36)A、2B、5C、1D、3

程序3、下列過(guò)程f的功能是序7)；運(yùn)行時(shí)單擊命令按鈕控件Command1后窗體上的

顯示結(jié)果是(38)；如果將其中的語(yǔ)句“t=a(k):a(k)=a(i):a(i)=t”修改為“a(k)

=a(i):a(i)=a(k)”，則顯示結(jié)果是(39)。

PrivateSubf(a()AsSingle,nAsInteger)

DimiAsInteger,jAsInteger,kAsInteger,tAsSingle

Fori=1Ton-1

k=i

Forj=i+1Ton

ifabs(a(j))>abs(a(k))Thenk=j

Nextj

t=a(k):a(k)=a(i):a(i)=t

Nexti

EndSub

PrivateSubCommand1_C1ick()

Dimx(5)AsSingle

x(l)=5:x(2)=-7:x(3)=5:x(4)=12:x(5)=-3

Callf(x,5)

Printx(l);x(2);x(3);x(4);x(5)

EndSub

(37)A、對(duì)相應(yīng)實(shí)參數(shù)組按值從小到大排序B、對(duì)相應(yīng)實(shí)參數(shù)組按絕對(duì)值從小到大排序

C、對(duì)相應(yīng)實(shí)參數(shù)組按值從大到小排序D、對(duì)相應(yīng)實(shí)參數(shù)組按絕對(duì)值從大到小排序

(38)A、-35-712B、12-755-3

C、-355-712D、12-75-3

(39)A、5-755-3B、12121212-3

C、-35-712D、-7555-3

程序4、執(zhí)行下列過(guò)程時(shí)圖片框控件Piel上圖案的形狀是(40)

PrivateSubCommandl_Click()

Piel.Width=Piel.Height

Piel.Scale(-8,8)-(8,-8)

Piel.FillStyle=1

Piel.Circle(0,0),3

Piel.FillStyle=0

Piel.Circle(0,0),6

試題五、程序設(shè)計(jì)題(每題10分，共30分)

1.編制事件過(guò)程Command1_Click計(jì)算一元二次方程ax2+bx+c=0的根：

?系數(shù)a、b、c已分別在Textl(0)、Textl(1)>Textl(2)中輸入；

?若方程有實(shí)根則分別通過(guò)標(biāo)簽控件Label1、Label2顯示，否則在Labell中顯示文本

信息”方程無(wú)實(shí)根二

2.編制事件過(guò)程FormClick,計(jì)算并顯示下列數(shù)列的前30項(xiàng)。

/=力=1

fi=力_]+/_2z>2

3.文本文件e:\aaa.txt中存放了若干個(gè)數(shù)，編制事件過(guò)程Form_Click,計(jì)算它們的平均值,

然后把其中所有大于平均值的數(shù)寫入到文本文件e:\bbb.txto

2000年秋浙江省高校計(jì)算機(jī)等級(jí)考試試卷(二級(jí)VisualBASIC)

試題三、程序閱讀題(本題共21分)

閱讀下列程序，寫出運(yùn)行結(jié)果。

I.程序1(5分)

PrivateStaticSubCommand1_Click()

DimxAsInteger,sAsInteger

x=Val(InputBox("請(qǐng)輸入一個(gè)正整數(shù)二"))

Ifx<5Then

S=S*X

Else

S=S4-X

EndIf

Text1.Text=Ms=n+Str(s)

EndSub

程序運(yùn)行時(shí)連續(xù)三次單擊Command1,且設(shè)輸入的數(shù)是5、2和4時(shí)，分別寫出文本框

Textl.Text的值。

2.程序2(5分)

PrivateSubForm_Click()

Form1.Cis

w=3

Fork=2To6Step2

Forrnl.Printnw=n;w,nk=M;k

w=w+1

Nextk

Forml.Printnw=M;w,Mk=M;k

EndSub

寫出程序運(yùn)行時(shí)單擊窗體后，F(xiàn)orml上的輸出結(jié)果。

3.程序3(5分)

PrivateSubForm_Click()

DimxAsString

DimiAsInteger,nAsInteger

Forml.Cis

x:"ABCDEFGHKL”

n=Len(x)

Fori=nTo1Step-2

Forml.PrintTab(20-i);Mid(x,i,1)

Nexti

EndSub

寫出程序運(yùn)行時(shí)單擊窗體后，F(xiàn)orml上的輸出結(jié)果。

4.程序4(6分)

Rem在窗體的通用聲明區(qū)聲明兩個(gè)模塊級(jí)變量a和y

DimaAsInteger,yAsInteger

PrivateSubForm_Load()

Open"c:\al.dat"ForOutputAs#1

Close#1

EndSub

PrivateSubCommandl_Click()

Open"c:\al.dat"ForAppendAs#1

Callaa(5)

y=y+a

Print#l,My=H;y,na=M;a

Close#1

EndSub

Subaa(iAsInteger)

x=1

DoUntilx>i

a=a+x

x=x+3

Loop

EndSub

寫出程序運(yùn)行時(shí)連續(xù)三次單擊Commandl后，al.dat文件的最終結(jié)果。

試題四、程序填空題(每空2分，共18分)

1.程序說(shuō)明：利用一個(gè)計(jì)時(shí)器、一個(gè)標(biāo)簽框和二個(gè)命令按鈕制作一個(gè)動(dòng)態(tài)秒表，如圖1

所示。單擊“開始”命令按鈕，秒表開始計(jì)時(shí)，單擊“結(jié)束”命令按鈕，秒表結(jié)束計(jì)時(shí)，并

在標(biāo)簽框顯示運(yùn)行時(shí)間，如“運(yùn)行了0小時(shí)2分10秒”。(假設(shè)對(duì)象的屬性都在程序代碼中設(shè)

定)

圖I

程序代碼如下：

DimxAsLong

DimhAsInteger,mAsInteger,sAsInteger

PrivateSubForm_Load()

Form1.Caption="動(dòng)態(tài)秒表(小時(shí)：分：秒)

Command1.Caption="開始[&S]”

Command2.Caption="結(jié)束[&E]”

Label1.Alignment=2，居中對(duì)齊

Label1.Caption="0:0:0"

Timer1.Interval=(1)

Timer1.Enabled=False

x=0

EndSub

PrivateSubCommand1_Click()

⑵

EndSub

PrivateSubCommand2_Click()

Timer1.Enabled=False

x=(3)

Labell.Caption="運(yùn)行了"+Str(h)+”小時(shí)”+Str(m)+“分”+Str(s)+"秒”

EndSub

PrivateSubTimerl_Timer()

x=x+1

h=(4)

m=(xMod3600)\60

s=⑸

Label1.Caption=Str(h)++Str(m)++Str(s)

EndSub

2.程序說(shuō)明：已知自然對(duì)數(shù)的底數(shù)e的級(jí)數(shù)表示如下:

1111

6=14+—+—+—+........+——+.......

1!2!3!川

本程序利用函數(shù)過(guò)程fact。求e,其中絕對(duì)值小于1E-8的項(xiàng)被忽略。程序代碼如下:

PrivateFunctionfact(mAsInteger)AsSingle，求m!的函數(shù)

DimxAsSingle,iAsInteger

x=1

Fori=1Tom

x=(6)

Nexti

fact=x

EndFunction

PrivateSubForm_Click()

DimeAsSingle,itemAsSingle

DimnAsInteger

e=1:n-(7)

Do

n=n+1

item=⑻

e=e+item

LoopWhile(9)

Form1.Printne=u;e

EndSub

試題五、程序設(shè)計(jì)題（本題共18分）

1.隨機(jī)產(chǎn)生n個(gè)兩位正整數(shù)（n由輸入對(duì)話框輸入，且n>0）,求出其中的偶數(shù)之和,

并在標(biāo)簽框Label1上顯示。（8分）

注：程序?qū)懺诿畎粹oCommand1的Click事件中。

2.由輸入對(duì)話框輸入100個(gè)數(shù)值數(shù)據(jù)放入數(shù)組a。將其中的整數(shù)放入數(shù)組b,然后運(yùn)用

選擇分類法將數(shù)組b中的數(shù)據(jù)按從大到小的順序排列，并以每行5個(gè)數(shù)據(jù)在窗體上輸出。（10

分）

注：程序?qū)懺诖绑wForm的Click事件中。

2001年秋浙江省高校計(jì)算機(jī)等級(jí)考試試卷(二級(jí)VisualBASIC)

試題三、程序填空題(每空2分，共20分)

仔細(xì)閱讀下列各小題的程序說(shuō)明和相應(yīng)的程序，在每小題提供的若干可選答案中，挑選

一個(gè)正確答案。

L【程序說(shuō)明】

本程序求3-100之間的所有素?cái)?shù)(質(zhì)數(shù))并統(tǒng)計(jì)個(gè)數(shù)；同時(shí)將這些素?cái)?shù)從小到大依次寫

入順序文件e:\dataout.txt；素?cái)?shù)的個(gè)數(shù)顯示在窗體Forml上。

【程序】

PrivateSubCommand1_Click()

DimcountAsInteger,flagAsBoolean

DimtlAsInteger,t2AsInteger

⑷)

count=0

Fortl=3To100

flag=True

Fort2=2ToInt(Sqr(tl))

If(42)Thenflag=False

Nextt2

(43)

count=count+1

Write#1,tl

EndIf

Nexttl

(44)

Close#1

EndSub

(41)A、Opene:\dataout.txtForOutputAs#1

B、Open"e:\dataout.txt"ForIntputAs#1

C、Open"e:\dataout.txt"ForOutputAs#2

D^Open'e:\dataout.txt"ForOutputAs#1

(42)A>t2\tl=0B、tlModt2=0

C、t1\t2—0D、t2Modt1—0

(43)A、IfflagThenB、Ift2>tlThen

C、Iftl>t2ThenD、Ift2>Int(Sqr(tl))Then

(44)A、Forml.Print”素?cái)?shù)個(gè)數(shù)："count

B、Print#1”素?cái)?shù)個(gè)數(shù)："；count

C、FormLPrint”素?cái)?shù)個(gè)數(shù):count

D、Forml.Print”素?cái)?shù)個(gè)數(shù)："：count

2.【程序說(shuō)明】

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

簽框Labell上顯示。

1111

------1--------1…?.

1x22x33x4---------------+

【程序】

PrivateSubForm_Click()

DimnAsInteger,sumAsDouble,kAsInteger

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

Do(45)

n=Vai(InputBox("n="，〃請(qǐng)重輸〃))

Loop

sum二0

(46)

Do

k=k+1

sum-(47)

LoopUntilk>=n

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

EndSub

(45)A、Whilen<=0Orn>=30

B、Whilen<=0Andn>=30

C、Untiln>0Orn<30

D、Untiln>=0Andn<=30

(46)A、k=2B、k=lC>k=-1D、k=0

(47)A、l/(k*(k+l))B、1/(k-l)*k

C^sum+1/(k*(k+1))D、sum+1/k*(k+1)

3.【程序說(shuō)明】

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

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

例如:Textl.Text="12345678",則Str2="18273645"

【程序】

PrivateSubForm_Click()

DimStrlAsString,Str2AsString

Strl=Textl.Text

Str2”

m=0

Do(48)

Str2=Str2+(49)

Str2=Str2+(50)

m=m+1

Loop

Form1.PrintStr2

EndSub

(48)A、Whilem<Len(Strl)/2B、Whilem<=Len(Strl)/2

C^Untilm>Len(Strl)/2D、Untilm<Len(Strl)/2

(49)A、Mid(Strl,m,1)B>Mid(Strl,Len(Strl)-m,1)

C、Mid(m,Strl,1)D、Mid(Strl,m+1,1)

(50)A、Mid(Strl,Len(Strl)m+1,1)

B、Mid(Strl,m,1)

C、Mid(Strl,Len(Strl)m,1)

D、Mid(Strl,Len(Strl)m+1,m)

試題四、程序閱讀題(每小題5分，共20分)

閱讀下列程序，寫出運(yùn)行結(jié)果。

1.(5分)

PrivateSubCommand1_Click()

n=0:x=1:y=0

DoWhilex<20

n=n+1

y=x+y

X=X*(x+1)

Loop

Text1.Text=,,n=u&Str(n)

Text2.Text=nx=u&Str(x)

Text3.Text="y="&Str(y)

EndSub

程序運(yùn)行時(shí)單擊Command1后，分別寫出文本框Textl>Text2和Text3的Text值。

2.(5分)

Functionchg(aAsInteger,bAsInteger)AsInteger

DimnAsInteger

Forn=0To2

a=a+b

Nextn

chg=a

EndFunction

PrivateSubForm_Click()

DimaAsInteger,bAsInteger,zAsInteger

a=1:b=1

Forn=1To3

z=chg(a,b)

Form1.Printnn=H;n,nz=n;z

Nextn

EndSub

寫出程序運(yùn)行時(shí)單擊窗體后，F(xiàn)orml上的輸出結(jié)果。

3.(5分)

PrivateSubForm_Click()

Dimx(5)AsInteger

x(l)=8:x(2)=3:x(3)=1:x(4)=6:x(5)=4

Fori=1To4

Forj=i+1To5

Ifx(i)<x(j)Thent=x(i):x(i)=x(j):x(j)=t

Nextj,i

Fork=1To5

Forml.Print”x(”；k;,,)=";x(k)

Nextk

EndSub

寫出程序運(yùn)行時(shí)單擊窗體后，F(xiàn)orml上的輸出結(jié)果。

4.(5分)

PrivateSubForm_Click()

Dima(2,3)AsInteger

Fori=1To2

Forj=1To3

a(i,j)=2*i-j

Nextj,i

Forh=1To3

Fork=1To2

Forml.Printa(k,h),

Nextk

Print

Nexth

EndSub

寫出程序運(yùn)行時(shí)單擊窗體后，F(xiàn)orml上的輸出結(jié)果。

試題五、程序設(shè)計(jì)題(每題10分，共20分)

1.用輸入對(duì)話框輸入x,根據(jù)下式計(jì)算對(duì)應(yīng)的y,并在窗體上輸出y的值。

Vx+sinxx>10

y--0x=10

2/+6x<10

注：程序?qū)懺诿畎粹oCommand1的Click事件中。

2.用戶界面如圖1所示，用于實(shí)現(xiàn)左右兩個(gè)組合框中數(shù)據(jù)的左移和右移功能。程序開始運(yùn)行

時(shí)，在左邊組合框中生成10個(gè)由小到大排列的隨機(jī)三位正整數(shù)(假設(shè)在設(shè)計(jì)階段該組合框的

Sorted屬性值已設(shè)置為True),現(xiàn)要求完成：

(1)單擊“>>”鈕，左邊組合框中的10個(gè)數(shù)全部移到右邊組合框，并由大到小排列，同時(shí)使

“<<”鈕能響應(yīng)，鈕不能響應(yīng)；

(2)單擊“vv”鈕，右邊組合框中的10個(gè)數(shù)全部移到左邊組合框，并由小到大排列，同時(shí)使

鈕能響應(yīng)，“<<"鈕不能響應(yīng)；

(3)單擊“結(jié)束”按鈕，結(jié)束程序運(yùn)行。

圖1

部分程序代碼如下：

PrivateSubForm_Load()

DimiAsInteger

Label1.Caplion=”組合框1”

Label2.Caption="組合框2"

CmdRight.Caption=u?n

CmdRight.Enabled=True

CmdLeft.Caption="?"

CmdLeft.Enabled=False

CmdExit.Caption="結(jié)束”

ComboLeft.Text='M,

Fori=1To10

ComboLeft.AdditemInt(Rnd*900)+100

Nexti

ComboRight.Text=nu

EndSub

請(qǐng)分別編寫三個(gè)命令按鈕的單擊事件。

2002年秋浙江省高校非計(jì)算機(jī)專業(yè)學(xué)生

計(jì)算機(jī)等級(jí)考試試卷(二級(jí)VisualBASIC)

試題三、程序填空題(本題共10分，每空2分)

閱讀下列科序說(shuō)明和相應(yīng)的程序,在每小題提供的若干可選答案中,挑選一個(gè)正確答案。

1.【程序說(shuō)明】本程序運(yùn)行時(shí),無(wú)論如何調(diào)整窗體的邊界，單擊窗體后都以窗體的中心位

置為圓心、以30毫米為半徑畫出一個(gè)圓餅圖。

PrivateSubFormLoad()

FillStyle=0

(36)

EndSub

PrivateSubFormClickO

(37)

FillColor=RGB(255,0,0)

Circle(0,0),30,,-3.14159*2,-3.14159*2/3

FillColor=RGB(0,255,0)

Circle。0),30,,-3.14159*2/3,-3.14159*4/3

Fillcor=RGB(0,0,255)

(38)

EndSub

(36)A>Scalemode=6

B、Scale(-sealeWidth/2,-Sea1ellight/2)-(Sea1eWidth/2,ScaleIleight/2)

C、Forml.Scale(-width/2,-Top/2)-(width/2,Top/2)

D、Scale(-width/2,-Top/2)-(width/2,Top/2)

(37)AsScaleMode=6

B、ScaleMode=l

C>Scale(-SealeWidth/2,-SealeHeight/2)-(SealeWidth/2,ScaleHeight/2)

D>ScaleMode=2

(38)A、Circle(0,0),30,-3.14159*4/3,-3,14159*2

B、Circled,0),30,,-pl*4/3,3.14159*2

C、Circle(0,0),30,,-3.14159*4/3,0

D、Circled,0),30,,-3.14159*4/3,-3.14159*2

2.［程序說(shuō)明］下列程序運(yùn)行時(shí)，單擊Commandl(O)后，從外部文件中讀入的數(shù)據(jù)顯示在組合

框中，如下圖所示。單擊Conimandl(1)后，將組合框中的各表項(xiàng)輸出到外部文件；單擊

Command1(2)后,將組合框中的部分的文本添為組合框的表項(xiàng)；單擊Command1(3)后,將組合框

中選中的表項(xiàng)2i.Forml-t1國(guó)1'-lolxf刪除。

劉海76

建

沈87

98海886543

天

張

翔875677

登

初

平647776保存數(shù)據(jù)

添加記錄

刪除記錄

PrivateSubCommand1Click(IndexAsInteger)

SelectCaseIndex

Case0

Combo1.Clear

Open'd:\aaa.txt"ForinputAs#1

DowhileNotEOF(1)

LineInput#1,a$

Combol.Additema$

Loop

Close#1

Case1

Open"d:\aaa.txt"ForOutputAs#1

ForI%=0ToCombi.listCount-1

Print#1,Combol.list(1%)

Nexti%

Close#1

Case2,添加

(39)

Case3,刪除

(40)

EndSelect

EndSub

(39)A.Combol.AdditemCombol.TextB.Combol.AppendCombol.Text

C.Combol.AddCombol.TextD.Combol.AddltemCombol.List(Listindex)

(40)A.Combol.RemoveCombol.ListindexB.Combol.CISCombol.Listindex

C.Combol.RemoveItemCombol.ListindexC.Combol.ClearCombol.Listindex

試題四、程序閱讀題(本題共20分，每小題5分)

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

PrivateSubCommand1ClickO

DimxAslong,yAsString

x=Inp