原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
华工2009年VB试题答案
《高级语言程序设计（VB）》试题A参考答案及评分标准2009.6
一．填空题 （每题1分，共10分）
1．双精度浮点
2．Sqr(3.14159/2*Sin(15*3.14159/180+100))
3．字符串
4. 该过程内
5．16.8
6．false
7．Dim s(1 To 10) As String
8．标准模块
9．该窗体模块
10．Close
二．单项选择题 （每题2分，共30分）
1. A 2. D 3． D 4． D 5. D
6． A 7． D 8. B 9． A 10. D
11． B 12 .C 13．D 14． C 15． C
三.阅读程序,写出执行结果。(第6题6分，其余各题4分，共26分)
1．x=3 y=2
x=9 y=81
x=19 y=5 第1行结果占1分，第2,3行结果各占1.5分,共4分
2．a=127 b=255 每个结果占2分，共4分
3．#####
####
###
##
# 根据情况自己决定给分标准
4. 0 1
4 18
80 356 第1行结果占2分，第2,3行结果各占1分,共4分
5. X=18 y=18
X=18 y=36 每行结果占2分，共4分
6． 3 15
5 3
2 10
2 3 每行结果各占1.5分,共6分
四．程序填空题（每空2分，共20分）
1．(1) s + term (2) term = 0.00001
2. (3) (f(m) + f(n)) / f(p) (4) As Long
(5) t * i (6) f = t
3. (7) For Input AS #1 (8) A(I)
(9) I+1或I (10) A(I)=A(K)
五．程序设计题（第1题6分，第2题8分，共14分）
1．Private Sub Form_Click()
Dim x%, y$
x = InputBox(输入考生的准考证号)
If x = 1750 And x = 2050 Then
Select Case x
Case 1750 To 1802
y = 101
Case 1803 To 1859
y = 103
Case 1860 To 1900
y = 209
Case 1901 To 1981
y = 305
Case 1982 To 2050
y = 306
End Select
Print 准考证号为; x; 的考生在; y; 课室考试!
Else
Print 准考证号输入错误!
End If
End Sub
正确输入某一个学生的准考证号1分,正确判别准考证号输入是否错误并输出提示信息1分,其它4分
2. Private Sub Command1_Click()
Dim m%, n%, i%, j%, s%, av!
Dim a() As Integer
m = InputBox(m=)
n = InputBox(m=)
ReDim a(1 To m, 1 To n)
s = 0
For i = 1 To m
For j = 1 To n
a(i, j) = InputBox(a( + Str(i) + , + Str(j) + )=)
s = s + a(i, j)
Next j
Next i
av
文档评论（0）