求最长升序子序列的长度。一个数的序列bi，当b1<b2<…<bS的时候，我们称这个序列是升序的。对于给定的一个序列（al，a2，…，aN），我们可以得到一些升序的子序列（ail，ai2，…，aiK），这里1<=il<i2<……<iK<=N。比如，对于序列（1，7，3，5，9，4，8），有它的一些升序子序列，如（1，7），（3，4，8）等等。这些子序列中最长的长度是4，比如子序列（1，3，5，8），小王设计VB程序用于求最长升序子序列的长度，在文本框Text1中输入n个各不相同的数据（各数据之间以逗号隔开），单击“求解”按钮Command1后在标签Labell中输出最长升序子序列的长度，运行界面如图所示。

具体算法描述如下：
①将文本框Text1中的n个数据依次读取到数组a中；
②构造一个数组b（j），j表示升序子序列的长度，b（j）的值表示所有j长度升序序列中最小的末尾元素值。例：序列（2，6，4，5），长度为2的子序列有（2，6），（2，4），（2，5），（4，5），则b（2）=4；
③从第1个元素开始，依次处理到第i（1≤i≤n）个元素为止，b数组所能达到的最大下标值maxlen，处理过程分两种情况：
a）a（i）>b（maxlen），则最长升序子序列的长度增加；
b）a（i）<b（maxlen），则在数组b中逆序查找到第一个b（j）>a（i）（maxlen-1≤j<1），更新数组b中升序子序列长度为j+1时所存储的元素值。
以图中数据为例：

④数组b的最大下标值即为最长升序子序列的长度。
实现上述过程的VB程序如下，请回答下列问题：
（1）若在文本框Text1中输入的序列为（4，7，9，8，6），则数组元素b(2)的值为_____________。
（2）请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim a(1 To 100)As Integer存储原序列
Dim b(1 To 100)As Integer存储各长度序列的最小末尾元素
Dim s As String
Dim n As Integer,i As Integer,j As Integer,maxlen As Integer
S=Text1.Text
n=1:j=1
For i=1 To Len(s)

c=Mid(s,i,1)

If c=,Then

a(n)=Mid(s,j,i-j)
n=n+1
j=i+1
End If
Next i
①______
maxlen=1:b(1)=a(1)
For i=2 To n
If a(i)>b(maxlen) Then
maxlen=maxlen+1
b(maxlen) =a(i)
Else
j=maxlen-1:flag=True
Do While j>=1 And flag
If a(i)>b(i)Then
②______
flag = False
End If
j=j-1
Loop
If③______Then b(1)=a(i)
End If
Next i
Label1.Caption="最长升序子序列的长度为:"+Str(maxlen)
End Sub

素数只能被1和它本身整除，不能被其他自然数整除。编写VB程序实现如下功能：单击“产生奇数并判断”按钮Command1，随机产生一个三位正奇数显示在文本框Text1中，并在文本框Text2中显示其是否为素数的判断结果。例如，当随机产生的三位正奇数为953时，程序运行界面如图a所示。

(1)在设计程序界面时，应使用图b所示“控件工具箱”中的_____________(填写相应编号)添加文本框Text1。
(2)实现上述功能的VB程序如下，请在划线处填写合适的代码。
Private Sub Command1_Click()
Dim n As Integer, i As Integer
Dim flag As Boolean ’用于标记是否为素数
Randomize
n = Int(   ①_____)*2+1
Text1.Text = Str(n)
flag = True ’标记为素数
i = 3
Do While i <= n - 1 And flag = True

If n Mod i = 0 Then

flag = False

End If

i = i + 2

Loop
If    ②_____ Then
Text2.Text = Str(n) + "是素数"
Else
Text2.Text = Str(n) + "不是素数"
End If
End Sub
(3)以下选项中，与加框处表达式“n Mod I = 0”等价的是______________(单选，填字母）。

A．n \ i = Int(n / i)

B．n \ i = n/ i

C．n Mod i = n \ i

以下程序段运行时出现如图所示的错误提示:
 For i=1 To 100
If Rnd>0.5 Then
n=n+1
Else
m=m+1
Next i
分析该程序段,该代码中缺少了(  )

A．For

B．End If

C．Next

D．If

小明编写了一个矩阵转换程序，功能如下：单击“生成”按钮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

现有如下Visual Basic程序段：
y = -100 ：x = 100
If x > 10 Then
y = -1

Elseif  x > 50 Then

y = 1

Else

y = 0

End if

该程序段执行后，变量y的值是（  ）

A．-100

B．-1

C．1

D．0