原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
【2010年春二级VB笔试试卷】参考答案
一、程序阅读与填空（24小题，每小题3分，共72分）
题号 (1) (2) (3) (4) (5) (6) (7) (8) (9) (10) (11) (12) 答案 B C A D C B B D A D A C 题号 (13) (14) (15) (16) (17) (18) (19) (20) (21) (22) (23) (24) 答案 B C D A B A A D D B C A 二、程序编写（2小题，每小题14分，共28分）
1.
Private Sub Command1_Click()
Dim n As Byte, x As Single, L As Single
n = Val(InputBox(n =))
x = Val(InputBox(x =))
Select Case n
Case 0
L = 1
Case 1
L = x
Case 2
L = (3 * x * x - 1) / 2
Case 3
L = (5 * x * x - 3) * x / 2
Case 4
L = ((35 * x * x - 30) * x * x + 3) / 8
End Select
Print L( n , x; ) =; L
End Sub
2.
Public Function f(n As Integer, a() As Single) As Single
Dim i As Single
For i = 1 To n - 1
f = f + a(i) / a(i + 1)
Next i
End Function
【VB模拟试卷29】参考答案
24小题，每小题3分，共72分）
题号 (1) (2) (3) (4) (5) (6) (7) (8) (9) (10) (11) (12) (13) (14) (15) (16) (17) (18) (19) (20) (21) (22) (23) (24) 答案 C D B A B C A D D C B B B C D A D A C C B B A D 二、程序编写（2小题，每小题14分，共28分）
1、
Private Sub Command1_Click()
Cls
Dim x As Single, f As Single
x = Val(InputBox(x=, 数据输入))
If x 5 Then
f = Sqr(x + 5)
Else
f = 3 + Log(x) / Log(10)
End If
Print f(x)= f
End Sub
2、
Private Sub Command1_Click()
Dim b(20) As Single, t As Integer
Print 原始数据为
For t = 1 To 20
b(t) = Val(InputBox(请输入数据b( t )=, 数据输入))
Print b(t);
Next t
Print
Print
Print 最大数= f(b, 20)
End Sub
Private Function f(a() As Single, n As Integer) As Single
Dim i As Integer, max As Single
max = a(i)
For i = 1 To n
If a(i) max Then max = a(i)
Next i
f = max
End Function
【2009年春二级VB笔试试卷】参考答案
试题1- 6（客观题）答案（本题共分，每小题分）B A D C A A D C B A B C 题号 (13) (14) (15) (16) (17) (18) (19) (20) (21) (22) (23) (24) 答案 B A D D C C B B A B A C 试题7（程序设计题）参考答案（28分）
Option Explicit
Dim n As Integer, x() As
文档评论（0）