03-04学年第2学期vb考试题及标准答案

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 bZ B）XYZ C）XY AND Z D）XY NOT YZ 4设 a5，b=8 下列程序中能实现交换两个变量值的代码是（ ） A) a=b B) a=b b=a b=a Print a,b swap(a,b) C) c=a D) b=a a=b a=b b=c Print a,b 5下列求两个数中最大数的代码中，正确的是（ ） A) max=a B) If ba then If ba then max=b max=b endif endif max=a Print max Print max C) if ab then Print a D) max=iif(ab,b,a) Print b 三、写出程序运行结果(每小题 4 分,共 24 分) 1. 程序运行时从键盘输入 5，则下面程序运行结果为： Dim x As Integer, y As Integer x = Val(InputBox(“请输入变量的值 “) If x 0 Then y = x 2 + 1 Else y = x 2 - 1 End If Else y = 0 End If Print “x=“; x, “ “; “y=“; y 2. 写出下面程序运行结果。 Dim y as String, x as String y=“abcd“ For i%=1 TO 4 For j%=1 TO i% X=mid(y,j,1) Print x; Next j% Print Next i% 3. 写出下面程序运行结果。 Dim s As Integer, n As Integer, f As Integer f= -1 s = 0: n = 1 Do While n = a Then Max=a Else End If If Then End If Print 2对给定的一组数 123、32、90 、13、65、8、170、51，键盘输入一个数，用顺序查找法找出该 数在数组中的位置。 Dim a(), m%, n%, i% Dim x!, p As Boolean a = Array(123，32，90 ，13，65，8，170，51) m= LBound(a) n = x = InputBox(“请输入要查找的数“) p = For i = m To If x = a(i) Then p = True End If Next i If p = True Then Print “找到了，在数组中的位置为第“ T/4 Next I 4已知一列数据，要求对数据按升序排列后输出。 Option Base 1 Dim a(10) As Integer Call ArrayInput(a() Print “排序前的数据：“ Call AarrayOutput(a() Call sort(a() Print “排序后的数据：“ Call AarrayOutput(a() Sub AarrayInput(b() 数组赋值 For i=1 to ubound(b) Next I End Sub Sub AarrayOutput(b() 数组输出 For i=1 to ubound(b) Next I Print End Sub Sub sort(b() 数组排序 For i = 1 To UBound(b)-1 For j = To UBound(b) If b(i) b(j) Then End If Next j Next i End Sub 五、程序设计(共 36 分) 1. 编程计算分段函数(8 分)。 X (X 50) 2 “水仙花数”是这样一个三位整数，它的每一位数字的立方之和正好等于这个三位数。例如 153 是水仙花数，因为 13+53+33=153。编写程序输出所有的“水仙花数” 。(8 分) 3. 已知 f(a)=2*a，有一数列 A 的第一项是 1，从第二项开始，每一项为:A n=An-1+f(An-1)求此 数列的前 30 项（10 分） 。 4. 打开一个名为“Student.DAT”顺序文件，存放学生成绩档案，每个学生在该档案中含有学号、 姓名、英语、高数，计算机三门课的成绩。计算每个学生平均成绩并输出计算结果。 （10 分） 2003-2004 学年第二学期计算机应用课程试题 参考答案及评分标准 一、填空题（每空 1 分，共 10 分） 1.事件 2.变体类型 3.4 4.Const PI=3.1415（不区分大小写） 5.Dim x% 或 Dim x as integer 6.假（False 或 0） 7.真（True 或-1） 8.Int(Rnd*51+20) 本题可以有多种写法 9.ASCII 10.ASCII 码 二、选择题（每题 2 分，共 10 分） ADACA 三、写出程序运行结果（每小题 4 分，共 24 分） 1.X=5 y=26 2.a ab abc abcd 非此不得分 3.s=-5 4.2 3 5 7(有错不得分，答不全酌情扣分) 5.1 0 0 0 1 0 0 0 1 非此不得分 6.sum=10 四、完善程序（每小题 5 分，共 20 分） 1.c=val(inputbox(“”)(没有 val 也给 分) max=b maxc max=c max 2.n=ubound(a) false n exit for print “未找到！” 3.a(i,j)=val(inputbox(“”) s=0 s+a(i,j) print s/30 t=t+a(i,j) 4.b(i)=val(inputbox(“”) print b(i) i+1 或 i 交换两个变量的值，只要能完成即可。 五、程序设计（共 36 分） 1.多分支选择 (1)输入、输出各 1 分 (2)条件表达式 3 分 (3)数学表达式 1 分 (4)If 或 select 结构 2 分 2.可以用三个变量循环再组合三位数，也可用一个变量循环再拆分成三个数 对于第一种方法，循环结构 4 分，条件表达式 2 分，输出 2 分 对于第二种方法，循环结构 2 分，拆分 2 分，条件表达式 2 分，输出 2 分 3.（1）用自定义函数的方法 定义函数 3 分 Function f(a) f = 2 * a End Function Private Sub Command1_Click() Dim a!(30), i% 定义数组 1 分 a(1) = 1 赋初值并为数组赋值 3 分 For i = 2 To 30 a(i) = a(i - 1) + f(a(i - 1) Next I For i = 1 To 30 有正确格式输出数组值 3 分 Print Tab(i Mod 6) * 15 + 1); a(i); Next i End Sub （2）不用函数 Private Sub Command1_Click() Dim a!(30), i% a(1) = 1 Print a(1); For i = 2 To 30 a(i) = 3 * a(i - 1) Print Tab(i Mod 6) * 15 + 1); a(i); Next i End Sub （3）不用数组 Private Sub Command1_Click() a = 1 Print a; For i = 2 To 30 a = 3 * a Print Ta