学第2VB考试题及标准答案

1、2003-2004学年第二学期计算机应用课程试题命题教师 审题教师题目-一-二二三四五总分得分一、填空题（每空1分，共10分）1. 对象具有属性、方法和 。2. 使用变量而定义变量，则变量的类型为 。3 .存储一个单精度数据要占用 字节。4. 声明PI为一个符号常量，表示3.1415 ,需要使用的语句为： 5. 将变量 X 声明为整型变量的语句为：。6 .设 x=8,y=5，则表达式Not （xy） Or ABC Left（ACDE,3） 的值为 7.设 a=2,b=3,c=4,d=5 ，则表达式 a*2c or d mod a=c and bc or cY NOT YZ B ） XYZ C

2、） XY AND Z D ） XY NOT YZ4 .设a= 5 , b=8下列程序中能实现交换两个变量值的代码是（）A） a=bB） a=bb=ab=a5 下列求两个数中最大数的代码中，正确的是（B）Print a,bC） c=aa=bb=cA) max=aIf ba the nmax=ben difPrint maxC) if ab then Print aPrint b三、写出程序运行结果swap(a,b)D) b=aa=bPrint a,b)If ba the nmax=ben difmax=aPrint maxD) max=iif(ab,b,a)(每小题4分，共24分)1. 程序运行

3、时从键盘输入5，则下面程序运行结果为:Dim x AsIn teger,y As In tegerx = Val(I nputBox( 请输入变量的值 )If x 0 The nIf x 0 The ny = x A 2 + 1Elsey = x a 2 - 1End IfElsey = 0End IfPrin t x=; x,”;y=; y2. 写出下面程序运行结果。Dim y as String, x as String y=abcdFor i%=1 TO 4For j%=1 TO i%X=mid(y,j,1)Print x;Next j%PrintNext i%3. 写出下面程序运行结果

4、。Dim s As Integer, n As Integer, f As Integer f= -1s = 0: n = 1Do While n = a ThenMax=aElseEnd IfIfThe nEnd IfPrint2 .对给定的一组数123、32、90、13、65、8、170、51，键盘输入一个数，用顺序查找法找出该数在数组中的位置。Dim a（）, m%, n %, i%Dim x!, p As Boolea na = Array（123 ，32，90 ，13，65，8，170, 51）m= LBo un d（a）n =x = In putBox（请输入要查找的数）P =Fo

5、r i = m ToIf x = a(i) Then p = TrueEnd IfNext iIf p = True The nPrint 找到了，在数组中的位置为第” & i & ” 位ElseEnd If3已知某班学生共30人，每人有 4门课程成绩，求每个学生的平均成绩，每门课平均成绩。DIM A（ 30，4）For I=1 TO 30For J=1 To 4Next JNext IFor I=1 To 4For J=1 To 30S=Next JNext IFor 1=1 To 30T=0For J=1 To 4Next JPrint T=; T/4Next I4 已知一列数据，要求对数

6、据按升序排列后输出。Optio n Base 1Dim a(10) As In tegerCall Arra yin put(a()Prin t 排序前的数据：”Call AarrayOutput(a()Call sort(a()Print 排序后的数据：”Call AarrayOutput(a()Sub Aarrayi nput(b()数组赋值For i=1 to ubo un d(b)Next IEnd SubSub AarrayOutput(b()数组输出For i=1 to ubo un d(b)Next IPrintEnd SubSub sort(b()数组排序For i = 1 T

7、o UBou nd(b)-1For j =To UBoun d(b)If b(i) b(j) The nEnd IfNext jNext iEnd Sub五、程序设计（共36分）1.编程计算分段函数（8分）。.-(X0)2(0=X10)Y= X+3(10=X30)50-X(30 = X 50)2 “水仙花数”是这样一个三位整数，它的每一位数字的立方之和正好等于这个三位数。例如153是水仙花数，因为1 3+5 3+3 3=153。编写程序输出所有的“水仙花数”。（8分）3.已知f（a）=2*a ，有一数列A的第一项是1，从第二项开始，每一项为：An=A-1+f（A甘）求此数列的前 30项（10分

8、）。4. 打开一个名为“Stude nt.DAT ”顺序文件，存放学生成绩档案，每个学生在该档案中含有学号、姓名、英语、高数，计算机三门课的成绩。计算每个学生平均成绩并输出计算结果。(10 分)2003-2004学年第二学期计算机应用课程试题参考答案及评分标准、填空题（每空 1分，共10分）1. 事件2. 变体类型3.44. Co nst Pl=3.1415（不区分大小写）5. Dim x% 或 Dim x as in teger、选择题（每题 2分，共10分） ADACA6. 假(False 或 0)7. 真(True 或-1)8.I nt(R nd*51+20)本题可以有多种写法9. AS

9、CII10. ASCII 码三、写出程序运行结果（每小题4分，共24分）1. X=5 y=264.2 32. a5.1 0ab0abc05 7（有错不得分，答不全酌情扣分）01 00 1abcd非此不得分非此不得分3. s=-5四、 完善程序（每小题5分，共20分）1. c=val（inputbox（” ）（没有 val给分）max=bmaxcmax=cmax2. n=ubo un d（a）falsenexit forprint 未找到！”交换两个变量的值，只要能完成即可。五、程序设计（共 36分）1.多分支选择（1）输入、输出各 1分（2）条件表达式 3分6. sum=10也3.a(i,j)

10、=val(i nputbox(“” )s=0s+a(i,j)print s/30t=t+a(i,j)4. b(i)=val(inputbox(“” )print b(i)i+1 或 i（3）数学表达式1分If 或select 结构2分2. 可以用三个变量循环再组合三位数，也可用一个变量循环再拆分成三个数对于第一种方法，循环结构4分，条件表达式 2分，输出2分对于第二种方法，循环结构2分，拆分2分，条件表达式2分，输出2分3. ( 1)用自定义函数的方法定义函数3分Function f(a)f = 2 * aEnd FunctionPrivate Sub Comma nd1_Click()Dim

11、 a!(30), i%定义数组1分a(1) = 1赋初值并为数组赋值3分For i = 2 To 30a(i) = a(i - 1) + f(a(i - 1)Next IFor i = 1 To 30有正确格式输出数组值3分Print Tab(i Mod 6) * 15 + 1); a(i);Next iEnd Sub(2 )不用函数Private Sub Comma nd1_Click()Dim a!(30), i%a(1) = 1Print a(1);For i = 2 To 30a(i) = 3 * a(i - 1)Print Tab(i Mod 6) * 15 + 1); a(i);N

12、ext iEnd Sub(3)不用数组Private Sub Comma nd1_Click()a = 1Print a;For i = 2 To 30a = 3 * aPrint Tab(i Mod 6) * 15 + 1); a;Next iEnd Sub以上方法思路对头但书写有误，酌情扣分。4. (1)输入输出均可得分(2 )有正确的打开文件语句(3)有关闭语句给1分(4 )算出平均成绩给2分(5) 循环结构正确给2分(6) 有赋值语句或从读取数据语句给(7) 写入文件或输出到窗体语句给爱人者，人恒爱之；敬人者，人恒敬之；宽以济猛，猛以济宽，政是以和。将军额上能跑马，宰相肚里能撑船。最高

13、贵的复仇是宽容。有时宽容引起的道德震动比惩罚更强烈。君子贤而能容罢，知而能容愚，博而能容浅，粹而能容杂。宽容就是忘却，人人都有痛苦，都有伤疤，动辄去揭，便添新创，旧痕新伤难愈合，忘记昨日的是非，忘记别人先前对自己的指责和谩骂，时间是良好的止痛剂，学会忘却，生活才有 阳光，才有欢乐。不要轻易放弃感情，谁都会心疼；不要冲动下做决定，会后悔一生。也许只一句分手，就再也不见；也许只一次主动，就能挽回遗憾。世界上没有不争吵的感情，只有不肯包容的心灵；生活中没有不会生气的人，只有不知原谅的心。感情不是游戏，谁也伤不起；人心不是钢铁，谁也疼不起。好缘分，凭的就是真心真意；真感情，要的就是不离不弃。爱你的人，

14、舍不得伤你；伤你的人，并不爱你。你在别人心里重不重要，自己可以感觉到。所谓华丽的转身，都有旁人看不懂的情深。人在旅途，肯陪你一程的人很多，能陪你一生的人却很少。谁在默默的等待，谁又从未走远，谁能为你一直都在？这世上，别指望人人都对你好，对你好的人一辈子也不会遇到几个。人心只有一颗，能放在心上的人毕竟不多；感情就那么一块，心里一直装着你其实是难得。动了真情，情才会最难割；付出真心，心才会最难舍。你在谁面前最蠢，就是最爱谁。其实恋爱就这么简单，会让你智商下降，完全变了性格，越来越不果断。所以啊，不管你有多聪明，多有手段，多富有攻击性，真的爱上人时，就一点也用不上。这件事情告诉我们。谁在你面前很聪明

15、，很有手段，谁就真的不爱你呀。遇到你之前，我以为爱是惊天动地，爱是轰轰烈烈抵死缠绵；我以为爱是荡气回肠，爱是热血沸腾幸福满满。我以为爱是窒息疯狂，爱是炙热的火炭。婚姻生活牵手走过酸甜苦辣温馨与艰难，我开始懂得爱是经得起平淡。爱人者，人恒爱之；敬人者，人恒敬之；宽以济猛，猛以济宽，政是以和。将军额上能跑马，宰相肚里能撑船。最高贵的复仇是宽容。有时宽容引起的道德震动比惩罚更强烈。君子贤而能容罢，知而能容愚，博而能容浅，粹而能容杂。宽容就是忘却，人人都有痛苦，都有伤疤，动辄去揭，便添新创，旧痕新伤难愈合，忘记昨日的是非，忘记别人先前对自己的指责和谩骂，时间是良好的止痛剂，学会忘却，生活才有 阳光，才有欢乐。不要轻易放弃感情，谁都会心疼；不要冲动下做决定，会后悔一生。也许只一句分手，就再也不见；也许只一次主动，就能挽回遗憾。世界上没有不争吵的感情，只有不肯包容的心灵；生活中没有不会生气的人，只有不知原谅的心。感情不是游戏，谁也伤不起；人心不是钢铁，谁也疼不起。好缘分，凭的就是真心真意；真感情，要的就是不离不弃。爱你的人，舍不得伤你；伤你的人，并不爱你。你在别人心里重不重要，自己可以感觉到。所谓华丽的转身，都有旁人看不懂的情深。人在旅途，肯陪你一程的人很多，能陪你一生的人却很少。谁在默默的等待，谁又从未走远，谁能为你一直都在？这世上，别指望人