下列程序执行后，整型变量n的值为（    ）。
n=0
for i="1" to 100
if i mod 4="0" then
n=n+1
next i

A．5050

B．25

C．26

D．33

对以下程序段的说法正确的是（   ）
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

《算法与程序设计》模块
Ⅰ.填空题：
（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程序如下：
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显示    ②   。

有如下Visual Basic程序段：
　　Dim i As Integer, s As Integer
　　  s ＝ 0
　　  i ＝ 1
n ＝ 5
　　Do While i <＝20
　　  s ＝ s ＋ i ＋ n
　　  i ＝ i * 5
　　Loop
　　该程序段运行后，变量i的值是________，变量s的值为________。

阅读分析以下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

学校要进行元旦文艺汇演了，学生会让薛明来担任总记分员，任务就是根据各个评委所打分数，去掉一个最高分和一个最低分，然后计算平均分。薛明很快编写了这个程序，该程序的界面如右图所示：
程序运行时，每输入一个分数单击“确定”按钮（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

数组排序。点击“产生随机数”按钮，让计算机随机产生10个整数，并对这10个整数进行标号，再点击“排序”按钮，对这10个整数进行从大到小排序。如图所示。

程序代码如下：
Dim a(1 To 10) As Integer　
Dim i, j, k, kt As Integer　
Private Sub Command1_Click()
List1.Clear　　 '清除列表框数据
For i ＝ 1 To 10
　  Randomize　 '随机数初始化
　a(i) ＝ Int(Rnd() * 1000)
　  List1.AddItem Str(i) ＋ ”＝” ＋ Str(a(i))
Next i
Command2.Enabled ＝ True　'激活排序按钮
End Sub
Private Sub Command2_Click()
For i ＝ 1 To 9　
　  k ＝ i
For j ＝_________To 10
　  If a(j) > a(k) Then k ＝ j
Next j
　  If i <> k Then
_______
　End If
Next i
List2.Clear
For i ＝ 1 To 10
List2.AddItem Str(i) ＋ ” ＝” ＋ Str(a(i))
Next i
End Sub
请在①、②划线处填入合适的语句或表达式，把程序补充完整：
程序中①划线处应填入__________________；
程序中②划线处应填入__________________。

由“For k="35" To 0 Step 3 : Next k ”循环语句控制的循环次数是_______。

A．12

B．0

C．-10

D．-11