上海高中信息科技会考试卷

（B） x=0

（C） x=a : a=b ：x=b （D） a=a+b : b=a-b : a=b-a （E） a=a*b : b=a/b : a=a/b

位置（1）选取的是＿＿；位置（2）选取的是＿＿。 参考答案：A、(A)，E、(E)

32．打开“求连续整数和”文件，查看代码，按要求进行操作后以原名称保存窗体文件。

程序功能：输入起始数讫止数，计算连续整数之和。

操作要求：在指定处补充输入代码块，使程序能够正常运行。

注：实际运行时，直接点击“开始作答”按钮打开程序即可。完成试题后，保存答案，关闭操作软件窗口，回到试卷界面。 解题思路：

既然是计算连续整数之和，则必然需要用到一个循环结构的程序来实现。可参考如下的代码：

'''程序功能：输入开始数讫止数，计算连续整数之和。

'''操作要求：在指定处补充输入代码块，使程序能够正常运行。

Private Sub Command1_Click()

Dim M1 As Long, M2 As Long, M3 As Long M1 = Val(InputBox(\输入起始整数：\ M2 = Val(InputBox(\输入讫止整数：\ '''在此处输入代码块 ''''''M3 = 0

''''''For k = M1 To M2 Step 1 '''''' M3 = M3 + k ''''''Next 或以下代码 M3 = 0

Do While M1 <= M2 M3 = M3 + M1 M1 = M1 + 1 Loop '''到此为止 Text1 = M3 End Sub

33．点击图标打开素材文件夹，在VB环境中打开相应的素材文件，在代码界面内编写程序，并填写运行结果。

注意：请在默认位置以原文件名保存，否则不得分。 该程序要实现的功能是：

计算s=1*3*5*7*……*n的值。（n为奇数，其值由输入决定）。 (1)正确计算出累乘积需具备的前提条件是（ ）。（2分）

A、设计计数器和累乘器：i = 1 : s = 1 : ……: s = s * i : i = i + 2 B、设计计数器和累乘器：i = 0 : s = 1 : …… : s = s * i : i = i + 2 C、设计计数器和累乘器：i = n : s = 0 : ……: s = s * i : i = i + 2 D、设计计数器和累乘器：i = n-1 : s = 1 : ……: s = s * (i + 1) : i = i + 1

参考答案：A

(2)若输入n值为19，则运行结果是 。（2分） 参考答案：654729075

本大题考生得分：共4分，得分：0分 解题思路：

Private Sub Command1_Click() Dim n As Integer, i As Integer Dim s As Double

n = Val(InputBox(\请输入n值\ s = 1

For i = 1 To n Step 2 s = s * i Next i Print s End Sub