Question

vb编程题，只要代码就行

二、编程题（70分）
【题目】
编写程序，求出介于正整数A、B之间所有包含4个因子的数（因子不包含1和自身）。
【编程要求】
1） 程序参考界面如图所示，编程不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；
2） 将窗体的名称属性设置为frm+学号后四位，如frm7088。
3） 运行程序，在文本框1和文本框2中分别输入A与B的值，按“运行”按钮，开始查找，并在列表框中按界面格式显示查找结果（要求用循环输出因子）；按“清除”按钮，则将文本框与列表框清空，焦点置于文本框1；按“结束”按钮，结束程序运行；
4） 程序中应定义一个求整数的因子（因子存于数组中）的通用过程。
5） 将窗体文件和工程文件分别命名为学号-FC2.frm和PC2.vbp保存在考生文件夹中。

Answer 1

Private Sub Command1_Click()'这个是运行按钮
    Dim i As Integer, s As String, a() As Integer
    For i = Val(Text1.Text) To Val(Text2.Text)
        Call QYZ(i, a())
        If UBound(a) = 3 Then'判断是否是4个因子
            s = Str(i) & ":"
            For j = 0 To UBound(a)
                s = s & a(j) & ","
            Next j
            List1.AddItem Left(s, Len(s) - 1)
        End If
    Next i
End Sub
Private Sub QYZ(nub As Integer, a() As Integer)'求整数的因子（因子存于数组a中）的通用过程
    Dim n As Integer, m As Integer
    n = 0
    For m = 2 To nub \ 2
        If nub / m = nub \ m Then
            ReDim Preserve a(n)
            a(n) = m
            n = n + 1
        End If
    Next
End Sub

Answer 2

Private Sub Command1_Click()
    Dim i As Integer, m As Integer, n As Integer
    Dim arr(1 To 4) As String
    Dim a As Integer, b As Integer
    a = Text1.Value: b = Text2.Value
    List1.Clear
    For i = a To b
        n = 0
        For m = 2 To i \ 2
            If i / m = i \ m Then
                n = n + 1
                If n > 4 Then GoTo iNext
                arr(n) = m
            End If
        Next
        If n = 4 Then List1.AddItem i & ":" & Join(arr, ",")
iNext:
    Next
End Sub

 

测试结果：

1004:2,4,251,502
1017:3,9,113,339
1025:5,25,41,205
1028:2,4,257,514
1052:2,4,263,526
1058:2,23,46,529
1075:5,25,43,215
1076:2,4,269,538
1083:3,19,57,361
1084:2,4,271,542
1108:2,4,277,554
1124:2,4,281,562
1127:7,23,49,161
1132:2,4,283,566

......

 

4） 程序中应定义一个求整数的因子（因子存于数组中）的通用过程。

主要是你的第4问没看懂。是要Call 另一个程序么？

Answer 3

你把悬赏加到70分，再告诉我你的学号，很快就帮你搞定

追问

哪有这么多分啊？穷孩子一个