上海市计算机VB二级题目B卷.docx

上海市计算机VB二级题目B卷.docx

《上海市计算机VB二级题目B卷.docx》由会员分享，可在线阅读，更多相关《上海市计算机VB二级题目B卷.docx（12页珍藏版）》请在冰豆网上搜索。

1.表达式12+8Mod5\3-1中最先计算的是____________。

A.12+8B.8MOD5C5\3D3-1

2.设a=16，b=28，则以下表达式的值为“真”的是____________。

A.a-b>0B.a

其余情况都为true

b<0C.Not（a<0orb>0）D.a*b<440

3.下列可作为VisualBasic变量名的是____________。

A.a#bcB.DOC.6dD.Dowhile变量命名中不能使用非法字符*、#等，不能有空格，不能数字开头，不能用系统语句、函数名、常量作变量名

4.以下符号常量声明中，错误的是____________。

A.ConstX!

=sin（0）Sin30在VB中表达为sin（30*3.1416/180）

B.ConstM!

=2*365C.ConstC$=""D.ConstN%=100

5.在菜单编辑器中，若菜单项前面有符号“....”，表示该菜单项是____________。

A.子菜单项B.主菜单项C.下拉式菜单D.弹出式菜单

6.在VB开发集成环境中，如果工具箱消失了，可在____________主菜单中选择“工具箱”菜单项使其重现。

A.视图B.窗口C.文件D.编辑

7.执行了Text1.Text=Now（）-1语句后，Text1内显示____________。

A.今天的日期和当前的时间B.昨天的日期和当前时间C.明天的日期和当前时间D.语法出错

8.设组合框Combo1中有3个项目，则以下能删除最后一项的语句是____________。

A.combol.RemveitemtextB.combol.Removeitem2C.combol.Removeitemcombol.ListcountD.combol.Removeitem3

9.下列语句中，能够删除文本框Text1中被选定内容的是____________。

A.Text1.Text=""

B.Text1.Sellength=0

C.Text1.Seltext=""

D.Text1.Selstart=0

10.以下关于窗体Name属性的叙述中正确的是____________。

A.代码中通过Name属性引用窗体

B.可以在运行期间改变窗体的Name属性的值

C.窗体的Name属性值可以为空

D.窗体的Name属性值是显示在窗体标题栏中文本

填空

①　写出0＜x≤1的VB表达式为___x>0andx<=1_________。

②　在VB6.0中，用____________方法可以重定义坐标系。

③　函数Val（"24and57"）的返回值是____________。

④　设a=4,b=5,c=6,d=7，执行语句x=IIfIIF（<表达式），<表达式1>，<表达式2>）当表达式为真输出表达式1，为假，输出表达式2

（（a>b）And（c>d）,10,20）后，x的值为______20______。

⑤　若有一名为Menua的菜单项，为了在运行时使该菜单项不可见，应使用的语句是__Menua.Visible=False__________。

⑥　在程序代码Text1.Text="VisualBasic"中，表示对象的是__Text1__________。

⑦　图像控件Image1要引用图片框控件Picture1中的图像，可使用语句Image1.Picture=__Picture1.Picture__________。

程序填空

a.以下程序的功能是：

随机产生10个两位数的正整数，保存在数组a中，现要求计算该数组中所有能被3整除元素的平均值。

Dima（1To10）AsInteger

Dimi%,n%,s%

Fori=1To10

a（i）=Int（

（1）Rnd*90。

Rnd为随机函数，答案为【0+90）+10=【10,100）

）+10

Printa（i）;

Nexti

Print

s=0

n=0

Fori=1To10

If

（2）=0Then

s=s+a（i）

n=n+1

EndIf

Nexti

Print（3）

b.以下程序的功能是：

求2000以内满足如下条件的正整数对：

彼此的全部约数之和（本身除外）与另一方相等。

例如220与284:

220的全部约数（除掉220本身）相加的和是:

1+2+4+5+10+11+20+22+44+55+110=284

284的全部约数（除掉284本身）相加的和是：

1+2+4+71+142=220

程序的思想是：

对正整数a，调用函数过程sy（a）求解约数之和b，再次调用函数过程sy（b）求出数b的约数之和t，按定义判断a,b是否满足条件。

'sy函数过程求n的所有约数（除本身外）之和

Functionsy（nAsInteger）AsInteger

DimsumAsInteger,iAsInteger

sum=0

Fori=1To

（1）

IfnModi=0Thensum=

（2）

Nexti

（3）=sum

EndFunction

PrivateSubCommand1_Click（）'求2000以内满足条件的正整数对

DimaAsInteger,bAsInteger,tAsInteger

Fora=2To2000

b=sy（a）

t=（4）

If（5）Anda

Nexta

EndSub

c.以下程序的功能是：

在文本框Text1内输入身份证号码，单击命令按钮，检查所输入的号码是否为18位，若正确，从身份证号码中分离出出生日期和性别，计算当前年龄，按图示方式显示结果。

PrivateSubCommand1_Click（）

Dimsfz,y,ssAsString

Dimm,dAsInteger

sfz=Text1.Text

If

（1）<>18Then

MsgBox"位数不对,请重新输入！

"

Text1.Text=""

Text1.SetFocus

EndIf

y=Mid（

（2））

m=Val（Mid（sfz,11,2））

d=Val（Mid（sfz,13,2））

Text2.Text=y&"年"&m&"月"&d&"日出生"

ss=Mid（sfz,17,1）

IfVal（ss）Mod2=0Then

ss="女"

Else

ss="男"

EndIf

Label2.Caption=（3）&"，现年"&（Year（Date）-（4））&"岁"

EndSub

操作题

四、程序改错题（两小题，共10分，每处2分）

启动工程文件C:

\ks\exm2.vbp，程序存在5个错误，请调试改正，并按原文件名和位置保存。

正确结果见样例。

改错方法：

不能修改或重新定义变量，不允许增加或删除语句，不可以改变语句次序，但可以修改语句,所修改的语句必须在句尾加上注释标记'*****。

1.改错题1

'以下程序的功能是：

求数列2/1，3/2，5/3，8/5，……前12项之和，并在Label内按每行4个显示数列项，最后显示其和。

（数列的后一项的分子为前一项的分子与分母之和，后一项的分母为前一项的分子）

'程序中有3个错误，请调试改正。

SubCommand1_Click（）

DimsAsDouble,iAsInteger,nAsSingle,mAsSingle

lable1.Caption=""

n=2

m=1

s=1

Fori=1To12

Label1.Caption=Label1.Caption&n&"/"&m&"+"'在Label内显示数列项

IfiMod4=0Then'每行显示4项，vbCrLf回车换行

Label1.Caption=Label1.Caption&vbCrLf

EndIf

s=s+m/n

t=m+n

m=n

n=t

Nexti

Label1.Caption=Label1.Caption&"="&Format（s,"##.###"）

EndSub

2.改错题2

'本程序用字母A～I在Picture1控件显示一个三角型（1个A，3个B，5个C，……,17个I）。

'程序中有2个错误，请调试改正。

SubCommand2_Click（）

Dimn%,m%

Picture1.Cls

Forn=1To9

Picture1.PrintTab（20-n）;

Form=1Ton '产生一行上的字母

Picture1.Printn;

Nextm

Picture1.Print

Nextn

EndSub

五、编程题

编写一个完整的程序，要求如下：

1．在Form1窗体上放置2个文本框、1个"购票"命令按钮、2个列表框，其他说明性标签如样例。

设置Text2为多行且有滚动条，列表框List1预设置"平日普通票、平日优惠票、指定日普通票、指定日优惠票"4项数据。

按下表建立菜单。

菜单标题

菜单名称

备注

预售门票

Menu1

一级菜单

…读文件

Menu11

二级菜单

…-

bar

分隔线

…退出

Menu13

二级菜单

预测

Menu2

一级菜单

建立Form2窗体，窗体上放置时钟控件，"预测"、"累计进场人数"和"返回"3个按钮及3个标签。

2．