VB程序设计
答案
八年级地理上册填图题岩土工程勘察试题省略号的作用及举例应急救援安全知识车间5s试题及答案
洛阳师范学院2011—2012学年第二学期期末考试
参考答案及评分
标准
excel标准偏差excel标准偏差函数exl标准差函数国标检验抽样标准表免费下载红头文件格式标准下载
电子信息科学与技术、物理学 专业 2011 级 VB程序设计
试卷
云南省高中会考试卷哪里下载南京英语小升初试卷下载电路下试卷下载上海试卷下载口算试卷下载
(B)
【评分说明】本试卷答案中不区分字母的大小写。
一、单项选择题(每题2分,共20分)
1. C 2. D 3. B 4.D 5.C 6.D 7.C 8.C 9.D 10.A
二、填空题(每空1分,共15分)
1. 全局变量 2. Change 3. Show 4. PasswordChar ; * 5. 12
6. .frm 7. 1000 8. color 9. 21 10. Caption
11. 5 12. 顺序结构;选择结构;循环结构
【评分说明】学生只要
表
关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf
达正确亦得分。
三、程序填空题(每空2分,共12分)
Ubound(a) n-1-i a(j)>a(j+1) Next j For i=0 to n End Sub
【评分说明】以上仅为参考程序代码,只要功能正确即可得分。
四、程序阅读题(每题4分,共20分)
1. * 2. 8 3. 求n! 4. 25 3 5. 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
VB程序设计试卷B答案 共 3 页 第 1 页
Print "对应的等级为不及格" ……1分
Else
Print "输入错误~"
End If ……2分
2. (9分)
Private Sub Form_Click()
Dim a%(1 To 10), i%, min% ……1分
For i = 1 To 10 ……2分
a(i) = InputBox("请输入数组中元素的值")
Print a(i);
Next i
Call ProcMin(a(), min) ……1分
Print
Print "Min=" & min ……1分 End Sub
Sub ProcMin(a%(), amin%) ……1分
amin = a(LBound(a)) ……1分
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%, n% ……1分
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 = i
Exit For
End If
Next i
ReDim Preserve a(n + 1) ……1分 For i = n To k Step -1 ……2分
a(i + 1) = a(i) Next i
a(k) = x ……1分
VB程序设计试卷B答案 共 3 页 第 2 页
Print
For i = LBound(a) To UBound(a) ……1分
Print a(i);
Next i
4. (6分)
Private Sub Command1_Click()
Timer1.Interval = 100 ……2分
End Sub
Private Sub Timer1_Timer() ……1分
Label1.Left = Label1.Left – 100 ……1分
If Label1.Left <= -Label1.Width Then ……2分
Label1.Left = Form1.Width
End If
End Sub
【评分说明】以上仅为参考程序,只要功能正确即可得分。
VB程序设计试卷B答案 共 3 页 第 3 页