一道求因子即约数的vb题！

来源：百度知道 编辑：UC知道 时间：2024/06/14 15:53:44
在文本框Text1中输入一个正整数，在文本框Text2中输出它的所有因子（以西文逗号间隔）。
如20,则输出为:
1,2,4,5,10,20,

Private Sub Command1_Click()
Text2.Text = ""
n = Val(Text1.Text)
For i = 1 To n
If n Mod i = 0 Then
Text2.Text = Text2.Text & i & ","
End If
Next
If Right(Text2.Text, 1) = "," Then
Text2.Text = Left(Text2.Text, Len(Text2.Text) - 1)
End If
End Sub

约数：两个因数相乘的数，那么这两个因数就是这个数的约数。