vb编程题：急急急！在100以内的素数中，找出两两之间包含的合数最多（或间隔最大）的素数对。

Private Sub Command1_Click()
  List1.Clear
  Me.Caption = "在100以内的素数中找出间隔最大的一对相邻素数"
  Dim Flag As Boolean, MaximumInterval As Integer, Subscript As Integer
  For i = 2 To 100
    Flag = True
    For j = 2 To Sqr(i)
      If i Mod j = 0 Then
        Flag = False
        Exit For
      End If
    Next j
    If Flag Then
      List1.AddItem i
    End If
  Next i
  MaximumInterval = 0
  Subscript = 0
  For i = 0 To List1.ListCount - 2
    If Val(List1.List(i + 1)) - Val(List1.List(i)) > MaximumInterval Then
      MaximumInterval = List1.List(i + 1) - List1.List(i)
      Subscript = i
    End If
  Next i
  Text1.Text = "间隔最大的一对相邻素数是：" & List1.List(Subscript) & "和" & List1.List(Subscript + 1) & "。"
End Sub