Private;Sub;Command1_Click()Dim;i;As;Long,;temp;As;Long;'i为循环变量毯竖，temp为前一个葵们贵素数Dim;shu;As;Long;'累加器，记录双胞胎数的个数;;;;For;i;=;31;To;601;Step;2;;;;;;;;If;panduan(i);Then;'判断该数是否为素数;;;;;;;;;;;;If;i;-;temp;=;2;Then;'和前一个素数差2，则为双胞胎数;;;;;;;;;;;;;;;;Print;temp,;i;;;;;;;;;;;;;;;;shu;=;shu;+;1;;;;;;;;;;;;End;If;;;;;;;;;;;;temp;=;i;;;;;;;;End;If;;;;Next;i;;;;Print;"共有劣耗";&;shu;&;"对双胞胎数"End;SubPrivate;Function;panduan(n;As;Long);As;Boolean;'判断n是否为素数Dim;i;As;LongFor;i;=;2;To;Int(Sqr(n));;;;If;n;Mod;i;=;0;Then;Exit;ForNext;iIf;i;>;Int(Sqr(n));Then;;;;panduan;=;TrueElse;;;;panduan;=;FalseEnd;IfEnd;Function