17、窗体上有一个标签Label1和一个命名按钮Command，1当程序运行时每单击一次命令按钮，标签就向右移动一定距
离。
在Command1_Click（）中能完成这个功能的命令为______。
（1分）
A、Label1.Left=100B、Label1.Left=Label1.Left-100
C、Label1.Move100D、Label1.MoveLabel1.Left+100
18、能产生[10，32]之间随机整数的函数表达式为______。
（1分）
A、Int（Rnd*22）+10B、Int（Rnd*23）+10
C、Int（Rnd*22）+11D、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、10B、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.TextB、Command1.Name="cmdok"
C、Label1.Caption=4567D、x=InputBox（pleaseinput）
26、执行语句age=InputBox（"请输入数值","年龄输入框","38"），如果从键盘上输入数值20并按回车键，则下列
叙述中,不正确的叙述是______。
（1分）
A、变量Age的值是数值20B、对话框标题栏中显示的是"年龄输入框"
C、对话框的默认值是38D、对话框的提示文字为"请输入数值"
27、PrintDateDiff（"m",#1/28/2004#,#1/31/2004#）的输出结果是______。
（1分）
A、OB、1
C、-1D、2
28、在下列符号常量的声明中，______是不合法的。
（1分）
A、ConstaAsSingle=2.6B、ConstaAsInteger="ab"
C、ConstaAsDouble=2*2D、Consta="OK"
29、执行程序段：
Constc$="Henan":
c$="Zhengzhou":
c$="Daxue":
Printc$，输出的结果是______。
（1分）
A、HenanB、Zhengzhou
C、DaxueD、显示出错信息
30、m、n是整数，且n>m，在以下4个语句中，能将x赋值为一个m～n之间（含m,n）的任意整数，即满足m≥x≥n
的是______。
（1分）
A、x=Int（Rnd*n）+mB、x=Int（Rnd*（n–m+1））+m
C、x=Int（Rnd*m）+nD、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、6B、8
C、10D、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、4B、5
C、6D、7
44、执行语句PrintFormat（32548.5,"###,##0.00"），输出结果是______。
（1分）
A、32548.5B、32,548.5
C、032,548.50D、32,548.50
45、下列不合法的常量形式是______。
（1分）
A、"1O0"B、100.0
C、1OE+0.5D、ConstG=23+12
46、设有变体变量x，执行语句：
x=InputBox（"输入数值","0","示例"）后，如果从键盘上输入10并按回车键，则下
列叙述中正确的是______。
（1分）
A、变量x的值是数值10B、在InputBox对话框标题栏中显示的是“示例”
C、0是默认值D、变量x的值是字符串“10”
47、下列符号常量的声明中，______是不合法的。
（1分）
A、ConstaAsSingle=1.1B、ConstaAsInteger="12"
C、ConstaAsDouble=Sin
（1）D、Consta="OK"
48、某中心选拔身高T超过1.7米且体重W小于52.5公斤的学员，能正确表示该条件的布尔表达式是______。
（1分）
A、T>=1.7AndW<=52.5B、T<=1.7OrW>=52.5
C、T>1.7AndW<52.5D、T>1.7OrW<625
49、以下声明语句中，错误的是______。
（1分）
A、Constvarl=123B、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到自己的计算机中,然后编制程序，要求：
统计出该数据文件中从第51个到第
10000个数据中奇数的个数。
（【下载文件“kaoshiwenjian.txt”】；）下载方法：
在链接上右击打开弹出菜单，选择“目标另存为”。
（10分）
必须将本题程序最后的运行结果填入下面的框中。
否则，该题以零分计!
请将你解答本题所写的源程序粘贴到下面或者上载源程序
考号：
20113160128姓名：
剩余时间：
89:
45保存交卷退出帮助
强烈建议您使用IE5.0以上，屏幕分辨率800X600以上，真彩，小字体浏览
升级会员 