郑州大学VB模拟题5.docx
《郑州大学VB模拟题5.docx》由会员分享,可在线阅读,更多相关《郑州大学VB模拟题5.docx(15页珍藏版)》请在冰豆网上搜索。
郑州大学VB模拟题5
【HNCE网上考试系统v9.6】本套软件使用权属于:
大学
考试课程:
考试时间:
90分钟考场:
第一考场考试日期:
2012.05.07
考号:
:
剩余时间:
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、11
D、无数次
6、设a=3,b=5,则以下表达式值为假的是______。
(1分)
A、a>=bAndb>l0
B、(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="计算机考试":
EndSub
B、PrivateSubCommand1_Click():
Text1="计算机考试":
EndSub
C、PrivateSubText1_Change():
Command1.Caption="计算机考试":
EndSub
D、PrivateSubText1_Click():
Text1.Caption="计算机考试":
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、12
D、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后赋给变量X
D、变量X的值为1
39、执行程序段:
a$="China":
b$=Right$(a$,3):
c$=String$(3,b$):
Printc$,输出的结果是______。
(1分)
A、Chi
B、aaa
C、iii
D、ina
40、执行程序段:
DimaxsAsInteger:
axs%=232:
axs=232.32:
Printaxs%;axs,输出的结果是______。
(1分)
A、232232032
B、232232
C、232.32232.32
D、显示出错信息
41、变量未赋值时,数值型变量的值为______。
(1分)
A、O
B、空串""
C、Null
D、没任何值
42、假设变量iVar是一个整型变量,则执行赋值语句iVar="2"+"3"之后,变量iVar的值是______。
(1分)
A、2
B、3
C、5
D、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、True
B、False
C、Null
D、出错信息
二、填空题(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到自己的计算机中,然后编制程序,要求:
统计出该数据文件中从第51个到第10000个数据中奇数的个数。
(【下载文件“kaoshiwenjian.txt”】;)下载方法:
在上右击打开弹出菜单,选择“目标另存为”。
(10分)
必须将本题程序最后的运行结果填入下面的框中。
否则,该题以零分计!
请将你解答本题所写的源程序粘贴到下面或者上载源程序
窗体底端
考号:
:
剩余时间:
89:
45
保存交卷退出帮助
强烈建议您使用IE5.0以上,屏幕分辨率800X600以上,真彩,小字体浏览