计算机上机实验报告
课程名称：Visual ： 日期：
学号： 学生姓名： 班级： 院系：
实验题目：判断一个给定的整数是否为素数
实验报告内容（按顺序写出：实验目的、实验内计算机上机实验报告
课程名称：Visual ： 日期：
学号： 学生姓名： 班级： 院系：
实验题目：判断一个给定的整数是否为素数
实验报告内容（按顺序写出：实验目的、实验内容及过程、实验结果及分析总结）
实验目的:：在窗体中，判断一个给定的整数是否为素数。
实验内容及过程：
Private Sub Form_Click()
Dim N %, I%, K%
N = Val(InputBox("N=？"))
K= Int(Sqr(N))
For I = 2 To K
If N Mod I = 0 Then Exit For
Next I
If I>K Then
Print N; " 是素数"
Else
Print N; " 不是素数"
End If
End Sub
算法流程图如下：
实验结果：得出了能被1和自身整除外，不能被其他数整除的自然数。
分析总结：通过此方法，可以判断一个数是否为素数。
内容在上面写不下时，可另附纸
评定实验成绩：
判断一个给定的整数是否为素数 来自淘豆网m.daumloan.com转载请标明出处.
