VB中求一个整数的所有质因子（质因子都一个一个输入在文本框中）

VB中求一个整数的所有质因子（质因子都一个一个输入在文本框中）

一个文本框，一个框架，一个标签，一个命令按钮
Private Sub Command1_Click()
m = Val(Text1.Text)
For i = 2 To Int(Sqr(m))
If m Mod i = 0 Then Exit For
Next
If i <= Sqr(m) Then
Label1.Caption = m & "不是一个素数"
Else
Label1.Caption = m & "是一个素数"
End If
Text1.SetFocus
End Sub

Private Sub Command1_GotFocus()
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub

Private Sub Form_Load()
Frame1.Caption = "请输入一个大于2的整数"
Text1.Text = ""
Command1.Caption = "开始判断"
Label1.Caption = ""
End Sub