请解译下列VB中每个句子的意思.

请解译下列VB中每个句子的意思.
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
Else
ZHSHU = "质数"
End If
Next i
End Function
qiqianrui 1年前 已收到1个回答 举报

冷雪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
可能相似的问题
Copyright © 2024 YULUCN.COM - 雨露学习互助 - 16 q. 0.031 s. - webmaster@yulucn.com