高校问答中西医结合儿科学重点:求一VB题目~~~
来源：百度文库 编辑：高校问答 时间：2024/05/09 04:52:30
444~666之间最大的素数~~谢谢哦`~
没搞错吧~~谁告诉你665时素数？？？？可以被5整除阿！！！！是不是661~~~别把我做宝搞好吧！！~~我只是刚考完想问一下~~看我做对没！你交的那个语句书上都有~~所以我只是不想看书~~希望大家给我确认已下~~不时我懒~~是觉得考完了再看书没
必要
没搞错吧~~谁告诉你665时素数？？？？可以被5整除阿！！！！是不是661~~~别把我做宝搞好吧！！~~我只是刚考完想问一下~~看我做对没！你交的那个语句书上都有~~所以我只是不想看书~~希望大家给我确认已下~~不时我懒~~是觉得考完了再看书没
必要
Private Sub Command1_Click()
Dim n As Integer
For n = 444 To 666
k = Int(Sqr(n))
i = 2
swit = 0
While i <= k And swit = 0
If n Mod i = 0 Then
swit = 1
Else
i = i + 1
End If
Wend
If swit = 0 And n > z Then
z = n
End If
Next n
Print z; "是一个素数"
End Sub
VB，VB.NET交流
欢迎假如24885035群,请说明意图
代码成就天地人生，程序造就你我辉煌
让我们在程序的路上一起走得更远!
用for i=444 to 666 step1筛选语句
665