素数的定义:如果一个数的因数只有1和它自身,那么它就是素数你说找出一个大于或等于该数的第一个素数 那只有素数它本身了 如果还有的话 那它就不是素数了Dim a As Integer, b As Integer, i As Integera = InputBox("请输入一个纯数字", "输入")i = 2Do While i <= Int(Sqr(a))If a Mod i = 0 Then Exit Doi = i + 1LoopIf i = Int(Sqr(a)) + 1 ThenMsgBox "第一个素数:1 " & vbCrLf & "第二个素数: " & aElseMsgBox "非素数"End I...
Private Sub Command1_Click()Dim n As Integern = InputBox("请输入n的值", "提示")t = 2Dojmp: t = t + 1 For i = 2 To t - 1If i = t - 1 Then s = tIf t Mod i = 0 Then GoTo ...