暗黑2符文在哪里刷:VB操作题两道，帮我做一下

public function paidui(a() as integer,x as integer,k as integer)
dim i as integer,j as integer, b(2000) as integer
for i=1 to k
if a(i) mod 17 =0 and a(i)mod 37 =0 then
j=j+1:b(j)=a(i)
end if

程序写完了，下面是代码。(整个工程文件你要的话我可以发到你邮箱里面)
新建一个窗体，上面添加一个listbox,两个commandButton,两个textbox
其中
1、listbox和commandbutton1是用来计算17和37整除的数。
2、commandbutotn2用来将text1里面字符串排序后显示在text2中
Option Explicit

Private Sub Command1_Click()
Dim i As Integer
List1.Clear
For i = 100 To 1000
If panduan1(i) Then List1.AddItem i
Next i
End Sub
Private Function panduan1(d1 As Variant) As Boolean
'判断是否能同时被17和37整除的数，
If (d1 Mod 17 = 0) And (d1 Mod 37 = 0) Then
panduan1 = True
Else
panduan1 = False
End If

End Function

Private Sub Command2_Click()
Text2 = sortTxt(Text1.Text)
End Sub

Public Function sortTxt(str1 As String) As String
Dim i As Integer, j As Integer
Dim A() As String, N As Integer
Dim sT1 As String
If str1 = "" Then
sortTxt = ""
Exit Function
End If
N = Len(str1)
ReDim A(N)
For i = 1 To N
A(i - 1) = Mid(str1, i, 1)
Next i
'用冒泡法排序
For i = N - 1 To 0 Step -1
For j = 0 To i - 1
If Asc(A(j)) < Asc(A(j + 1)) Then
sT1 = A(j)
A(j) = A(j + 1)
A(j + 1) = sT1
End If
Next j
Next i
sT1 = ""
For i = 1 To N
sT1 = sT1 & A(i - 1)
Next
sortTxt = sT1
End Function