a% = 18000
Do
a% = a% - 1
Loop Until isprime(a%)
Text1.Text = a%
End Sub
Private Sub C2_Click()
Open "out5.txt" For Output As #1
Print #1, Text1.Text
Close #1
End Sub
Private Function isprime(a As Integer) As Boolean
Dim flag As Boolean
flag = True
b% = 2
Do While b% <= Int(a / 2) And flag
If Int(a / b%) = a / b% Then
flag = False
Else
b% = b% + 1
End If
Loop
isprime = flag
End Function
【程序设计:求小于一个数(18000)的素数】相关文章：
定陵陵园(Dingling Mausoleum)英语作文|定陵陵园(Dingling Mausoleum)英语范文|定陵陵园(Dingling Mausoleum)英语小作文02-10
2018山西太原市十大重点小学排名及简介02-10
第一次滑雪作文02-10
我的弟弟是个淘气包_350字02-10
饱和汽与饱和汽压的定义和汽化的方式02-10
夸夸我的学校02-10
高一物理选择性必修一知识点整理02-10
2023年河南洛阳市城乡一体化示范区（伊滨区）招聘乡镇卫生院专业技术人员10人公告02-10
昙花一现的感情，不能真诚地可靠地长期地相_名人名言02-10
2025国考报名：广西92个无人报考职位一览（截止10月16日16:00）02-10
杭州电子科技大学人文艺术与数字媒体学院631艺术设计理论2022硕士研究生招生考试大02-10
黔西第一批选派大学生“村官”圆满收队02-10