用随机函数长生N个2位函数,用选择法排序后将他们按值从小到大排序输出!

用随机函数长生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
有什么不懂的,给我发短消息～