全国计算机二级vb机试题库1广东考区Word格式.docx

全国计算机二级vb机试题库1广东考区Word格式.docx

《全国计算机二级vb机试题库1广东考区Word格式.docx》由会员分享，可在线阅读，更多相关《全国计算机二级vb机试题库1广东考区Word格式.docx（165页珍藏版）》请在冰豆网上搜索。

Case1

Text1.Text=?

＋Me.Op1

（1）．Caption＋"

Case2

Text1.Text=b＋Me.Op1

（2）．Caption＋"

EndSelect

EndSub

程序结束

参考答案

第一个？

处填入：

Index

第二个？

a

（1b）【操作步骤】

打开本题工程文件，在窗体中添加两个框架，一个命令按钮和4个单选按钮。

为步骤1建立的控件设置相关属性，程序中用到的控件及属性见表3.5和表3.6。

程序提供代码

PrivateSubFormUnload（CancelAsInteger）

Open"

out4.txt"

ForOutputAs#1

Print#1,Op1.Value,Op2.Value,Op3.Value,Op4.Value,Text1.Text

Close#1

PrivateSubC1_Click（）

Text1.Text="

我是"

IfOp1.ValueThen

Text1.Text=Text1.Text&

Op1.Caption

Else

Op2.Caption

EndIf

IfOp3.ValueThen

Op3.Caption

Op4.Caption

（2a）

【操作步骤】

按题目要求打开工程文件，设置计时器属性,将Enabled属性设置为False，并将Interval属性设置为100。

　Timer1.Enabled=?

PrivateSubTimer1_Timer（）

Statica%

a=a=+1

　IfP1.Top>

P2.Top＋P2.?

Then

P1.MoveP1.Left,P1.Top-5-a,P1.Width,P1.Height

Else

EndIf

第1个？

True

第2个？

Height

第3个？

False

（2b）【操作步骤】

打开本题工程文件。

PrivateFunctionxn（aAsSingle,mAsInteger）

DimiAsInteger

tmp=1

Fori=1Tom

　tmp=?

Next

xn=?

EndFunction

PrivateSubCommand1_Click（）

DimnAsInteger

DimtAsSingle

Dims,xAsSingle

n=Val（Text1.Text）

x=Val（Text2.Text）

z=0

Fori=2Ton

　　　　t=x+i

　z=z+？

Label1.Caption=?

CallSaveResult

PrivateSubSaveResult（）

OpenApp.Path&

"

\out4.dat"

Print#1,Label1.Caption

tmp*a

tmp

xn（t,i）

第4个？

z

（3a）

Dima（100）AsInteger

DimkAsInteger

\in3.dat"

ForInputAs#1

Fork=1To100

　　　　Input#1,a（k）

Nextk

PrivateSubCommand2_Click（）

'

需考生编写

以下Function过程用于判断某数是否为水仙花数

Functionisnarc（pAsInteger）

x=Fix（p/100）

y=Fix（（p-x*100）/10）

z=p-x*100-y*10

Ifp=x^3+y^3+z^3Then

　　　　isnarc=True

　　　　isnarc=False

\out3.dat"

Print#1,Val（Text1.Text）

Print#1,Val（Text2.Text）

DimiAsInteger

DimmaxAsInteger,minAsInteger

max=-1

min=1000

Fori=1To100

Ifisnarc（a（i））Then

Ifmax<

=a（i）Thenmax=a（i）

Ifmin>

=a（i）Thenmin=a（i）

Nexti

Text1=max

Text2=min

（3b）

打开本题工程文件，在窗体中添加一个文本框，一个组合框和一个命令按钮。

设置窗体中控件的属性，控件的属性见表3.12。

表3.12

窗体代码

PrivateSubForm_Unload（CancelAsInteger）

unloadsub

模块代码

Subunloadsub（）

out4.dat"

Print#1,Val（Form1.Cb1.Text）,Val（Form1.Text1.Text）

DimsumAsLong

DimnAsInteger

n=Val（Cb1.Text）

Fori=nTo5000

IfiModn=0Then

sum=sum+i

Text1.Text=sum

（4a）【操作步骤】

新建一个窗体，按照题目要求建立控件并设置控件属性。

程序中用到的控件及属性设置见表3.17和3.18

步骤2：

Combo1.AddItemText1

PrintCombo1.ListCount

（4b）

DimnAsInteger,kAsInteger,mAsInteger

DimcAsString,aAsString

Fork=0To2

　　　　IfOp1（k）．ValueThen

　n=Val（Op1（k）.?

）

　　　　EndIf

m=Len（Text1.Text）

"

　Fork=1To?

　c=Mid$（Text1.Text,?

1）

　　　　c=String（1,Asc（c）+n）

　　　　Ifc>

z"

Orc>

Z"

Andc<

a"

　　　　　c=String（1,Asc（c）-26）

　？

=a+c

Text2.Text=a

Caption

m

k

调试并运行程序，关闭程序后按题目要求存盘。

（5a）

打开本题工程文件，在窗体中添加一个列表框和一个文本框，按照表3.22所示设置控件属性。

表3.22

控件

列表框

文本框

属性

Name

设置值

List1

Text1

PrivateSubForm_MouseDown（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）

IfButton=1Then

　　　　Text1.Text=InputBox（"

请输入要添加的项目"

）

　　　　'

List1.AddItem?

IfButton=2Then

请输入要删除的项目"

Fori=0To?

　　　　　　'

IfList1.List（i）=?

　　　　　　　　'

List1.RemoveItem?

　　　　　　EndIf

　　　　Nexti

Text1.Text

List1.ListCount－1

i

（5b）

打开本题工程文