（加试题）小王编写了一个依据成绩计算名次的VB程序，成绩为0到100之间的整数。算法的基本思想：先统计每个分数的个数，然后按照分数从高到低依次计算每个有效分数（该分数的个数不为0）对应的名次，分数相同时名次并列。最高分为第1名，该分数的名次与个数之和为下一个有效分数的名次，以此类推。程序用数组A存放每个分数对应的个数，数组B存放每个分数对应的名次。例如，下表中最高分100有2个，并列第1名，则分数96的名次为分数100的名次加上分数100的个数，即第3名。

分数	100	99	98	97	96	95	94	…	0
个数（A数组）	2	0	0	0	1	0	3	…	0
名次（B数组）	1				3		4	…

 
程序运行时，学生数据显示在列表框List1中，单击“计算”按钮Command1，计算结果显示在列表框List2中，程序运行界面如图所示。

实现上述功能的VB程序如下，请回答下列问题：
（1）如上表所示，若分数93的个数为2，则该分数对应的名次为_____________。
（2）请在划线处填入合适的代码。
Dim sName(1 To 50) As String '存放学生姓名
Dim sScore(1 To 50) As Integer    '存放学生分数
Dim recCount As Integer   '存放学生人数
Private Sub Form_Load()
'本过程从数据库中读取学生数据，存储在相应的变量中，并在List1中显示
'代码略
End Sub
'整数转换成长度固定的字符串
Function ads(x As Integer, n As Integer) As String
Dim sx As String, nx As Integer, i As Integer
sx =" Str(x):" nx = Len(sx)
For i =" 1" To n - nx
sx = " " + sx
Next i
__________①
End Function
Private Sub Command1_Click()
Dim A(0 To 100) As Integer    '存放每个分数的个数
Dim B(0 To 100) As Integer   '存放每个分数的名次
Dim mc As Integer, score As Integer, i As Integer
For i =" 0" To 100
A(i) = 0
Next i
For i =" 1" To recCount '计算每个分数的个数
___________②
Next i
mc = 1
For i =" 100" To 0 Step -1  '计算每个分数的名次
If A(i) <> 0 Then
B(i) = mc
___________③
End If
Next i
List2.Clear
List2.AddItem " 姓名  分数  名次 "
List2.AddItem " ---------------- "
For i =" 1" To recCount
score = sScore(i)
mc = B(sScore(i))
List2.AddItem sName(i) + ads(score, 5) + "第" + ads(mc, 3) + "名"
Next i
End Sub

调试如下VB程序段，出现如图所示的错误信息。

For i = 1 To 10
If d(i) >= 0 Then
t=t+1
List1.AddItem Str(d(i))
Else
t=t-1
List2.AddItem Str(d(i))
Next
则该程序段出错的原因是缺少了（    ）

A．Next

B．i

C．For

D．End If

（加试题）小王编写了一个实现文字查找替换功能的VB程序，运行界面如图所示。文本框Text1显示原文内容，Text2中输入查找内容，Text3中输入替换内容，单击“全部替换”按钮Command1后，Text4显示查找替换的结果，Text5中显示替换的次数，Text6显示“查找内容”在原文中的起始位置。

实现上述功能的VB程序如下，但加框处代码有错，请改正。
Private Sub Command1_Click()
Dim s As String, resule As String, pos As String
Dim count As Integer, i As Integer
i =" 1:" count = 0
resule = "": pos = ""
Do While i <= Len(Text1.Text)
s =" Mid(Text1.Text," i, Len(Text2.Text))
If s =" Text2.Text" Then
result =" result" + Text3.Text
count =" count" + 1
pos =  ①
i =" i" + Len(Text2.Text)
Else
②
i =" i" + 1
End If
Loop
Text4.Text = result
Text5.Text = Str(count)
Text6.Text = pos
End Sub

下列运算结果中，值最大的是 ( )

A．3\4

B．3/4

C．4 mod 3

D．3 mod 4

如图所示，三个文本框自上而下的顺序是Text1，text2，text3，在文本框text1中输入3，在文本框text2中输入4。单击命令按钮“计算”后，文本框Text3中显示的内容是(   )

A．14

B．12

C．25

D．24