冷雪0715
幼苗
共回答了19个问题采纳率:100% 举报
自定义函数,定义变量类型,形参x为Long,而该函数为String
定义循环变量
如果形参为1则返回"?"
如果形参为2或3则返回"质数"
如果形参为其他值,则进入质数判断程序
常用的方法是检查该数x能否被2~int(sqr(x))之间的数整除
能整除则是合数
都不能整除才是质数
但程序有错,应该是:
Function ZHSHU(x As Long) As String
Dim i As Long
If x = 1 Then ZHSHU = "?": Exit Function
If x = 2 Or x = 3 Then ZHSHU = "质数": Exit Function
For i = 2 To Int(Sqr(x))
If Int(x / i) = x / i Then
ZHSHU = "合数"
Exit Function
End if
Next i
ZHSHU = "质数"
End Function
1年前
6