求出介于正A,B之间所有包含四个因子的数.如A=1000,B=2000,1004:2,4,251,502两个文本框,一个

横眉冷对千夫所指2022-10-04 11:39:541条回答

求出介于正A,B之间所有包含四个因子的数.如A=1000,B=2000,1004:2,4,251,502两个文本框,一个列表
,三个按钮
只有4个

已提交，审核后显示！提交回复

指尖纱共回答了25个问题 | 采纳率92%: 请楼主补充一下, 是找出只包含4个因子的数,还是包含大于等于4个因子的数..
Private Sub Command1_Click()
If Text1 = "" Or Text2 = "" Then Exit Sub
Dim i%, j%, m%, n%, s%()
For i = Val(Text1) To Val(Text2)
For j = 2 To Sqr(i)
If i Mod j = 0 Then m = m + 1
If m > 4 Then Exit For
Next
If m = 4 Then
ReDim Preserve s(n)
s(n) = i
n = n + 1
End If
m = 0
Next
List1.Clear
For i = 0 To UBound(s)
List1.AddItem s(i)
Next
End Sub
Private Sub Form_Load()
Text1 = "1000"
Text2 = "2000"
List1.Clear
End Su; 1年前