第一题 用vb随机生成8个两位数,前四个是偶数,后四个是奇数.在线等,急.

第一题
dim s(1 to 8) as integer
for i=1 to 4
s(i)=int(rnd*90)+10
do while s(i) mod 2=1
s(i)=int(rnd*90)+10
loop
s(i+4)=int(rnd*90)+10
do while s(i+4) mod 2=0
s(i+4)=int(rnd*90)+10
loop
next
第二题
for i=1 to 100
if fun(i) and fun(i+2) then
list1.additem i
end if
next
function fun(s as integer) as boolean'求素数函数
for i=2 to sqr(s)
if s/i=int(s/i) then
exit function
end if
next
fun=true
end function