用vb编一个程序判断输入的数是指数还是合数，是合数的输出质因数。

新建工程,1个按钮command1:

'1.是两个大于 1 的整数之乘积;
'2.拥有某大于 1 而小于自身的因数（因子）;
'3.拥有至少三个因数（因子）;
'4.不是 1 也不是素数(质数);
'5.有至少一个素因子的非素数。

Private Sub Command1_Click()
Dim i%, j%, m$, n%
j = Fix(Val(InputBox("请输入一个整数!!")))

If j < 1 Then
Print "输入的不对,我不玩.."
Exit Sub
End If

m = "": n = 0

For i = 2 To Int(Sqr(j))
If j Mod i = 0 Then
m = m & i & "-" & j / i & vbCrLf
n = n + 1
End If
Next

If m = "" Or n < 3 Then
Print j & "是质数!!"
Else
Print j & "是合数,它包含以下质因数: " & vbCrLf & m
End If
End Sub