Question

Access程序设计

1.通过键盘输入一个自然数,判断是否为质数
2.在列表框（list1）中输出1~1000之间能被17整除的数，在编程前写明列表框的行来源属性值设计

Answer 1

1、

Sub ZhiShu()

    Dim X As Long

    Dim X1 As Long

    Dim BZ As Boolean

    Dim temp

    X = InputBox("请输入一个数字")

    If CLng(X) <= 2 Then Exit Sub

    X1 = Sqr(CLng(X))

    For I = 2 To X1

        temp = X / I

        If temp = Int(temp) Then BZ = True: Exit For

    End If

    MsgBox X & IIf(BZ, "", "不") & "是一个质数"

End Sub

2、

Sub LLLLLL()
    Dim I As Integer
    Dim X
    For I = 1 To 1000
        X = I / 17
        If X = Int(X) Then List1.AddItem X
    Next
End Sub

Answer 2

Access程序设计我这儿有的.