private function iss(byval n as integer)as booleandim i as integeriss=truefor i=2 to int(sqr(n))+1if (n mod 2)=0 theniss=falseexit fornextend functionprivate sub form_load()dim i as longfor i=2 to 98if iss(i) then if iss(i+2) then print i,i+2nextend sub把代码复制到窗体的代码编辑窗口里，运行就可以在窗体里显示。
