郑州大学VB模拟题5.docx
《郑州大学VB模拟题5.docx》由会员分享，可在线阅读，更多相关《郑州大学VB模拟题5.docx（40页珍藏版）》请在冰点文库上搜索。
郑州大学VB模拟题5
【HNCE网上考试系统v9.6】本套软件使用权属于：
郑州大学
考试课程:
考试时间:
90分钟考场:
第一考场考试日期:
2012.05.07
考号：
20113160128姓名：
剩余时间：
89:
45保存交卷退出帮助
本卷共有3道大题:
一、单项选择题（50道小题，共50分）
1
、已知x=2,y=9,z=－4，逻辑表达式x>yORz>xANDNOTz>y
的值是______。
（1分）
A、True
B、-1
C、0
D、False
2
、PrintFormat（1234.234,"###.#####"）;Format（1234.234,"########.##"）
的显示结果是______。
（1分）
A、1234.2341234.23
B、123.234001234.234
C、123.234001234.23
D、1234.2341234.234
3
、以下关于InputBox函数的叙述中，错误的是
______。
（1分）
A、InputBox
函数的“提示信息参数”不能缺省
B、每执行一次InputBox
函数，只能输入一个值
C、InputBox
函数的返回值是数值型的
D、要保存InputBox函数的返回值必须赋予一个变量
4
、以下不合法的常量是______。
（1分）
A、10^2
B、100
C、100.0
D、10E+01
5、程序如下：
k=0:
DoUntilk>10:
k=k+1:
Loop
的循环体执行次数是
______。
（1分）
A、9
B、10
C、11D、无数次
6、设a=3，b=5，则以下表达式值为假的是______。
（1分）
A、a>=bAndb>l0B、（a>b）Or（b>2）
C、（a<0）or（b>0）D、（5>a）And（b>2）
7、abc％，abc!
，abc$，abc#分别声明abc是______。
（1分）
A、整型、单精度、字符串、双精度变量B、整型、整型、字符串、双精度变量
C、单精度、整型、字符串、双精度变量
D、整型、双精度、字符串、双精度变量
8、文本框中的ScrollBars属性已设置为
3-Both，但却没有水平和垂直滚动条的效果，原因可能是
______。
（1分）
A、文本框中没有内容
B、文本框的MultiLine属性为False
C、文本框的MaxLength属性为0
D、文本框的Locked属性是True
9、下面四个语句中，正确的赋值语句是
______。
（1分）
A、a=a+c
B、a+c=a
C、c+a=a
D、a－c=a
10、窗体上有一个文本框和一个命名按钮，当向文本框中输入一个字符时，命令按钮的标题设置为“计算机考试”。
下
面正确的事件过程为______。
（1分）
A、PrivateSubCommand1_Click（）:
Command1.Caption
B、PrivateSubCommand1_Click（）:
Text1="
计算机
="计算机考试":
EndSub
考试":
EndSub
C、PrivateSubText1_Change（）:
Command1.Caption=
D、PrivateSubText1_Click（）:
Text1.Caption="
"计算机考试":
EndSub
计算机考试":
EndSub
11、运行程序：
x=2:
Fori=1To10Step2:
x=x+i:
Next
，x的值是______。
（1分）
A、26
B、27
C、38
D、57
12、启动VisualBasic后，VB为用户新建立的第一个工程的名字是
______。
（1分）
A、窗体1
B、工程
C、窗体
D、工程1
13、下列叙述中，正确的是______。
（1分）
A、工程文件（.vbp）应用程序可以在任何计算机上运
B、打开一个工程文件，系统自动装入与该工程有关的
行
窗体文件
C、VB工程文件中可以没有窗体文件D、退出VB系统前要保存新创建的应用程序，只需保存
工程文件（.vbp）即可
14、若要选择Text对象的Text1_KeyPress事件，可以______。
（1分）
A、在属性窗口中选择
B、在工程资源管理器窗口中选择
C、在代码设计窗口中利用对象列表框、过程列表框选
D、在窗体设计窗口中双击
Text1对象
择
15、Cls方法可以清除窗体或图片框中的
______。
（1
分）
A、在设计阶段使用Picture设置的背景位图B、在设计阶段放置的控件
C、在运行阶段产生的图形和文字
D、以上全部内容
16、比较两个数中较大的数的程序段，错误的是
______。
（1分）
A、IFx>yThenmax=xElsemax=y
B、max=IIF（x>y,x,y）
C、IFx>yThenmax=x:
max=y
D、max=x:
Ifx17、窗体上有一个标签Label1和一个命名按钮
Command1，当程序运行时每单击一次命令按钮，标签就向右移动一定距
离。
在Command1_Click（）中能完成这个功能的命令为______。
（1分）
A、Label1.Left=100
B、Label1.Left=Label1.Left-100
C、Label1.Move100
D、Label1.MoveLabel1.Left+100
18、能产生[10，32]之间随机整数的函数表达式为
______。
（1分）
A、Int（Rnd*22）+10
B、Int（Rnd*23）+10
C、Int（Rnd*22）+11
D、Int（Rnd*23）+11
19、不属于一个工程文件（*.vbp）里的文件是______。
（1分）
A、*.txt
文件
B、*.bas
文件
C、*.cls
文件
D、*.frm
文件
20、程序如下：
i=0:
s=0:
Do:
i=i+2:
s=i+s:
LoopUntili>4
，执行后s的值是______（1分）
A、10
B、11
C、12D、15
21、与传统的程序设计语言相比较，VisualBasic
最突出的特点是______。
（1分）
A、结构化的程序设计
B、数据处理
C、面向对象的可视化编程
D、中文支持
22、能够盛放其他控件，而且是最基本的对象是
______。
（1分）
A、窗体
B、图像
C、标签
D、文本
23、窗体设计器是用于设计______。
（1分）
A、窗体的代码
B、对象的属性
C、应用程序的代码
D、应用程序的界面
24、如果VB环境中缺少某个窗口，一般应从主菜单
______的下拉菜单中找到相应的激活命令。
（1分）
A、编辑
B、文件
C、视图
D、调试
25、在下列语句中，正确的是______。
（1分）
A、Text1.Text+Text2.Text=Text3.Text
B、Command1.Name="cmdok"
C、Label1.Caption=4567
D、x=InputBox（pleaseinput）
26、执行语句age=InputBox（"请输入数值","
年龄输入框","38"），如果从键盘上输入数值
20并按回车键，则下列
叙述中,不正确的叙述是______。
（1分）
A、变量Age的值是数值20
B、对话框标题栏中显示的是
"年龄输入框"
C、对话框的默认值是38
D、对话框的提示文字为"请输入数值"
27、PrintDateDiff（"m",#1/28/2004#,#1/31/2004#）
的输出结果是______。
（1分）
A、O
B、1
C、-1
D、2
28、在下列符号常量的声明中，______是不合法的。
（1分）
A、ConstaAsSingle=2.6
B、ConstaAsInteger="ab"
C、ConstaAsDouble=2*2
D、Consta="OK"
29、执行程序段：
Constc$="Henan":
c$="Zhengzhou":
c$="Daxue":
Printc$
，输出的结果是______。
（1分）
A、Henan
B、Zhengzhou
C、Daxue
D、显示出错信息
30、m、n是整数，且n>m，在以下4个语句中，能将
x赋值为一个m～n之间（含m,n）的任意整数，即满足m≥x≥n
的是______。
（1分）
A、x=Int（Rnd*n）+m
B、x=Int（Rnd*（n
–m+1））+m
C、x=Int（Rnd*m）+n
D、x=Int（Rnd*（n-m））+m
31、方法Print"等级";"考试"，输出的结果是______。
（1分）
A、等级考试
B、等级;考试
C、"等级考试"
D、"等级";"考试"
32、下列数据中，______是日期型数据。
（1分）
A、"01/30/2004"
B、Date（"01/30/2004"）
C、#01/30/2004#
D、01/30/2004
33、下列选项中，______不是字符串常量。
（1分）
A、"你好"
B、""
C、"True"
D、#False#
34、执行程序段：
a=6:
b=8:
F=Sqr（a*a+b*b）:
PrintF
，输出的结果是______。
（1分）
A、6
B、8
C、10
D、14
35、InputBox函数返回值的类型为______。
（1分）
A、数值B、字符串
C、变体D、数值或字符串
36、设有变量声明：
DimTestDateAsDate，为变量TestDate正确赋值的表达方式是______。
（1分）
A、TestDate=#1/1/2002#B、TestDate=#"1/1/2002"#
C、TestDate=Date（"1/1/2002"）D、TestDate=Format（"m/d/yy","1/l/2002"）
37、下面表达式中，______的运算结果与其他3个不同。
（1分）
A、Log（Exp（-3.5））B、Int（-3.5）+0.5
C、-Abs（-3.5）D、Sin（30*3.14/180）
38、语句X=X+1的正确含义是______。
（1分）
A、变量X的值与X+1的值相等B、将变量X的值存到X+1中去
C、将变量X的值加1后赋给变量XD、变量X的值为1
39、执行程序段：
a$="China":
b$=Right$（a$,3）:
c$=String$（3,b$）:
Printc$，输出的结果是______。
（1
分）
A、ChiB、aaa
C、iiiD、ina
40、执行程序段：
DimaxsAsInteger:
axs%=232:
axs=232.32:
Printaxs%;axs，输出的结果是______。
（1分）
A、232232032B、232232
C、232.32232.32D、显示出错信息
41、变量未赋值时，数值型变量的值为______。
（1分）
A、OB、空串""
C、NullD、没任何值
42、假设变量iVar是一个整型变量，则执行赋值语句iVar="2"+"3"之后，变量iVar的值是______。
（1分）
A、2B、3
C、5D、23
43、语句Print4+5\6*7/8Mod9
的值是______。
（1分）
A、4
B、5
C、6
D、7
44、执行语句PrintFormat（32548.5,"###,##0.00"）
，输出结果是______。
（1分）
A、32548.5
B、32,548.5
C、032,548.50
D、32,548.50
45、下列不合法的常量形式是______。
（1
分）
A、"1O0"
B、100.0
C、1OE+0.5
D、ConstG=23+12
46、设有变体变量x，执行语句：
x=InputBox（"
输入数值","0","
示例"）后，如果从键盘上输入
10并按回车键，则下
列叙述中正确的是______。
（1分）
A、变量x的值是数值10
B、在InputBox对话框标题栏中显示的是“示例”
C、0是默认值
D、变量x的值是字符串“10”
47、下列符号常量的声明中，______是不合法的。
（1分）
A、ConstaAsSingle=1.1
B、ConstaAsInteger="12"
C、ConstaAsDouble=Sin
（1）
D、Consta="OK"
48、某中心选拔身高T超过1.7
米且体重W小于52.5公斤的学员，能正确表示该条件的布尔表达式是
______。
（1分）
A、T>=1.7AndW<=52.5
B、T<=1.7OrW>=52.5
C、T>1.7AndW<52.5
D、T>1.7OrW<625
49、以下声明语句中，错误的是
______。
（1分）
A、Constvarl=123
B、Constvar2="ABC"
C、Publicconst="
计算机等级考试"
D、Staticvar3asInteger
50、表达式"Turbo"+"C">"True"+"Basic"的值是______。
（1分）
A、TrueB、False
C、NullD、出错信息
二、填空题（7道小题，共30分）
1、*产生50个60~100的随机数，统计其中被6整除余2的个数，并将这些数输出。
PrivateSubcommand1_click（）
Dimx,nAsInteger
DimcounterAsInteger
For=1To50
x=Int（Rnd*41+60）
IfMod6=2Then
counter=counter+1
EndIf
Nextn
Printcounter
EndSub
（4分）
2、*对10个100以内的整数用冒泡法按递减顺序排序。
PrivateSubCommand1_Click（）
Dima（10）AsInteger,tAsInteger
DimiAsInteger,jAsInteger
Fori=1To10
a（i）=Int（Rnd*101）
Printa（i）;
Nexti:
Print
Fori=1To9
Forj=1To10-i
Ifa（j）a（j）=a（j+1）:
a（j+1）=t
Nextj
Nexti
Fori=1To10
Printa（）;
Nexti:
Print
EndSub
（4分）
3、*随机产生n个两位整数，求出其中的最大值和最小值。
PrivateSubCommand1_Click（）
Dima（100）AsInteger,nAsInteger,iAsInteger
DimminAsInteger,maxAsInteger
=InputBox（vbCrLf+vbCrLf+"n="）
Print"产生的随机数为"
Randomize
Fori=1Ton
a（i）=Int（Rnd*90）+10
Printa（i）;
Nexti:
Print
min=a
（1）:
max=min
Fori=2To
Ifa（i）>maxThenmax=a（i）
Ifa（i）Nexti
Print"最大值为";max
Print"最小值为";min
EndSub
（4分）
4、*杨辉三角形如图所示{}：
*完成下面程序。
PrivateSubForm_Click（）
Dima（1To10,1To10）AsInteger,i%,j%
Fori=1To10
a（i,1）=1
a（i,
）=1
Nexti
Fori=3To10
Forj=2Toi-1
a（i,j）=a（i-1,j-1）+a（i-1,j）
Nextj
Nexti
Fori=1To10
Forj=1To
PrintTab（5*（j-1）+1）;a（i,j）;
Nextj
Print
Nexti
EndSub
【附图3】（4分）
5、*利用判断一个三位数是否为对称数（如：
343）的函数过程，求出所有三位对称数之和。
*程序代码如下：
PrivateSubCommand1_Click（）
DimsumAsLong,nAsInteger
sum=0
Forn=100To999
Ifduicheng（n）thensum=sum+
Nextn
EndSub
PublicFunctionduicheng（ByVali%）AsBoolean
a=iMod10
c=i\100
Ifa=cThen
duicheng=true
Else
duicheng=False
EndIf
End
（4分）
6、*用子过程输出Fibonacci（斐波那契）数列（0、1、1、2、3、5、8...）的前20项及前20项的和。
*程序代码如下：
PrivateSubCommand1_Click（）
Dims&,a%,b%,c%
a=0:
b=1
=a+b
Printa
Printb
Fori=1To18
fiba,b,c
print
s=s+c
Nexti
Print"Fibonacci（斐波那契）数列的前20项的和为：
";s
EndSub
PrivateSubfib（a,b,c）
c=a+b
a=b
b=c
EndSub
（4分）
7、*控件属性改变，如图{}所示
PrivateSubCommand1_Click（）
IfCommand1.Caption="字号"Then
Label1.
=30
Command1.Caption="颜色"
Label1.=vbRed
Command1.Caption="字号"
EndIf
EndSub
【附图2】（6分）
三、编程题（
2道小题，共
20分）
1、*编写程序：
*已知一个斐波那契数列的前两项为1,1，以后的每一项均为前两项的和。
*例如：
1,1,2,3,5，...，请求出这个数列前43项的和。
（10分）
必须将本题程序最后的运行结果填入下面的框中。
否则，该题以零分计!
请将你解答本题所写的源程序粘贴到下面或者上载源程序
2、*编写程序：
*先下载数据文件kaoshiwenjian.txt到自己的计算机中,然后编制程序，要求：
统计出该数据文件中从第5
升级会员 