上海市计算机VB二级题目B卷文档格式.docx
《上海市计算机VB二级题目B卷文档格式.docx》由会员分享，可在线阅读，更多相关《上海市计算机VB二级题目B卷文档格式.docx（12页珍藏版）》请在冰豆网上搜索。
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
If
（2）=0Then
s=s+a（i）
n=n+1
EndIf
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<
bThenPrinta,b
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
男"
Label2.Caption=（3）&
，现年"
（Year（Date）-（4））&
岁"
操作题
四、程序改错题（两小题，共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&
/"
+"
'
在Label内显示数列项
IfiMod4=0Then'
每行显示4项，vbCrLf回车换行
Label1.Caption=Label1.Caption&
vbCrLf
EndIf
s=s+m/n
t=m+n
m=n
n=t
Label1.Caption=Label1.Caption&
="
Format（s,"
##.###"
）
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
五、编程题
编写一个完整的程序，要求如下：
1．在Form1窗体上放置2个文本框、1个"
购票"
命令按钮、2个列表框，其他说明性标签如样例。
设置Text2为多行且有滚动条，列表框List1预设置"
平日普通票、平日优惠票、指定日普通票、指定日优惠票"
4项数据。
按下表建立菜单。
菜单标题
菜单名称
备注
预售门票
Menu1
一级菜单
…读文件
Menu11
二级菜单
…-
bar
分隔线
…退出
Menu13
预测
Menu2
建立Form2窗体，窗体上放置时钟控件，"
预测"
、"
累计进场人数"
和"
返回"
3个按钮及3个标签。
2．
升级会员 