用随机函数长生N个2位函数,用选择法排序后将他们按值从小到大排序输出!
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/25 20:05:26
![用随机函数长生N个2位函数,用选择法排序后将他们按值从小到大排序输出!](/uploads/image/z/7807929-33-9.jpg?t=%E7%94%A8%E9%9A%8F%E6%9C%BA%E5%87%BD%E6%95%B0%E9%95%BF%E7%94%9FN%E4%B8%AA2%E4%BD%8D%E5%87%BD%E6%95%B0%2C%E7%94%A8%E9%80%89%E6%8B%A9%E6%B3%95%E6%8E%92%E5%BA%8F%E5%90%8E%E5%B0%86%E4%BB%96%E4%BB%AC%E6%8C%89%E5%80%BC%E4%BB%8E%E5%B0%8F%E5%88%B0%E5%A4%A7%E6%8E%92%E5%BA%8F%E8%BE%93%E5%87%BA%21)
用随机函数长生N个2位函数,用选择法排序后将他们按值从小到大排序输出!
用随机函数长生N个2位函数,用选择法排序后将他们按值从小到大排序输出!
用随机函数长生N个2位函数,用选择法排序后将他们按值从小到大排序输出!
Fuction isprime(a as integer)'函数,整数a为参数
dim flag as boolean'令flag为布尔型变量
k%=2'令整数k=2
flag=true'令flag=true
while k%<=int(a/2) and flag'当k小于a的二分之一且flag=true时,执行这些语句
if a/k%=int(a/k%) then'若k是a的因数,那么令flag=false
flag=false'此处令flag=false,这条语句当且仅当上一行的条件成立时执行
end if'结束判断
k%=k%+1'令k的值递增1
wend'循环结束句
isprime=flag'令函数返回值为flag
end function'函数结束
其实一个更好的算法是
Function IsPrime(a as Integer) As Boolean
If a=1 Then
IsPrime=False
Exit Function
End If
For I=2 To SQRT(a)
If a mod I=0 Then
IsPrime=False
Exit Function
End If
Next I
IsPrime=True
End Function
有什么不懂的,给我发短消息~