作业帮 > 综合 > 作业

用VB:设计一个函数,用来判断一个整数是否为素数.给定的整数若是素数,则返回逻辑值True,否则返回False

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/04/30 10:44:02
用VB:设计一个函数,用来判断一个整数是否为素数.给定的整数若是素数,则返回逻辑值True,否则返回False
Private Sub Form_Load()
Show
Dim a, i As Integer
a = Val(InputBox("请输入一个整数"))
For i = 2 To Int(Sqr(a))
If a Mod i = 0 Then
Print "false"
Exit For
Else
Print "true"
Exit For
End If
Next
End Su