计算机二级VB试卷.pdf

《计算机二级VB试卷.pdf》由会员分享，可在线阅读，更多相关《计算机二级VB试卷.pdf（19页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、第 1 页 共 14 页一、选择题一、选择题(每题每题 1 分，共分，共 30 分分)1、能被对象所识别的动作与对象可执行的活动分别称为对象的b。A)方法、事件B)事件、方法C)事件、属性D)过程、方法2、执行语句 Print Val(12A12)的值为b。A)12AB)12C)1212D)12A13、下列是合法的 VB 变量名。A)_abB)W_cdeC)5studentD)Name&City4、表达式 6.5*5 Mod 28 8 的值是C。；32.5 3 2.5A)0 B)1C)2D)35、如果在立即窗口中依次执行下列命令：a=8：b=9Print ab则输出的结果是C。A)1B)0C)

2、FalseD)True6、下列表达式的值为真的是D。A)AaB)9aC)1212.1D)ThatThank7、表示“XYZ”，正确的 VB 逻辑表达式是A。A)XY And YZB)XYZ第 2 页 共 14 页C)XY OR YZD)XY And Z8、函数 CInt、Int、Fix 都返回整数值，以下能正确地描述它们返回值的大小关系的是A。A)CInt(-4.51)Int(-4.51)Fix(-4.51)B)Int(-4.51)CInt(-4.51)Fix(-4.51)C)CInt(-4.51)Fix(-4.51)CInt(-4.51)D)Int(-4.51)10 Then Exit Fo

3、r Next i Text1.Text=Str(n)End Sub答：2、建立一窗体并编写下列事件过程，单击窗体执行该事件过程，其输出结果是什么？Private Sub Form_Click()Dim x As Integer x=Int(Rnd+4)Select Case x Case 5 Print 优秀 Case 4第 6 页 共 14 页 Print 良好 Case 3 Print 合格 Case Else Print 不合格 End SelectEnd Sub答：3、运行程序，当单击窗体时，窗体上显示内容的第三行是什么？Private Sub Form_Click()Dim s As

4、 String,i As Integer,n(9)As Integer Dim s1 As String*1,j As Integer s=Trim(12345a307291b233)For i=1 To Len(s)s1=Mid(s,i,1)If s1=0 And s1=9 Then j=Val(s1)n(j)=n(j)+1 End If Next i For j=0 To 9 Print j;:;n(j)Next jEnd Sub答：第 7 页 共 14 页4、当发生 Command1_Click 事件后，以下程序输出结果是什么？Private Sub Command1_Click()Di

5、m y As Integer,i As Integer Dim a(8)As Integer y=18:i=0 Do a(i)=y Mod 2 i=i+1 y=y 2 Loop Until y 1 For j=i-1 To 0 Step-1 Print a(j);Next jEnd Sub答：5、写出程序运行时单击 Command1 后，窗体上显示内容的第二行是结果什么。Private Sub Command1_Click()Dim ch As String,i As Integer ch=DEF For i=1 To Len(ch)ch=Mid(ch,2*i-1,1)&Left(ch,Len

6、(ch)Print ch Next iEnd Sub答：第 8 页 共 14 页6、写出程序运行时单击 Command1 后，在窗体上的输出结果。Private Sub Command1_Click()Dim i As Integer,a As Integer a=1 For i=a To 5 Step a+1 a=a+1 Next i Print a,iEnd Sub答：7、写出程序运行时单击 Command1 后，在窗体上的输出结果。Option ExplicitPrivate Sub Command1_Click()Dim I As Integer,a(5)As Integer For

7、I=1 To UBound(a)a(I)=I*2+1 I=I+1 Next I Print a(3),LBound(a)End Sub答：8、写出程序运行时单击 Command1 后，在窗体上的输出结果。Private Sub Command1_Click()Dim n As Integer,j As Integer j=0:n=0 Do While n 3第 9 页 共 14 页 j=(j+1)*(j+2)n=n+1 Loop Print j;nEnd Sub答：9、建立一窗体 Form，然后编写如下程序。程序运行后，单击窗体的输出第三行结果是什么？Private Sub Form_Clic

8、k()Dim i As Integer,j As Integer Dim t(10,10)As Integer For i=1 To 3 For j=1 To 3 t(i,j)=(i-1)*3+j Print t(i,j);Next j Print Next iEnd Sub答：10、建立一窗体 Form，在窗体上画一文本框 Text1 和一命令按钮Command1,然后编写如下程序，运行程序后，单击命令按钮，在Text1 中输出结果是什么？Private Sub Command1_Click）Dim Fb(10)As Integer，I As IntegerFb(l)2：Fb(2)3第 10

9、 页 共 14 页For I=3 To 5Fb(I)Fb(I-2)+Fb(I-1)Next IFor I=1 To 5Text1=Text1 Str(Fb(I)“”Next IEnd Sub 答：三、程序填空三、程序填空(每空每空 2 分，共分，共 20 分分)1、下列程序的功能是从键盘上按行输入一个 34 二维数组，求二维数组各列的和，输出到窗体。请在下划线处填写适当的内容。Option Base 1Private Sub Form_Click()Dim a(3,4)As Integer,s(4)As Integer For j=1 To 4 For i=1 To 3 a(i,j)=Inpu

10、tBox(请输入一个元素的值)Next i Next j For j=1 To 4 s(j)=0 For i=1 To 3 Next i Next j For i=1 To 4 第 11 页 共 14 页 Next iEnd Sub2、下列程序的功能是求一维数组的最大值和最小值及其下标，请在下划线处填写正确的内容。Option Base 1Private Sub Command1_Click()Dim t(10)As Integer,min_i As Integer Dim max_i As Integer For i=1 To 10 t(i)=InputBox(请输入一个元素值)Next i

11、 min_i=：max_i=For i=2 To 10 If Then min_i=i If Then max_i=i Next i Print t(min_i),min_i,t(max_i),max_iEnd Sub3、下面程序的功能是用直接选择排序法将数组 a 中的 10 个整数按降序排列，请在下划线处将程序补充完整。Option Base 1Private Sub Command1_Click()Dim a,i As Integer,temp As Integer Dim j As Integer,k As Integer a=Array(678,45,324,528,439,387,8

12、7,875,273,823)For i=k=i For j=If a(k)a(j)Then k=j Next j If k i Then temp=a(i)a(i)=a(k)a(k)=temp End If Next i第 12 页 共 14 页 For i=1 To 10 Print a(i)Next iEnd Sub4、本程序的功能是产生 10 个个位数互不相同的三位随机正整数，并存放到下标与其个位数相同的数组元素中。例如 395 应存到 a(5)中。Option ExplicitPrivate Sub Form_Click()Dim a(9)As Integer,x As Integer

13、,k As Integer Dim I As Integer Randomize Do While I=9 x=Int(Rnd*900+100)If a(k)=0 Then a(k)=x I=I+1 End If Loop For I=0 To 9 Print a(I);Next IEnd Sub四、编程题四、编程题(每题每题 15 分，共分，共 30 分分)(界面自行设计)1、编写程序，输出 100 以内能被 3 整除的数之和。要求：将结果在窗体上输出。2、编写程序，从文本框 1 中输入的一个由字母和数字组成的字符串中，找出所有的大写字母，并依次连接，再输出到文本框 2中。3、编写程序，求两

14、个正整数的最大公约数。要求：将 a、b 两个变量在分别 Text1 和 Text2 中输入，最大公约数在 Text3 中显示。第 13 页 共 14 页第 14 页 共 14 页如果你还不知道读什么书，或者想寻找下载阅读更多书籍，就请您打开微信扫一扫，扫描下方二维码，关注微信公众号：大学生学术墙。微信直接搜索关注公众号：大学生学术墙这里是每一位上进的人的家园【大学生学术墙】资料库里有数百万本书籍，此外，关注微信公众号：大学生学术墙，并在后台回复：1.回复：资料，即可免费领取100000G的书籍库、大学必备笔记期末试卷、考证资料、四六级考试、计算机二级考试等资料！2.回复：电影，即可免费在线观看

15、最新上线的热门大片！3.回复：小说，即可免费领取数百万本著名小说！4.回复：证券、期货，即可免费在行业龙头企业用超低手续费开户，开启你的投资生涯！你需要的书籍、课件、视频、PPT、简历模板等等一切资源和资料，都可以在微信公众号：大学生学术墙，回复关键词免费领取！微信小程序：鼠友。国内首个大学生在线交流社区，既可以看外校新鲜事，又可以和本校同学沟通交流，实时发布信息，这是鼠于大学生们的友谊树洞如果您对金融领域一知半解，想学习金融领域相关知识，提高自身综合投资水平，获取相关金融服务，请关注微信公众号：财醒来微信直接搜索关注微信公众号：财醒来，您可以获得以下服务：1.私人财富管理咨询服务，您通过公众

16、号添加号主个人微信后，可结合自身情况咨询财富管理服务等。2.公众号会分享原创的宏观、股票、期货等二级市场复盘和投资参考，助力您发现投资机会。3.公众号不定期会分享号主自己的投资心得，投资策略等，带给您不一样的金融评论和金融思维。4.公众号后台回复：证券、期货，即可免费在行业龙头企业用超低手续费开户，开启你的投资生涯！重磅福利：头部券商，万 1.1 开户无论是买股票、基金还是期货，交易成本都是我们不可忽视的重要元素。如果你自己去应用市场下载 XX 证券、XX 期货或者在同花顺开户，交易佣金一般默认为较高的万 2.5 或万 3 且没有客服服务。现在，如果你从我们这边的专属渠道二维码开股票账户，可以

17、享受到万 1.1 的开户优惠，并且有专属客服服务！对于大部分人来说，每年至少可以省出一部苹果最新款手机的钱了，下面简单介绍一下该券商：【AA 类券商，全国前五大券商，安全可靠】【步骤简单，无需排队，全国都能开户，没有时间和地域的限制】【营业部遍布全国，业务可以异地办理】如何开户并享受最低佣金优惠？搜索微信 ID：daxueshengqiang 或扫描下方二维码，添加客服微信并备注：开户，客服会辅助你开户！记 住 了，只 有 从 上 面 二 维 码 首 次 开 户 注 册 的，才 可以 享 受 最 低 佣 金 优 惠！开 户 后 客 服 会 主 动 联 系 您 进 行 佣金 调 整。如 果 你

18、自 个 儿 去 应 用 市 场 下 载 注 册，就 无 法 享 受 到这 边 的 专 属 渠 道 福 利 了。同 时，我 强 烈 推 荐 你 开 一 个 期 货 账 户！期 货 账 户 最大 的 好 处 是，既 可 以 做 空 又 可 以 做 多！与 股 票 账 户 相 同，如果你从我们这边的专属渠道二维码开期货账户，也可以享受到超低手续费的开户优惠，并且有专属客服服务！下面简单介绍一下：【AA 类期货公司，全国前五大期货公司，安全可靠】【步骤简单，手机快速开户，足不出户即可开通】【营业部遍布全国，业务可以异地办理】【超低手续费的开户优惠】【一对一专属客服服务】如何开户并享受最低佣金优惠？搜索微信 ID：daxueshengqiang 或扫描下方二维码，添加客服微信并备注：开户，客服会辅助你开户！