- 1、本文档共7页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
2006春浙江省二级VB真题 附答案
2006年春浙江省高等学校
计算机等级考试试卷(二级Visual BASIC)
试题一、(每小题3分,共15分)
阅读下列程序说明和程序,在每一小题提供的若干可选答案中,挑选一个正确答案
界面设计如下图所示,程序运行时要求完成以下功能:
按Command1(出题)后随机生成两个两位正整数存入模块级变量a、b且ab,并分别在Label1、Label2中显示,此后Command1不可用;
在Text1中输入结果、按回车后,以消息框显示运算正确与否、累计所完成题数以及做错的题数,Command1恢复为可用;
按Command2(退出)后以消息框显示所完成题数以及做错的题数,退出。
【程序】
Dim n As Integer, n_error As Integer
(1)
Private Sub Command1_Click()
Dim c as Integer
a = 10 + Rnd * 90
b = 10 + Rnd * 90
If a b Then (2)
Label1.Caption = a
Label2.Caption = b
n = n + 1
Text1.Text =
Command1.Enabled = False
End Sub
Private Sub Text1_ (3) (KeyAscii As Integer)
If KeyAscii13 Then (4)
If a - b = Val(Text1.Text) Then
MsgBox (回答正确)
Else
MsgBox (不回答正确)
n_error = n_error + 1
End If
Command1.Enabled = True
End Sub
Private Sub Command2_Click()
MsgBox (5)
End Sub
(1) A、小学生两位数减法训练程序 B、a=0: b=0: c=0
C、n=0: n_error=0 D、Dim a As Byte, b As Byte, c As Byte
(2) A、 b=a: a=b B、c=a: a=b: b=c
C、 a=b: b=a D、c=a: b=a : a=c
(3)A、keypress B、change C、keyDown D、KeyUp
(4)A、Exit Sub B、keyAscii=13 C、keyAscii=0 D、Exit Do
(5) A、″共″ n ″题,错″ n error ″题″
B、″共n 题,错n error题″
C、″共″+ n + ″题,错″+ n error +″题″
D、共 n ″题,错″ n error ″题″
试题2(每小题3分,共12分)
阅读下列程序说明和程序,在每小题提供的若干可选答案中,挑选一个正确答案。
【程序说明】
输入n后,再输入n个数a1 , a2 ,…,an ,按照下列公式计算S的值并显示。
V = S =
【程序】
Private Function f( ( 6) ) As Single
Dim i As Integer
For i = 1 To n
f = f + x(i)
Next i
End Function
Private Sub Command1_Click()
Dim n As Integer, a() As Single, i As Integer
Dim v As Single, s As Single
n = InputBox(输入数据个数)
(7)
For i = 1 To n
a(i) = InputBox(a( i )=, 输入各数组元素)
Next i
v = f(a, n) / n
For i = 1 To n
s = (8)
Next i
(9)
End Sub
(6) A、x() As Single ,n As Integer B、x(n) As single
C、a As Single, n As Integer D、n As Integer,x()As Single
(7) A、Dim a(n) As Single B、ReDim a( )
C、Dim a (n)
您可能关注的文档
最近下载
- 2025年机动车检验机构资质认定评审补充技术要求试题(含答案) .pdf VIP
- 2024年眉山市遴选和选调公务员真题 .docx
- 高校基建工程项目全过程跟踪审计.PPT
- 提捞采油安全操作规程.doc VIP
- PT1-aTrust题库_aTrust题库考试认证.docx VIP
- 14T MRI用Nb₃Sn卢瑟福电缆绞缆工艺与性能的深度剖析及优化策略.docx
- 水阻柜工作原理-源创YRQ水阻柜.doc VIP
- 工作场所空气中粉尘测定第6部分超细颗粒和细颗粒总数量浓度_职业卫生标准培训讲座PPT.pptx VIP
- 北京理工大学信号与系统实验报告.docx VIP
- 2025年新高考1卷数学模拟试题 (1).pdf
文档评论(0)