洛阳师范学院2011—2012学年第二学期期末考试。
参***及评分标准。
电子信息科学与技术、物理学专业 2011 级 vb程序设计试卷（b）
评分说明】本试卷答案中不区分字母的大小写。
一、单项选择题（每题2分，共20分）
1. c 2. d 3. b
二、填空题（每空1分，共15分）
1. 全局变量 2. change3. show4. passwordchar5. 12
6. .frm7. 10008. color9. 2110. caption
11. 512. 顺序结构；选择结构；循环结构。
评分说明】学生只要表达正确亦得分。
三、程序填空题（每空2分，共12分）
ubound(a) n-1-i a(j)>a(j+1next j for i=0 to nend sub
评分说明】以上仅为参考程序**，只要功能正确即可得分。
四、程序阅读题（每题4分，共20分）
12. 8 3. 求n4. 2535. 8 1
评分说明】学生给出部分答案可得部分分。
五、程序设计题（共33分）
1. (8分)
dim score%
score = inputbox("请如学生的百分制成绩1分。
if score >=90 and score <=100 then
print "对应的等级为优秀1分。
elseif score >=80 and score <=89 then
print "对应的等级为良好1分。
elseif score >=70 and score <=79 then
print "对应的等级为中等1分。
elseif score >=60 and score <=79 then
print "对应的等级为及格1分。
elseif score >=0 and score <=59 then
print "对应的等级为不及格1分。
elseprint "输入错误。
end if2分。
2. (9分)
private sub form_click()
dim a%(1 to 10), i%, min1分。
for i = 1 to 102分。
a(i) =inputbox("请输入数组中元素的值")
print a(i);
next i
call procmin(a(),min1分。
printprint "min=" min1分。
end sub
sub procmin(a%()amin1分。
amin = a(lbound(a1分。
for i = lbound(a) to ubound(a) …2分。
if amin > a(i) then amin = a(i)
next i
end sub
3. (10分)
dim a(),i%, k%, x%, n1分。
a = array(1, 3, 5, 7, 9, 10) …1分。
n = ubound(a)
k = n + 1
x = inputbox("请输入待插入的数") 1分。
for i = lbound(a) to ubound(a) …2分。
if x < a(i) then
k = iexit for
end if
next i
redim preserve a(n + 11分。
for i = n to k step -12分。
a(i + 1) =a(i)
next i
a(k) =x1分。
printfor i = lbound(a) to ubound(a) …1分。
print a(i);
next i
4. (6分)
private sub command1_click()
= 1002分。
end sub
private sub timer1_timer1分。
= –100 ……1分。
if <=then2分。
end if
end sub
评分说明】以上仅为参考程序，只要功能正确即可得分。
VB程序设计作业 二 答案
精品文档。客观题部分 选择题 每题1分，共15题 1.当vb执行下面语句后，a的值为 a a 1 if a 0 then a a 1 if a 1 then a 0a 0 b 1c 2 d 32.当vb执行下面语句后，输出的结果是 b private sub form click score int...
VB程序设计作业 二 答案
客观题部分 选择题 每题1分，共15题 1.当vb执行下面语句后，a的值为 a a 1 if a 0 then a a 1 if a 1 then a 0 a 0 b 1 c 2 d 3 2.当vb执行下面语句后，输出的结果是 b private sub form click score int r...
VB程序设计作业二答案
客观题部分 选择题 每题1分，共15题 1.当vb执行下面语句后，a的值为 a a 1 if a 0 then a a 1 if a 1 then a 0 a 0 b 1 c 2 d 3 2.当vb执行下面语句后，输出的结果是 b private sub form click score int r...