'[例3-9] 输出指定两个整数之间的所有素数.所谓素数是指除了1与其自身外不能被任何数整除的数.程序代码如下:
Private Sub Form_Click()
m = InputBox("请输入一个整数")
n = InputBox("请输入另一个整数")
If n < m Then
t = n
n = m
m = t
End If
For i = m To n
k = Int(Sqr(i)) '①
j = 2
swit = 0 '②
While j <= k And swit = 0
If i Mod j = 0 Then
swit = 1
Else
j = j + 1
End If
Wend
If swit = 0 Then
d = d + 1
If d Mod 5 = 0 Then
Print i; " ";
Print
Else
Print i; " ";
End If
End If
Next i
End Sub
'将程序保存在frmExam_3_9的窗体中,在输入100与300后,运行的结果如图3-9所示.
'①我承认我的数学比较差,但是这里的k具体代表的是什么,对i进行开方取整有什么意义?
'②swit翻译成中文是什么意思?