Private Sub Command1_Click()
Dim k As Long
Dim kmod As Integer
k = CLng(Text1.Text)
kmod = k Mod 3
If kmod = 2 Then
kmod = k Mod 5
If kmod = 3 Then
kmod = k Mod 7
If kmod = 4 Then
text2.Text = text2.Text & ";" & k
Exit Sub
End If
End If
End If
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Text1.SetFocus
End Sub
采纳吧。
温馨提示:内容为网友见解,仅供参考