用VB编写3到200之间的数是否素数。

来源:百度知道 编辑:UC知道 时间:2024/06/26 03:13:09
数用inputbox函数输出。

表达有问题,3到200之间的数可多了,素数也不少。
inputbox是输入函数。
应该是用inputbox输入一个从3到200之间的数,判断这个数是不是素数!
Private Sub Command1_Click()
a = InputBox("请输入3到200之间的一个整数", , 79)
For j = 2 To Sqr(a)
If a Mod j = 0 Then Exit For
Next
If j > Sqr(a) Then
Print a & "是素数!"
Else
Print a & "不是素数!"
End If
End Sub

首先inputbox函数是输入用的,输入用msgbox函数。
我猜你的意思是输入一个3至200之间的自然数,然后判断它是否是素数,或是找3至200之间的所有素数。

20分有些少哦!你可以参考百度百科质数。