求的值，以下算法错误的是（  ）。

A．	B．
C．	D．

小徐编写程序计算1+2+3+4+...+100的和。但是发现他的程序不能给出正确答案。请你帮他查找程序中错误的地方，并予以改正。

 

第___句存在错误，
该句应该改为________________（完整书写）

写出算法执行结果

本程序的功能是：输入一个字符串，将该字符串反向输出。例如，输入：abcdefgh 输出：hgfedcba。请将下列程序补充完整。

Dim s1 As String, s2 As String Dim c As Integer, i As Integer s1 = InputBox("请输入一串字符") s2 = "" c = Len(s1) For i = ____________________ s2 = Mid(s1, i, 1) + s2 Next i Print s2

（函数功能提示） （1）函数Len(x)的功能是：取字符串x的长度值（即字符个数值）。 　　若x="abc"，则Len(x)的值为3。 （2）函数Mid(x，y，z)的功能是：在字符串x中第y个字符开始取z个字符。 　　若x="abcdefg"，则 Mid(x，4，3)取得的值是"def"。

 
程序空白处应填写的语句是：_________________________________

在 VB 的算术运算中，最大的实数类型 double 有效位数也只有 15 位。为了实现除法运算保留任意位数，小明根据除法原理，编写了如下程序，功能如下：在文本框 Text1 中输入被除数（正整数） ,在文本框 Text2 中输入除数（正整数），在文本框 Text3 中输入小数位数，单击按钮 Command1，在标签 Label 中显示除法运算的商。程序运行界面如图所示，但加框处代码有错，请改正：

Private Sub Command1_Click
Dim x, y As Integer
Dim n As Integer
Dim s As String
x = Val(Text1.Text): y = Val(Text2.Text)
n = Val(Text3.Text)
s = s + Str(x \ y)
s = s + "."
k = x Mod y
For i = 1 To n

x = x+k * 10 ①________

s = Str(x \ y) ②________

 
k = x Mod y
Next i
Label1.Caption = "商为： " + s
End Sub

小李利用所学的 VB 知识，编写了一个简单计算器：在文本框 Text1 中输入一个加减算式（只包含数字和“ +”、“ -”符号，以“ =”结束），点击“计算”按钮 Command1，计算结果在标签 Label1 上显示。程序运行界面如下图所示：

（1）要实现程序运行时，单击文本框 Text1 即可将文本 框 清 空 ， 则 应 在 _______(A 、Command1_Click/B、 Form_Load/C、 Text1_Click)事件处理过程中添加语句 Text1.text=”” 。
（2）实现上述功能的 VB 程序如下，请在划线处填入合适的代码
Private Sub Command1_Click
Dim s As String, ch As String, sum As  Integer
Dim fh As Integer
s = Text1.Text: fh = 1: p = 0: sum=0
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If ch >= "0" And ch <= "9" Then
p = ①________
Else
sum = ②________
p = 0
If ch = "-" Then
fh = -1
ElseIf ch = "+" Then
fh = 1
End If
End If
Next i
Label1.Caption = Str(sum)
End Sub
（3）若文本框 Text1 中输入的内容为“ 12*10=”（不包括双引号），单击“计算”按钮后，标签Label1 上将显示：________ .（A、 120 / B、 22 / C、 0 /D、程序出错无法显示）

有如下程序，要使Label1中显示的值是30，划线处应该填(　　)
Dim i As Integer，s As Integer
s＝0
For i＝2 To ________ Step 2
　s＝s＋i
Next i
Label1.Caption＝Str(s)

A．8

B．9

C．10

D．12

（加试题）某算法流程图如下图所示，该流程图对应的程序段为（ ）

A．s = 0 For i = 1 To 20 If i Mod 3 = 0 Then s = s + 2 * i Else i = i + 1 End If Next i

B．i = 1 For s = 0 To 20 If i Mod 3 = 0 Then s = s + 2 * i End If i = i + 1 Next i

C．i = 1: s = 0 Do While s <= 20 If i Mod 3 = 0 Then s = s + 2 * i Else i = i + 1 End If Loop

D．i = 1: s = 0

Do While s <= 20
If i Mod 3 = 0 Then
s = s + 2 * i
End If
i = i + 1
Loop

（加试题）有如下程序段：
Dim i As Integer, Sum As Integer
Dim a(1 To 11) As Integer
Sum = 6
a(11) = 49
For i = 10 To 1 Step -1
a(i) = a(i + 1) - 1
If a(i) Mod 3 = 0 Then Sum = Sum + a(i)
Next i
Text1.Text = Str(Sum)
该程序段运行后，文本框text1中显示的内容是

A．174

B．180

C．36

D．42

有一个数列，它的前二个数为0，1，此后的每个数都是其前面2个数之和，即0，1，1，2，3，5，8，13...要求编写程序，输出该数列到刚超过10000的数为止，且项数不能超过100项。编写程序如下：
Dim i As Integer, a As Integer, b As Integer, c As Integer
Dim s As String
a = 0: b = 1: c = 0: i = 2
s = Str(a) + Str(b)
Do While c <= 10000 And i < 100
a = b: b = c
c = a + b
s = s + Str(c)
i = i + 1
Loop
Text1.Text = s
运行上面的程序，发现输出的数列不正确，应进行修改。以下修改正确的是

A．把c<=10000改为 c>10000	B．把i<100改成i<=100
C．把i=i＋1移到Do While c<=10000 and i<100下面	D．把语句c=a+b移到a=b：b=c的上面