问题标题:
【第一题用vb随机生成8个两位数,前四个是偶数,后四个是奇数.在线等,急.第二题查找出100以内的孪生素数(孪生素数是数本身和比它大2的数都是素数,如3和5),查找结果显示在列表框.好的追加2】
问题描述:
第一题用vb随机生成8个两位数,前四个是偶数,后四个是奇数.在线等,急.
第二题查找出100以内的孪生素数(孪生素数是数本身和比它大2的数都是素数,如3和5),查找结果显示在列表框.
好的追加200分!
李敏勇回答:
第一题
dims(1to8)asinteger
fori=1to4
s(i)=int(rnd*90)+10
dowhiles(i)mod2=1
s(i)=int(rnd*90)+10
loop
s(i+4)=int(rnd*90)+10
dowhiles(i+4)mod2=0
s(i+4)=int(rnd*90)+10
loop
next
第二题
fori=1to100
iffun(i)andfun(i+2)then
list1.additemi
endif
next
functionfun(sasinteger)asboolean'求素数函数
fori=2tosqr(s)
ifs/i=int(s/i)then
exitfunction
endif
next
fun=true
endfunction
何颖回答:
前面要定义吗,麻烦写全一些,我是小白,我会追加分数的。
点击显示
数学推荐
热门数学推荐