本题有点特别，不是要你答题，是要你出题。内容VB6.0编程

读数据(英文),在text2中显示"the"出现的次数.程序不完整,请把?的地方改为正确内容
Private Sub Command2_Click()
Dim m As Integer

If Len(s) = ? Then
MsgBox "请先使用“读数据”功能！"
Else
If Text1.? = 0 Then
MsgBox "请先选中文本！"
Else
t = ""
For i = 1 To Text1.SelLength
c = Mid(Text1.SelText, i, 1)
If c <> " " Then
t = t + c
Else
If ? = "the" Then
m = m + 1
End If
t = ""
End If
Next i
? = Str(m)
End If
End If
End Sub
上面2题都是计算机VB试题中的,没有答案啊~~不好意思 特来请教

text1(a数组)读出的数据中是3的倍数的显示在text2(b数组)中,并从小到大排列,程序不完整,请补充.
Option Base 1
Dim a(100) As Integer, num As Integer
Private Sub Command1_Click()
Dim k As Integer