填空题 下面程序的功能是从输入的一串数字中找出全部由该数字串中连续数字组成的素数。 Option Explicit Private Sub CmdRun_Click1 Dim n As Long,s As String Dim i As Integer,j As Integer S=Text1.Text For i=1 To Len(s) For j=1 To Len(s)-i+1 n= 2(19) 3 If prime(n) Then List1.AddItem CStr(n) Next j Next i End Sub Private Function prime( 4(20) 5)As Boolean Dim i As Integer For i=2 To Sqr(n) If n Mod i=0 Then Exit Function Next i 6(21) 7 End Function