logo

您所在位置网站首页 > 海量文档  > 教学课件 > 中学语文

2012春浙江省二级考试试卷与答案.doc 5页

本文档一共被下载: ,您可全文免费在线阅读后下载本文档。

  • 支付并下载
  • 收藏该文档
  • 百度一下本文档
  • 修改文档简介
全屏预览

下载提示

1.本站不保证该用户上传的文档完整性,不预览、不比对内容而直接下载产生的反悔问题本站不予受理。
2.该文档所得收入(下载+内容+预览三)归上传者、原创者。
3.登录后可充值,立即自动返金币,充值渠道很便利
特别说明: 下载前务必先预览,自己验证一下是不是你要下载的文档。
  • 上传作者 xcs88858(上传创作收益人)
  • 发布时间:2017-07-15
  • 需要金币200(10金币=人民币1元)
  • 浏览人气
  • 下载次数
  • 收藏次数
  • 文件大小:118 KB
下载过该文档的会员
2012春浙江省二级考试试卷与答案
你可能关注的文档:
2012年春浙江省高等学校计算机等级考试试卷 二级 Visual Basic 程序设计试卷 说明: (1) 本试卷共5 页,满分 100 分;考试时间为90分钟; (2) 考生应将所有试题的答案填写在答卷上; (3) 程序阅读与填空全部是选择题,请将答卷上各小题选项的对应位置上填“√”; (4) 请在答卷上填写学校名称、准考证号和姓名,并将你的准考证号的后五位填写在答卷第1页右下角的指定位置内。 第一部分 程序阅读与填空(24小题,每小题3分,共72分) 1. 阅读下列程序说明和程序,在每小题提供的若干可选答案中,挑选一个正确答案。 【程序说明】 用下列近似公式求自然对数的底数e,累加过程到末顶小于10-12为止。 【程序】 Private Sub Command1_Click() Dim ___(1)___ Dim i As Integer e = 2 ___(2)___ While ___(3)___ t = t / i ___(4)___ i = i + 1 Wend Print e End Sub 【供选择的答案】 (1) [A] e As Double, t As Double [B] e As Single, t As Single [C] e As Double, t As Single [D] e As Single, t As Double (2) [A] t = 1 : i = 2 [B] t = 2 : i = 1 [C] t = 1 : i = 1 [D] t = 2 : i = 2 (3) [A] t < 1e-12 [B] t >= 1e-12 [C] e >= 1e-12 [D] e < 1e-12 (4) [A] e = e + 1 / t [B] e = e + 1 \ t [C] e = e + t / i [D] e = e + t 2. 阅读下列程序说明和程序,在每小题提供的若干可选答案中,挑选一个正确答案。 【程序说明】 单击Command1后,生成一个5至100之间的随机整数n,计算下列表达式的值并显示。 【程序】 Private Sub Command1_Click() Dim s As Single, i As Integer, n As Integer n = ___(5)___ s = ___(6)___ For i = ___(7)___ s = ___(8)___ Next i Print s End Sub 【供选择的答案】 (5) [A] Rnd * 10 [B] 5 + Rnd * 100 [C] 5 + Rnd * 95 [D] 5 + Rnd(95) (6) [A] n – 1 [B] 1 [C] n [D] 0 (7) [A] 1 To n [B] n To 1 Step -1 [C] n To 1 [D] 1 To n - 1 (8) [A] s + Sqr(i) [B] Sqr(s + i) [C] i + Sqr(s) [D] n + Sqr(s) 3. 阅读下列程序说明和程序,在每小题提供的若干可选答案中,挑选一个正确答案。 【程序说明】 文件e:\aaa.txt中存放了若干商品的名称、数量、价格,执行下列过程 将删除其中数量为0的商品信息。 【程序】 Private Sub Command1_Click() Dim mc As String, s1 As Integer, jg As Single Open "e:\aaa.txt" For ___(9)___ As #1 Open "e:\bbb.txt" For ___(10)___ As #2 Do While Not EOF(1) Input #1, mc, sl, jg If ___(11)___ Then Write #2, mc, sl, jg Loop Close #1: Close #2 Kill "e:\aaa.txt" Name ___(12)___ End Sub 【供选择的答案】 (9) [A] OutPut [B] Input [C] Append [D] Read (10) [A] OutPut [B] Input [C] Append [D] Read (11) [A] sl = "0" [B] sl = "" [C] sl <> 0 [D] sl = 0 (12) [A] "e:\aaa.txt" As

发表评论

请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
用户名: 验证码: 点击我更换图片

“原创力文档”前称为“文档投稿赚钱网”,本站为“文档C2C交易模式”,即用户上传的文档直接卖给(下载)用户,本站只是中间服务平台,本站所有文档下载所得的收益归上传人(含作者)所有【成交的100%(原创)】。原创力文档是网络服务平台方,若您的权利被侵害,侵权客服QQ:3005833200 电话:19940600175 欢迎举报,上传者QQ群:784321556