对以下程序段的说法正确的是（   ）
s=0
i=0
Do While s<10
i=i+1
s=s+i*i
Loop

A．该程序的循环体执行了3次

B．该程序段结束后i的值为3

C．该程序段结束后i的值为4

D．该程序段结束后s的值为13

在VB语言中，除了赋值语句具有计算功能外，（    ）也具有计算功能。

A．inputbox（）

B．For

C．if

D．Print

在vb中要定义一个数组A，用于存储20名学生的姓名，则正确的数组定义语句是（ ）。

A．Dim a(20) as integer

B．Dim a(1,20) as string

C．Dim a(1 to 20) as string

D．Dim a(1,20) as single[:Z。xx。k.Com]

填空题：（共8分，每小题2分）。
（1）  本程序中，变量a、b 的数据类型都是___________（填写中、英文均可）。

（2）以上代码中，表示输出语句的是第____行。
（3）本程序中，代码a=a+b的含义是_____（选填Ⅰ或Ⅱ）。
选项:Ⅰ.把a的值赋给a+b
Ⅱ.把a加b的和赋给a
（4）若输入的两个数分别是10和20，则程序执行完毕，变量a的值是____，变量b的值是____。

《算法与程序设计》模块
Ⅰ.填空题：
（1）  代数式 对应的VB（或 JAVA）表达式为__________。
（2）  从数列23、11、19、17、65中找出数据19，若采用顺序查找法从左边第一个数开始查找，需要查找_____次。
（3）  在a、b2、c#这三个变量名中，不符合变量命名规则的是_____。
（4）程序的基本结构包括顺序结构、选择结构和循环结构。下列程序主要采用________结构，计算1到100之间的整数和。

Rem VB代码(部分) s=0 For i="1" To 100   s=s+i    Next I

//JAVA 代码(部分) int s=0; for (int i=1;i<=100;i++)   {  s=s+i;  }

 

一个完整的Visual Basic块If语句如下,则划线处应填入的语句是（    ）
If a>b then
Max=a

Max=b
End if

A．Else

B．End if

C．Else if

D．If

某Visual Basic程序如下：
Private Sub Command1_Click()
Dim x As Integer, y As Integer ,a As Integer ,b As Integer
X="0"
y=0
For a="1" To 3
x=x+1
For  b="2" to 4
y=y+1
Next b
Next a
Text1.text=str(a)
Text2.text=str(b)
End Sub
单击Command1按钮后，Text1显示    ①   ，Text2显示    ②   。

阅读分析以下VB程序，该程序采用的算法是_______。
Private Sub Command1_Click()
Dim x As Integer, c As Integer, i As Integer
x = Val(Text1.Text)  
c =" 0"

A．解析 For i =" 1" To x If x Mod i = 0 Then

B．查找 c =" c" + 1[:Zxxk.Com] List1.AddItem Str(i)

C．排序 End If Next I

D．枚举

Text2.Text = Str(c)
End Sub

在VB中，下列选项不能实现交换变量a和b的值的是_______。

A．a=a+b:b=a-b:a=a-b

B．t=b:b=a:a=t

C．t=a:a=b:b=t

D．a=b:b=a-b:b=a

学校要进行元旦文艺汇演了，学生会让薛明来担任总记分员，任务就是根据各个评委所打分数，去掉一个最高分和一个最低分，然后计算平均分。薛明很快编写了这个程序，该程序的界面如右图所示：
程序运行时，每输入一个分数单击“确定”按钮（Command1），就将该分数记入总分，同时在下面显示到目前为止已输入的所有分数。当所有的分数输入完毕后，单击“统计->”按钮（Command2），程序就会在右边显示总分和最后的平均分。请回答下面的问题：

（1）写出上述图形中所标识的③对象所属的类？如④所属的类为“文本框”。
_____________
（2）以下是薛明编写的统计程序，请完善程序。
Dim total As Integer, ans As Single, x As Integer, max As Integer
Dim min As Integer, s As Integer
Private Sub Command1_Click()
x = Val(Text1.Text)
total = total + x
s =" s" + 1
If_________Then max = x
If x < min Then min = x
List1.AddItem x
End Sub
Private Sub Command2_Click()
Label4.Caption = Str(total)
ans =_________
ans = ans / (s - 2)
Label6.Caption =_____________
End Sub
Private Sub Form_Load()
total = 0
s = 0
min = 10000
max = 0
End Sub