- 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)
您可能关注的文档
- 纪念抗日战争65周年活动总结.doc
- 10--11七数上期中检测1.doc
- RAID0-1解决方法.doc
- 2010年秋高二数学教学计划.doc
- 室内单双芯光缆.doc
- 刑法诉讼物业股权抵押合同格式.doc
- 高考英语语法专题精讲精练-定语从句.doc
- 病害成因及防治论文.doc
- 反比例函数的对称性与性质-中考题.doc
- 新人教版必修2政治:1.2.2《民主决策:作出最佳选择》教案.doc
- 农业行业策略:大畜牧养殖板块景气共振可期,新消费浪潮乘势崛起.pptx
- 新趋势浪潮奔涌,化工行业策略:驭势前行,把握发展新契机.pptx
- 整合协同与出海拓展双轨并行,智能驾驶与机器人技术协同共进——汽车行业策略深度剖析.pptx
- 直销葡萄酒行业深度洞察报告.pptx
- 国货美妆浪潮奔涌,细分赛道掘金正当时——美容护理行业 策略深度研判.pptx
- 可选消费之纺服&美护行业策略:拥抱美护破局先锋,洞察服饰变革新篇.pptx
- 医药行业策略报告:聚焦低估值与中报业绩,优选医药细分领域龙头股.pptx
- 供给收缩与需求稳增交织,逆全球化浪潮中金属行业价值重估与策略.pptx
- 机器人行业策略:定点行情持续演绎,聚焦新技术方案迭代引领产业升级.pptx
- 新秩序重构产业脉络,新经济重塑价值坐标:有色金属行业策略深度研判.pptx
最近下载
- 医用耗材SPD供应链的构建与应用.ppt VIP
- GB4789.28-2024培养基和试剂的质量要求.pptx VIP
- 2025年泰山护理职业学院教师招聘考试笔试参考题库附答案解析.docx VIP
- 山东临沂高新控股集团有限公司招聘考试真题2024.docx VIP
- TCCTAS-高粘乳化沥青冷拌超薄抗滑磨耗层技术规程.pdf VIP
- 2502.7-2015 航天器热控涂层试验方法 第7部分:真空-电子辐照试验.pdf VIP
- 个人简历模板表格六种标准word个人简历模板表格空白模板下载.docx VIP
- 湘教版八年级上册地理复习知识点归纳 .pdf VIP
- 基于腕动信号的睡眠监测系统的设计与实现.docx VIP
- 2025年泰山护理职业学院教师招聘考试笔试备考试题及答案解析.docx VIP
文档评论(0)