230问答网 > 编写vb程序，输入一个大于1的正整数，求它的所有因子（包含1和本身）。

编写vb程序，输入一个大于1的正整数，求它的所有因子（包含1和本身）。

Private Sub Form_Click()Dim m As Integerm = InputBox("输入一个整数")……

2025-01-05 16:06:07

推荐回答（2个）

回答1：

Private Sub Command1_Click()
  Dim m As Long
  m = InputBox("请输入一个正整数：", "求一个正整数的所有因子", Int(Rnd * 1000000 + 1))
  Print m & "的因子有：1 ";
  If m > 1 Then
    For i = 2 To m
      If m Mod i = 0 Then Print i;
    Next i
  End If
  Print
End Sub

回答2：

Private Sub Form_Click()
Dim m As Integer
Dim strA As String
strA = 1
m = InputBox("输入一个整数")
If m = 1 Then
MsgBox m & "的所有因子：1," & m
Exit Sub
End If
For i = 2 To m
If m Mod i = 0 Then
strA = strA & "," & i
m = m / i
End If
Next i
MsgBox m & "的所有因子：" & strA & ","
End Sub