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. 写出下面程序运行结果。 第 3 页 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(“请输入要查找的数“) 6 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 8 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 项（