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

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