For i =" 1" To 4 step 1
If i Mod 2=" 0" Then s =" s" + (-1) ^ (i + 1) * 1 / i
Next i
MsgBox s*100
该程序的运行结果是（   ）

A．-25

B．-75

C．15

D．25

十进制数转换为二进制数。小林用VB编写了一个程序，把输入的十进制数转换为二进制数，并判断二进制数中的“0”和“1”的个数是否相等。程序运行界面如图所示，在文本框Text1中输入要转换的十进制数，单击命令按钮Command1后，在文本框Text2中输出其对应的二进制数，在标签Label3中显示“相等”或“不相等”。

(1)程序运行界面中使用的对象个数为_________，要使命令按钮Command1上的文字显示为“转换”，应修改的属性名为_____________。
(2)为实现上述功能，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim st As String
Dim x, y, c0, c1 As Integer
st = "": c0 = 0: c1 = 0
x =_____________
Do While x <> 0
y = _____________
If y = 0 Then
c0 = c0 + 1: st = y & st
Else
c1 = c1 + 1: st = y & st
End If
x = x \ 2
Loop
Text2.Text = st
If ____________ Then
Label3.Caption = "相等"
Else
Label3.Caption = "不相等"
End If
End Sub

由数组a生成数组b的方法描述如下：
1)   将数组a中的n个元素依次分割出若干个数据块，每个数据块有m×m个元素，m最大值为8，最小值为2。分割时，按尽可能大的数据块进行分割；
2)   对每个分割出的数据块用“方阵转换法”进行转换，每次转换后得到的数据块依次存储在数据b中；
3)   数组a分割后的剩余元素（个数小于4），直接依序存储到数组b中。

例如n=140时，可依次分割出3个数据块，元素的个数分别为64（8×8）、64（8×8）、9（3×3），剩余元素为3个。

“方阵转换法”过程如下：将数据块中m×m个元素按行序排列成一个数字方阵，从该数字方阵中按列序得到转换后元素的次序。以3×3数据块为例，转换过程如下图所示:
转换前元素次序

转换后元素次序      
小明依据上述描述设计了如下VB程序。请回答下列问题：
（1）当n=120时，分割出的第3个数据块元素个数为__________。
（2）请在划线处填入合适的代码。
Const n = 120
Dim a(1 To n) As Integer
Dim b(1 To n) As Integer
Private Sub Command1_Click()
Dim m As Integer, i As Integer
Dim Start As Integer   '当前未分割数据的第1个元素下标
Dim Left As Integer    '当前未分割数据的个数
Dim pa As Integer '数组a的下标
Dim pb As Integer '数组b的下标
'读取n个转换前的数据，依次存储到a(1)、a(2)、……a(n)中，代码略
m = 8
Start = 1
Left = n
Do While Left > 3
If Left < m * m Then
m = ___________
Else
pa = Start
pb = Start
For i = 1 To m * m
b(pb) = a(pa)
pb = pb + 1
If i Mod m = 0 Then
______________
Else
pa = pa + m
End If
Next i
______________
Start = Start + m * m
End If
Loop
For i = Start To n
b(i) = a(i)
Next i
'依次输出转换后数据b(1)、b(2)、……b(n)中，代码略
End Sub

以下两个VB程序段，其中变量m和n为正整数，下列说法不正确的是（   ）

程序1： If m<n Then t=m：m=n：n=t End If Do While m Mod n＜＞0 r=m Mod n m=n n=r Loop Text1.Text=Str（n）

程序： 2n2 Do Whife m 程序2 Do While m＜＞n Do While m＞n m=m-n Loop Do While n>m n=n-m Loop Loop Textl.Text=Str（n）

 

A．“程序1”和“程序2”中的代码实现相同的功能

B．若变量m和n的值为25，35，则“程序1”代码运行后文本框Text1显示“5”

C．“程序2”中的输出语句改为Textl.Text=Str(m)，会影响文本框Textl显示的内容

D．若变量m和n的值为11，7，则“程序2”代码运行后文本框Text1显示“1”

某班师生玩一个游戏，n（n 不超过 1000）个同学站成一圈，逆时针编号为 l - n，有两个老师 A 和 B，A 老师从 1 开始逆时针数 k 个同学，B 老师从 n 开始顺时针数 m 个同学（注意 A，B 老师可能数到同一个学生），被老师选中的 1 个或 2 个学生离开圈子，剩下的学生继续。
程序开始时在 Text1 中输入同学数 n，在 Text2 中输入 k 的值，在 Text3 中输入 m 的值，点击“开始” 按钮，在 label5 中显示依次出圈的学生编号。程序运行如图所示：

VB 程序如下，请将按要求答题：
Dim stu(1 To 1000) As Integer
Dim n As Integer
Private Sub Command1_Click()

Dim left, k, m As Integer

Dim stup1, stup2 As Integer

n = Val(Text1.Text)

k = Val(Text2.Text)

m = Val(Text3.Text)

    ①    
stup1 = n: stup2 = 1
For i = 1 To n
stu(i) = i Next i
Do While left > 0
stup1 = teachount(stup1, 1, k)
stup2 =
Label5.Caption = Label5.Caption & " " & Str(stup1)
left = left - 1
If    ②    Then
Label5.Caption = Label5.Caption & " " & Str(stup2)
left = left - 1
End If stu(stup1) = 0

stu(stup2) = 0

Loop

End Sub
'f=1 表示逆时针数 c 个，f=-1 表示顺时针数 c 个
Function teachount(ByVal p As Integer, ByVal f As Integer, ByVal c As Integer) As Integer
Do While c > 0
    ③    
Do While stu(p) = 0

p = (p + f + n - 1) Mod n + 1

Loop

c = c - 1

Loop teachount = p
End Function
（1）加框处的语句有错误，请改正：______________________________________________ 
（2）请将①处的语句补充完整：______________________________________________
（3）请将②处的语句补充完整：______________________________________________
（4）请将③处的语句补充完整：______________________________________________