上海金融学院。
2008 ——2009 学年第 2 学期。
计算机应用基础（二）》课程**：13330159
集中考试考试形式： 闭卷考试用时： 90 分钟。
考试时不能使用计算工具。
试题纸。一、单项选择题（20分，每小题1分）
1. 在设计阶段，当双击窗体上的某个控件时，所打开的窗口是___
a) 工程资源管理器窗口 b) 工具箱窗口。
c) **窗口 d) 属性窗口。
2. 确定一个窗体或控件大小的属性是___
a) width或height b) width和height
c) top或left d) top和left
3. 与传统的程序设计语言相比，visual basic最突出的特点是___
a) 事件驱动编程机制 b) 结构化程序设计。
c) 程序开发环境 d) 程序调试技术。
4. 下列符号哪一个是vb中的合法变量名___
a) 7ab b) a[b]7 c) if d) ab7
5. 表达式 4+5\6*7/8 mod 9的值是___
a) 4 b) 5 c) 6 d) 7
6. 设 a = visual basic”，下面使 b = basic”的语句是___
a) b = mid(a, 8, 5) b) b = left(a, 8, 12)
c) b = right(a, 5, 5) d) b = left(a, 8, 5)
7. inputbox函数的返回值的类型是___
a) 数值 b) 字符串 c) 变体 d) 数值或字符。
8. 下列哪组语句可以将变量a、b的值互换___
a) a = b : b = a b) a = a+b) /2 : b = a–b) /2
c) a = c : c = b : b = a d) a = a+b : b = a-b : a = a - b
9. 设a=3, b=4, c=5, d=6，表达式a>b and c<=d or 2*a>c 的值是___
a) 1 b) –1 c) true d) false
10. 设a=6，则执行x=iif(a>5, -1, 0)后，x的值是___
a) 5 b) 6 c) 0 d) -1
11. 为了清除列表框中的所有内容，应使用的方法是___
a) clear b) cls c) remove d) removeitem
12. 用下面的语句所定义的数组的元素个数是___
dim arr(3 to 5, -2 to 2)
a) 12 b) 15 c) 20 d) 24
13. 若要使命令按钮不可见，可设置___属性为false来实现。
a) visible b) value c) enabled d) cancel
14. 若要退出for循环，可使用的语句是___
a) exit do b) exit c) exit for d) exit sub
15. 运行程序时，系统自动执行窗体的___事件。
a) click b) unload c) dblclick d) load
16、在下列表达式中，正确的日期型常量是___
a) "12/04/01" b) 12/04/01 c) d) ##
17、若要退出do…while循环，可使用的语句是___
a) exit do b) exit c) exit for d) exit sub
18、执行 print 18/2*3，-3^2 命令后，输出结果为___
a) 3 9 b) 3 -9 c) 27 -9 d) –9 27
19、可以同时删除字符串前导和尾部空格的函数是___
a) ltrim b) rtrim c) mid d) trim
20、运行程序时，系统自动执行窗体的___事件。
a) dblclick b) unload c) load d) click
二、程序阅读，写出程序运行结果（20分，每小题5分）
1. 此程序为窗体的单击事件过程。
private sub command1_click()
dim i as integer, n as integer
n = 1for i = 0 to 50
i = i + 3
n = n + 1
if i > 20 then exit for
next i
print “n=”,n
end sub
2、此程序为命令按钮的单击事件过程。
option base 1
private sub command1_click()
dim ia, imax%, n%, i%, j%, t%
ia = array(5, 6, 9, 1, 2, 7)
n = 6for i = 1 to n-1
imax = i
for j = i+1 to n
if ia(j) >ia(imax) then imax = j
next j
t = ia(i) :ia(i) =ia(imax) :ia(imax) =t
for j = 1 to n
print ia(j);
next j
printnext i
end sub
3、此程序为命令按钮的单击事件过程。
private sub command1_click()
dim ia, n%, i%, j%, t%
ia = array(8, 1, 9, 4, 2, 7)
n = 6for i = 1 to n-1
for j = n-2 to i-1 step -1
if ia(j) t = ia(j) :ia(j) =ia(j+1) :ia(j+1) =t end if next j for j = 0 to n-1 print ia(j); next j printnext i end sub 4、此程序为命令按钮的单击事件过程。 private sub command1_click() dim m as integer, n as integer m = 14 : n = 56 if m < n then t = m : m = n : n = t end if do while n <>0 r = m mod n m = nn = r loopprint “m = m; “n = n end sub 三、程序填空（20分，每个空格2分） 1、请将下列程序补充完整。 程序功能是从键盘输入一个字符，判断该字符是字母字符、数字字符还是其他字符，并做出相应的显示，要求窗体上无其他控件，禁用asc函数和chr函数，select case语句中禁用枚举值。 private sub form_load() dim x as string*1 x = 1)__请输入单个字符”, 字符”) select case ucase(__2)__ case __3)__ print x + 是字母字符” case __4)__ print x + 是数字字符” case else print x + 是其他字符” end select end sub 2、请将下列程序补充完整。程序功能是利用二维数组建立一个5×4的矩阵，矩阵中的每个数值是利用随机函数产生的两位整数，运行程序后可以找出其中最大的那个元素所在的行和列，并输出其值及行号和列号。（8分，每格2分） private sub form_click() dim a(1 to 5, 1 to 4) as integer for i = 1 to 5 for j = 1 to 4 a(i, j) =1)__ print a(i, j); next j printnext i max = a(1,1) :maxi = 1 : maxj = 1 for i = 1 to 5 for j = 1 to 4 if __2)__then max = a(i, j) :maxi = 3)__ end if next j next i print “最大值为”; max; “其行号为”; maxi; “其列号为”; maxj end sub 3、请将下列程序补充完整。程序功能是3的n次方的值。 private sub command1_click() n = 5 : m = 1 : k = 1 do while __1)__ m = 2)__ k = k + 1 loopprint m end sub 四、程序改错（20分，每个错误2分） 说明：请将下列事件过程中的存在错误的**（加注编号）以正确的形式写在答题纸上。 1、 private sub command1_click() x = 7 : dim b(x) as integer ① s = 0for k = 0 to 6 b(k) =inputbox(“请输入数据”) if 50 < b(k) <100 then s = s + b(k) ③ next k print “s = s 一 选择题。1.在面向对象方法中，不属于 对象 基本特点的是 a 一致性。b 分类性。c 多态性。d 标识惟一性。2.一间宿舍可住多个学生，则实体宿舍和学生之间的联系是 a 一对一。b 一对多。c 多对一。d 多对多。3.数据流图中带有箭头的线段表示的是 a 控制流。b 事件驱动。c 模块调用。d ... vb模拟试卷 2008.5 一 选择题 50分参 在最后。1 下列叙述中，正确的是 c a vb的事件由用户定义。b vb程序从main 函数开始执行。c vb运行时，总是等待事件的发生。d vb程序运行后，在内存中只能驻留一个窗体。2 下列运算符中，优先级最高的是 b a not b mod c ... vb实验 试题 10 学号 姓名 班级 机器号码 成绩 考生注意 1 必须填写机器号码，作为本次考试凭证。2 考试时间70分钟，考试结束后，把试卷放在机器前面，不得带走。3 在d盘建立自己的文件夹，名称为 学号 姓名 比如 1923103李伟。考试过程中的。所有文件必须按要求保存到你自己建立的文件夹...份VB试卷
Vb模拟试卷
VB实验试卷