vb2级题答案.docx

vb2级题答案.docx

《vb2级题答案.docx》由会员分享，可在线阅读，更多相关《vb2级题答案.docx（32页珍藏版）》请在冰豆网上搜索。

vb2级题答案

一

（1）将列表框的sorted属性改为true

一

（2）”缩小“中的代码为:

Label1.fontsize=label1.fontsize-2

“还原“中代码:

label1.fontsize=12

二

（1）将Ifnum/2?

Fix（num/2）Then中的？

改为<>

将Ifnum

（1）?

num>a（30）Then中的？

改为or

将Ifa（n）=?

Then?

改为num

将Ifn?

30Then中的?

改为>

二

（2）将?

=（a（i,2）+a（i,3））/2中的?

必变Avg

将Case?

改为is>=85

将第二个Case?

改为is>=60

将?

改为endselect

将text1（?

）=x（n）中的?

改为n-1

三.

“计算”中代码:

Fori=1To20

Sum=0

Forj=1To5

Sum=Sum+a（i,j）

Next

Avg=Sum/5

IfAvg>MaxThenMax=Avg

Next

Text2.Text=Max

第六十八套

一

（1）画一个通用对话框控件，通过其属性窗口将名称设为CD1，DialogTitle属性设为“保存等级考试”，FileName属性设为None，InitDir属性设为c:

\。

一

（2）通过菜单编辑器建立一个主菜单，在菜单编辑器的标题处输入“菜单命令”，名称处输入menu0。

在“右键菜单”菜单下有二个子菜单，在菜单编辑器的标题处分别输入“不可用菜单项”、“上一菜单项可用”，名称处分别输入menu1和menu2。

在Submenu2_Click（）事件过程中加入语句：

PrivateSubmenu2_Click（）

menu1.Enabled=True

EndSub

二

（1）在PrivateSubCommand1_Click（）事件过程中

1）将语句

'Ifa（i）?

xThen

改为

Ifa（i）>xThen

2）将语句

'?

=a（i）

改为

x=a（i）

3）将语句

'ElseIfa（i）?

Then

改为

ElseIfa（i）

4）将语句

'?

=a（i）

改为

y=a（i）

二

（2）通过List1属性窗口将MultiSelect属性设为Simple。

在PublicSubMoveItem（L1AsListBox,L2AsListBox）事件过程中

1）将语句

'L2.AddItem?

改为

L2.AddItemL1.List（L1.ListIndex）

2）将语句

'L1.RemoveItem?

改为

L1.RemoveItemL1.ListIndex

在PublicSubMoveAll（）事件过程中

1）将语句

'Fori=0To?

改为

Fori=0ToList1.ListCount-1

在PrivateSubList1_DblClick（）事件过程中

'CallMoveItem（?

）

改为

CallMoveItem（List1,List2）

三单击“计算”按钮：

PrivateSubCommand1_Click（）

DimSumAsLong

N=7

Counter=0

Sum=0

'===============考生编写程序开始======================

Fork=1ToN

Sum=Sum+a（k,k）

Ifa（k,k）/3=Int（a（k,k）/3）Then

Counter=Counter+1

EndIf

Ifk<>N-k+1Then

Sum=Sum+a（k,N-k+1）

Ifa（k,N-k+1）/3=Int（a（k,N-k+1）/3）Then

Counter=Counter+1

EndIf

EndIf

Next

lblSecond.Caption=Sum

lblFirst.Caption=Counter

'===============考生编写程序结束======================

Save

EndSub

第六十七套

一

（1）画一个标签控件，通过其属性窗口将名称设为Label1，标题（Caption属性）设为“滚动条控件”。

画一个水平滚动条控件，通过其属性窗口将名称设为HScroll1，最大值（Max属性）设为100，最小值（Min属性）设为1，宽度（Width属性）设为3000，高度（Height属性）设为300，Value属性设为20。

一

（2）画一个形状控件，通过其属性窗口将名称设为Shape1，Shape属性设为Circle。

画一个计时器控件，通过其属性窗口将名称设为Timer1，Enabled属性设为False，Interval属性设为500。

在PrivateSubForm_Load（）事件过程中加入语句：

PrivateSubForm_Load（）

Timer1.Enabled=True

EndSub

在PrivateSubTimer1_Timer（）事件过程中加入语句：

PrivateSubTimer1_Timer（）

Shape1.Top=Shape1.Top+100

EndSub

二

（1）在PrivateSubText2_Change事件过程中

1）将语句

'If?

=1Then

改为

IfCheck1.Value=1Then

2）将语句

'Form1.Text3.PasswordChar=?

改为

Form1.Text3.PasswordChar=""

3）将语句

'Text3.PasswordChar=?

改为

Text3.PasswordChar="#"

4）将语句

'Text3.Text=?

改为

Text3.Text=Text2.Text

二

（2）在PrivateSubCommand1_Click（）事件过程中

1）将语句

'Fork=2To?

改为

Fork=2To5

2）将语句

'x=FindMin（Val（Text1（k）.Text）,?

）

改为

x=FindMin（Val（Text1（k）.Text）,x）

3）将语句

'lblResult.Caption=?

改为

lblResult.Caption=x

在PublicFunctionFindMin（xAsInteger,yAsInteger）事件过程中

1）将语句

'Ifx?

yThen

改为

Ifx>yThen

三Sum=0

n=0

Fori=1to7

Forj=1to7

ifi=1ori=7then

Sum=Sum+a（i,j）

ifa（i,j）thenn=n+1

Else

ifj=1orj=7then

Sum=Sum+a（i,j）

ifa（i,j）mod7=0thenn=n+1

endif

endif

next

print

next

lb1first.caption=n

lb1second点caption=Sum

第六十六套

一

（1）画一个形状控件，通过其属性窗口将名称设为Shape1，Shape属性设为2，长轴（Width属性）设为1600，短轴（Height属性）设为800。

激活Form1窗体，通过其属性窗口将标题（Caption属性）设为“Shape控件”。

一

（2）画一个水平滚动条控件，通过其属性窗口将名称设为HS，最大值（Max属性）设为100，最小值（Min属性）设为1。

画一个列表框控件，通过其属性窗口将名称设为List1，向列表框中添加项目（List属性），添加的项目分别为“1000”、“1500”、“2000”，每个项目为一行。

单击列表框中某一项目（即运行Click事件过程），在该Click事件过程中加入语句：

PrivateSubList1_Click（）

HS.Width=List1.Text

EndSub

二

（1）在PrivateSubOption1_Click（IndexAsInteger）事件过程中

1）将语句

'SelectCase?

改为

SelectCaseIndex

2）将语句

'Text2.Text=f1（?

）

改为

Text2.Text=f1（n）

3）将语句

'Text2.Text=f1（?

）

改为

Text2.Text=f1（n+2）

在PublicFunctionf1（nAsInteger）AsInteger事件过程中

1）将语句

'Fori=1To?

改为

Fori=1Ton

2）将语句

'?

=x

改为

f1=x

二

（2）在PrivateSubCommand1_Click（）事件过程中

1）将语句

'p=?

（s,s1）

改为

p=InStr（s,s1）

2）将语句

's=?

（s,p+1）

改为

s=Mid（s,p+1）

3）将语句

'LoopWhilep?

0

改为

LoopWhilep<>0

4）将语句

'Label3.Caption=?

改为

Label3.Caption=n

在PrivateSubForm_Load（）事件过程中

1）将语句

'Text1.Text=?

改为

Text1.Text=s

三单击“计算”按钮：

PrivateSubC1_Click（）

a%=18000

Do

a%=a%-1

LoopUntilisprime（a%）

Text1.Text=a%

EndSub

单击“存盘”按钮：

PrivateSubC2_Click（）

OpenApp.Path&"\out5.txt"ForOutputAs#1

Print#1,Text1.Text

Close#1

EndSub

第六十五套

一

（1）通过菜单编辑器建立二个主菜单，在菜单编辑器的标题处分别输入“文件”和“退出”，名称处分别输入file和exit。

在“文件”菜单下有二个子菜单，在菜单编辑器的标题处分别输入“新建”和“保存”，名称处分别输入new和save。

一

（2）画一个图像框控件，通过其属性窗口将名称设为Image1，左边界（Left属性）设为360，点击Picture属性在弹出的加载图片对话框中将Duck.bmp图片文件打开即实现加载功能。

画二个命令按钮控件，通过其属性窗口将名称分别设为“Command1”、“Command2”，标题（Caption属性）分别设为“移动”、“复位”。

单击“移动”按钮：

PrivateSubCommand1_Click（）

Image1.Left=Image1.Left+10

EndSub

单击“复位”按钮：

PrivateSubCommand2_Click（）

Image1.Left=360

EndSub

二

（1）添加一个计时器控件，通过其属性窗口将Enabled属性设为False，Interval属性设为3000。

在命令按钮数组的PrivateSubCmd_Click（IndexAsInteger）事件过程中

1）将语句

'IfIndex=?

Then

改为

IfIndex=2Then

2）将语句

'Timer1.Enabled=?

改为

Timer1.Enabled=True

在计时器的PrivateSubTimer1_Timer（）事件过程中

1）将语句

'SelectCase?

改为

SelectCaseflag

二

（2）在窗体的PrivateSubCommand2_Click（）事件过程中

1）将语句

'IfLen（s）=?

Then

改为

IfLen（s）=0Then

2）将语句

'IfText1.?

=0Then

改为

IfText1.SelLength=0Then

3）将语句

'x=?

改为

x=LCase（t）

4）将语句

'?

=Str（m）

改为

Text2.Text=Str（m）

三单击“素数”按钮：

PrivateSubCommand2_Click（）

Dimb（100）AsInteger

num=0

IfLen（Text1.Text）=0Then

MsgBox"请先执行“读数据”功能！

"

Else

'考生编写（功能：

生成存放素数的数组b）

'注意：

请务必将数组b的元素个数存入变量num中

Fori=1To100

flag=0

Forj=2Toa（i）-1

Ifa（i）/j=Fix（a（i）/j）Then

flag=1

ExitFor

EndIf

Next

Ifflag=0Then

num=num+1

b（num）=a（i）

EndIf

Next

'以下程序段将b数组的内容显示在Text2中

Fori=1Tonum

Text2.Text=Text2.Text+Str（b（i））+Space

（2）

Nexti

EndIf

EndSub

第六十五套

一

（1）通过菜单编辑器建立二个主菜单，在菜单编辑器的标题处分别输入“文件”和“退出”，名称处分别输入file和exit。

在“文件”菜单下有二个子菜单，在菜单编辑器的标题处分别输入“新建”和“保存”，名称处分别输入new和save。

一

（2）画一个图像框控件，通过其属性窗口将名称设为Image1，左边界（Left属性）设为360，点击Picture属性在弹出的加载图片对话框中将Duck.bmp图片文件打开即实现加载功能。

画二个命令按钮控件，通过其属性窗口将名称分别设为“Command1”、“Command2”，标题（Caption属性）分别设为“移动”、“复位”。

单击“移动”按钮：

PrivateSubCommand1_Click（）

Image1.Left=Image1.Left+10

EndSub

单击“复位”按钮：

PrivateSubCommand2_Click（）

Image1.Left=360

EndSub

二

（1）添加一个计时器控件，通过其属性窗口将Enabled属性设为False，Interval属性设为3000。

在命令按钮数组的PrivateSubCmd_Click（IndexAsInteger）事件过程中

1）将语句

'IfIndex=?

Then

改为

IfIndex=2Then

2）将语句

'Timer1.Enabled=?

改为

Timer1.Enabled=True

在计时器的PrivateSubTimer1_Timer（）事件过程中

1）将语句

'SelectCase?

改为

SelectCaseflag

二

（2）在窗体的PrivateSubCommand2_Click（）事件过程中

1）将语句

'IfLen（s）=?

Then

改为

IfLen（s）=0Then

2）将语句

'IfText1.?

=0Then

改为

IfText1.SelLength=0Then

3）将语句

'x=?

改为

x=LCase（t）

4）将语句

'?

=Str（m）

改为

Text2.Text=Str（m）

三单击“素数”按钮：

PrivateSubCommand2_Click（）

Dimb（100）AsInteger

num=0

IfLen（Text1.Text）=0Then

MsgBox"请先执行“读数据”功能！

"

Else

'考生编写（功能：

生成存放素数的数组b）

'注意：

请务必将数组b的元素个数存入变量num中

Fori=1To100

flag=0

Forj=2Toa（i）-1

Ifa（i）/j=Fix（a（i）/j）Then

flag=1

ExitFor

EndIf

Next

Ifflag=0Then

num=num+1

b（num）=a（i）

EndIf

Next

'以下程序段将b数组的内容显示在Text2中

Fori=1Tonum

Text2.Text=Text2.Text+Str（b（i））+Space

（2）

Nexti

EndIf

EndSub

第六十五套

一

（1）通过菜单编辑器建立二个主菜单，在菜单编辑器的标题处分别输入“文件”和“退出”，名称处分别输入file和exit。

在“文件”菜单下有二个子菜单，在菜单编辑器的标题处分别输入“新建”和“保存”，名称处分别输入new和save。

一

（2）画一个图像框控件，通过其属性窗口将名称设为Image1，左边界（Left属性）设为360，点击Picture属性在弹出的加载图片对话框中将Duck.bmp图片文件打开即实现加载功能。

画二个命令按钮控件，通过其属性窗口将名称分别设为“Command1”、“Command2”，标题（Caption属性）分别设为“移动”、“复位”。

单击“移动”按钮：

PrivateSubCommand1_Click（）

Image1.Left=Image1.Left+10

EndSub

单击“复位”按钮：

PrivateSubCommand2_Click（）

Image1.Left=360

EndSub

二

（1）添加一个计时器控件，通过其属性窗口将Enabled属性设为False，Interval属性设为3000。

在命令按钮数组的PrivateSubCmd_Click（IndexAsInteger）事件过程中

1）将语句

'IfIndex=?

Then

改为

IfIndex=2Then

2）将语句

'Timer1.Enabled=?

改为

Timer1.Enabled=True

在计时器的PrivateSubTimer1_Timer（）事件过程中

1）将语句

'SelectCase?

改为

SelectCaseflag

二

（2）在窗体的PrivateSubCommand2_Click（）事件过程中

1）将语句

'IfLen（s）=?

Then

改为

IfLen（s）=0Then

2）将语句

'IfText1.?

=0Then

改为

IfText1.SelLength=0Then

3）将语句

'x=?

改为

x=LCase（t）

4）将语句

'?

=Str（m）

改为

Text2.Text=Str（m）

三单击“素数”按钮：

PrivateSubCommand2_Click（）

Dimb（100）AsInteger

num=0

IfLen（Text1.Text）=0Then

MsgBox"请先执行“读数据”功能！

"

Else

'考生编写（功能：

生成存放素数的数组b）

'注意：

请务必将数组b的元素个数存入变量num中

Fori=1To100

flag=0

Forj=2Toa（i）-1

Ifa（i）/j=Fix（a（i）/j）Then

flag=1

ExitFor

EndIf

Next

Ifflag=0Then

num=num+1

b（num）=a（i）

EndIf

Next

'以下程序段将b数组的内容显示在Text2中

Fori=1Tonum

Text2.Text=Text2.Text+Str（b（i））+Space

（2）

Nexti

EndIf

EndSub

第六十三套

一

（1）画一个文本框控件，通过其属性窗口将名称设为Text1，文本内容（Text属性）设为空，宽（Width属性）设为1800，点击Font属性在弹出的字体对话框中将字号设为“三号”，MaxLength属性设为6。

激活Form1窗体，通过其属性窗口将标题（Caption属性）设为“文本框练习”。

一

（2）画一个标签控件，通过其属性窗口将名称设为Label1，标题（Caption属性）设为“计算机等级考试”，AutoSiz属性设为True，点击Font属性在弹出的字体对话框中将字体设为“宋体”，字号设为“12”。

画二个命令按钮控件，通过其属性窗口将名称分别设为“Command1”和“Command2”，标题（Caption属性）分别设为“放大”和“还原”。

单击“放大”按钮：

PrivateSubCommand1_Click（）

Label1.FontSize=Label1.FontSize+2

EndSub

单击“还原”按钮：

PrivateSubCommand2_Click（）

Label1.FontSize=12

EndSub

二

（1）添加一个计时器控件，通过其属性窗口将Enabled属性设为False，Interval属性设为1000。

在命令按钮数组的PrivateSubCmd_Click（IndexAsInteger）事件过程中

1）将语句

'SelectCase?

改为

SelectCaseIndex

2）将语句

'Timer1.Enable