求助，vb编程题。设计一个程序，找出100~900之间的无暇素数

'******************主要程序如下： dim i as integer for i=100 to 900 if sushu(i)=true then '调用下方sushu函数 dim dz as integer dz=diaozhuan(i) ’调用下方dianzhuan函数 if sushu(dz)=true then textbo