现有如下Visual Basic程序段：

Private Sub Command1_Click()

Dim a(-1 To 8) As Integer

Dim i As Integer

For i = -1 To 8

  a(i) = i * i

Next i

Print a(i)

End Sub

运行程序，单击命令按钮Command1后，出现的错误提示可能是（  ）

A．子程序或函数未定义

B．下标越界

C．溢出

D．类型不匹配

求1到n之间（包括n）所有3的倍数之和s的算法如下：
①输入变量n的值，将变量s赋初值为0，将变量i赋初值为1
②如果i的值大于n，则转到⑤，否则转到③
③如果i是3的倍数，则将s的值加上i的值，结果存放在s中
④将i的值增加1，并转到②
⑤输出s的值
该算法采用的表示方法是（  ）

A．计算机语言

B．流程图

C．伪代码

D．自然语言

关于算法的描述，正确的是（）

A．算法是解题方法的精确描述。只要是精确的算法，其步骤是可以无限的

B．可以用计算机编程实现寻找100以内的素数

C．算法可以不用输入，也可以不用输出

D．流程图是一种通俗易懂的描述算法的方法

模拟一个简单计算器，输入两个数和一个运算符（加、减、乘、除），进行算术运算，并输出运算结果。程序界面如图所示，在文本框Text1输入第一个数a，在文本框Text2输入第二个数b，在文本框Text3输入运算符ch，在文本框Text4中输出结果。

当输入的运算符不是加、减、乘、除四种运算符时，则输出“运算符不正确”；当进行除法运算时，如果除数为0，提示输出“除数不能为零”。
（1）若想要在程序启动时清空文本框Text4中显示的内容，需要在Form_Load()中添加________（单选，选填字母：

A．Text4.Caption=""

B．Text4.Text=""

C．Text4.Clear）语句。

（2）相应的Visual Basic程序如下，在①、②、③划线处，填入合适的语句或表达式，把程序补充完整。
Private Sub Command1_Click（）
Dim a As Single, b As Single, ch As String
a = Val(Text1.Text)
b = Val(Text2.Text)

 ①______

    If ch = "+" Then
Text4.Text = Str(a + b)
ElseIf ch = "*" Then
Text4.Text = Str(a * b)
ElseIf ch = "-" Then
Text4.Text = Str(a - b)
ElseIf ch = "/" Then
If ②__________Then Text4.Text = Str(a / b) Else Text4.Text = "除数不能为零"
Else

③____

    End If
End Sub

有如下VB程序代码：
Dim a As Integer,b As Integer
a=3:b=5
a=a+b
b=a-b
a=a-b
该程序代码执行后，a和b的值分别是（）

A．8，3

B．5，3

C．8，-2

D．8，5

下列说法正确的是（）

A．b^2-4a*c是合法的VB表达式

B．Int(-5.5)的值是-5

C．Mid("中国zhejiang杭州"，3，6)的结果为“zhejia”

D．while可以作为变量名

某算法的部分流程图如右图所示，执行完这部分流程后，s和i的值分别是（）

A．28，7

B．280，10

C．280，7

D．28，10

小明想利用VB设计一个投骰子的程序，骰子有六面，可以用数字1至6表示，则产生骰子某一面的表达式为（）

A．Rnd*6+1

B．Int(Rnd(6)+1)

C．Int(Rnd*6)+1

D．Int(Rnd()*6)

现有如下Visual Basic程序段：

Private Sub Command1_Click（）

Dim a , b , c  as Integer
a = 27: b = 9: c = -6
If a > b And b > 0 Then
If c < 0 Then a = a - c Else a = a - b

Else

    a = b + c

End If

Print a

End Sub

该程序段运行之后，变量a的值为__________。

某商品团购优惠策略的部分流程图如第24题图所示：

当n为100，p为10时，实付金额s的值是（  ）

A．1000

B．950

C．850

D．750