《Visual Basic程序
设计
领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计
》试题
参考
答案
八年级地理上册填图题岩土工程勘察试题省略号的作用及举例应急救援安全知识车间5s试题及答案
及评分
标准
excel标准偏差excel标准偏差函数exl标准差函数国标检验抽样标准表免费下载红头文件格式标准下载
一.填充题 (每题1分,共10分)
1. Mid(“Visual BASIC 6.0”,8,5) 2. Int((b-a+1)*Rnd+a)
3. Int(x / 100 + 0.5) * 100 4. True
5. Year Mod 4=0 And year Mod 400<>0 6. LoadPicture
7. Text 8. 1 9. change 10. SetFocus
二.单项选择题 (每题1.5分,共30分)
1. d 2. c 3. d 4. c 5. d
6. c 7. C 8. c 9. b 10. c
11. b 12. d 13. c 14. d 15. d
16. a 17. a 18. d 19. C 20. a
三.阅读下面程序,写出程序的运行结果。(共26分)
1. 1 9
4 12
7 17
10 20
每行结果占1分,共4分
2. 70 20
200 70
每行结果占3分,共6分
3. x= 384 y= 105
每个结果占2分,共 4分
4. 6
10
10
4
1
3
5
7
4
0
第1,4行结果各占1分,第2,3行结果各占2分,共6分
5. 3
26
每个结果占3分,共6分
四.程序填空题(每空2分,共20分)
1.t <= 10000
t*n
2.List1.ListCount - 1
List1.List(i)
3.B() ubound(c) n=n-1
4. Not EOF(3) Input #3,score
五.程序设计题(每题7分,共14分)
Sub Command1_Click()
Dim A(20) As Integer, x As Integer, i As Integer
For i = 1 To 20
A(i) = Int(900 * Rnd) + 100
Print A(i);
If i Mod 5 = 0 Then Print
Next i
Print
x = InputBox("请输入一个数")
For i = 1 To 20
If
If i > 20 A(i) = x Then Exit For
Next i T Private hen
Print "没有找到"
Else
Print "该数的序号是:"; i
End If
End Sub
2.
Private Sub Command1_Click()
Dim m%, n%, p%, s#
m = InputBox("m=")
n = InputBox("n=")
p = InputBox("p=")
Print f(1, m), f(3, n), f(5, p)
s = (f(1, m) + f(3, n)) / f(5, p)
Print "s="; s
End Sub
Private Function f(ByVal k%, ByVal x%) As Long
Dim i%, sum As Long
sum = 0
For i = 1 To x
sum = sum + i ^ k
Next i
f = sum
End Function
正确定义求f=
函数过程 4分
命令按钮的单击事件过程占3分
4
_1149620298.unknown