真的很简单呃...
重点:
冒泡排序法(具体上百度搜,百科里就有现成的代码)
把随机整数存入数组e:
dim e(1 to 80)
for i=1 to 80
e(i)=int(rnd*89+10)
next i
奇数m判断:
if m mod 2 = 1 then m是奇数
素数判断:
function 判断素数$(被判断的数@)'$是字符串(String)类型,@是Currency类型
for i = 2 to 被判断的数-1
if 被判断的数 mod i = 0 then
判断素数=被判断的数&"不是素数"
exit function
end if
next i
判断素数=被判断的数&"是素数"'既然并未能跳出循环,那么它当然是素数
end function