BASIC程序

来源：百度知道 编辑：UC知道 时间：2024/05/09 05:09:15
如何用BASIC语言编写一个能够找出1万一内质数的程序 请写出程序

'添加窗体Form1,按钮Command1,然后添加如下代码:
Private Sub Command1_Click()
    Dim l&, str1$
    For l = 2 To 10000
        If isZS(l) Then str1 = str1 & l & ","
    Next
    MsgBox str1 '显示结果
End Sub
'判断是否是质数
Private Function isZS(lng1 As Long) As Boolean
    Dim i&
    For i = 2 To Int(lng1 / 2)
        If lng1 Mod i = 0 Then
            isZS = False
            Exit Functio