读下面VB程序段，
Dim j  As Integer, k  As Integer
List Clear
For k =" 1" To 100
j = Int(Sqr(k))
If j * j =" k" Then list1.AddItem Str(k)
Next k
分析程序功能，该程序的功能是（ ）

A．输出1到100以内的所有的质数

B．输出1到100以内的所有的奇数

C．输出1到100以内的所有的偶数

D．输出1到100以内所有的完全平方数

下列程序在调试时提示错误“块IF没有End If”，要使程序正常运行，则应该在 （填①或②）处添加语句     。
Private Sub Image3_Click(Index As Integer)
Timer1.Enabled = False
Image1.Picture = Image3(Index).Picture
If x =" Index" Then
Label1.Caption = "平手"
Command1.Visible = True
    ①  
Else
If x =" 1" And Index =" 2" Or x =" 2" And Index =" 3" Or x =" 3" And Index =" 1" Then
Label1.Caption = "您输"
Command1.Visible = True:Zxxk.Com
Else
Label1.Caption = "您赢"
Command1.Visible = True
End If
    ②     
End Sub

以下函数用于查找给定学籍编号，查找的学生姓名的相关信息，其中姓名放在数组a中，学籍编号放在数组b中，学籍号按照升序排列
Private Function Findxj(k As Integer) As string
Dim f As Boolean，i As Integer，j As Integer，m As Integer
i＝1：j＝n
f＝False
Do While(i＜＝j) And Not (f)
m＝Fix((i＋j)/2)
If k＝b(m) Then
f＝True
Else
If ________ Then
j＝m－1
Else
i＝m＋1
End If
End If
Loop
If f Then Findxj＝________ Else Findxj＝“查无此人”
End Function
划线处的代码分别是：

A．k＜b(m) a(m)	B．k＜a(m) b(m)
C．k＞b(m) a(m)	D．k＞a(m) b(m)

某数据压缩方法描述如下：
1）原始数据中，某数不为0且相邻无重复，压缩数据用该数据表示；
2）原始数据中，某数为0且相邻无重复，压缩数据用两个数表示，第1个位0，第2个为0；
3）原始数据中，某数据相邻有重复，压缩数据用3个数表示：第1个位0，第2个为重复数的个数，第3个为该数本身；
根据上述压缩方法，对应的解压缩方法示例如图a所示。

图a

小明编写了一个解压送VB程序，功能如下：窗体加载时，自动读取压缩数据，依次存储在数组元素a(1)、a(2)、a(3)……中，压缩数据的个数存储在变量n中，压缩数据显示咋文本框Text1中。单击“解压缩”按钮Command1，程序对压缩数据依次进行解压缩处理，解压缩数据显示在文本框Text2中。程序运行界面如图b所示。

图b

（1）如果压缩数据为“23,0,21,66,0,0,77,0,5,0”，则解压缩数据的个数是__________。
（2）实现上述功能的VB程序如下。请在划线处填入合适代码。
Dim a(1 To 100) As Integer '存储压缩数据，最大处理个数为100
Dim b(1 To 1000) As Integer '存储解压缩数据，最大处理个数为1000
Dim n As Integer '存储压缩数据的个数
Private Sub Form_Load()
'压缩数据由上述压缩方法生成
'本过程用于读取压缩数据并存储在数组a，压缩数据个数存储在变量n中
'代码略
End Sub
Private Sub Command1_Click()

Dim pa As Integer '存储压缩数组当前处理位置

Dim pb As Integer '存储解压缩数组当前处理位置

Dim firstdata As Integer, count As Integer, i As Integer

pa = 1: pb = 1

Do While pa <= n

 firstdata = a(pa)
If firstdata <> 0 Then  '示例1情况处理
b(pb) = firstdata
pa = pa + 1: pb = pb + 1

Else

count = a(pa + 1)

If count = 0 Then    '示例2情况处理

b(pb) = 0

pa =____________: pb = pb + 1

Else '示例3情况处理

For i = 1 To count
______________
Next i
pa = pa + 3:  pb = pb + count
End If
End If

Loop

Text2.Text = Str(b(1))

For i = 2 To ___________

Text2.Text = Text2.Text + , + Str(b(i))

Next i

End Sub

小明编写了一个矩阵转换程序，功能如下：单击“生成”按钮Commandl后，在列表框listl中生成1-16顺序矩阵，单击“转换”按钮Command2后，在列表框list2中生成转换后的矩阵。转换的算法如下：
（1）改变列的位置：原矩阵第3列变为新矩阵的第1列，原矩阵第1列变为新矩阵第2列，原矩阵第4列变为新矩阵第3列，原矩阵第2列变为新矩阵第4列。
（2）改变行的位置：经过（1）处理后的矩阵的第1行和第4行交换，第2行和第3行交换。
实现上面的功能，程序运行界面如图所示。

实现上述功能的程序如下，请在程序划线处填入合适的语句或代码。
Dim sc(1 To 16)As Integer ′生成矩阵
Dim zh(1 To 16)As Integer ′转换矩阵
Private Sub Commandl_Click()
′在列表框 listl 中生成4*4矩阵sc，代码略
End Sub
Private Sub Command 2_Click()
Dim pb As Integer，tmp As Integer，i As Integer，line As String
For i=1 To 16 ′变化列

If i Mod 4=1 Then

____________________

Elself i Mod 4=3 Then

pb=i-2

Else

pb=pb+2

End If

zh(pb)=sc(i)

Next i
For i=1 To 8 ′交换行

If___________________Then

tmp=zh(i):zh(i)=zh(i+12):zh(i+12)=tmp

Else

tmp=zh(i):zh(i)=zh(i+4):zh(i+4)=tmp

End If

Next i
line=″″
List2.Clear
For i=1 To 16

If i Mod 4=1 Then

List2.AddItem line
line=adj(Str(zh(i)-3))

Else

___________________

End If

Next i
List2.AddItem line
End Sub
Function adj(a As String,n As Integer)As String
′adj函数的功能：在字符串a前加入适当的空格，使得a的长度为n位，代码略。
End Function