PrivateSubCommand1_Click()
DimA(100)AsInteger
DimNAsInteger
DimiAsInteger,jAsInteger,xAsInteger
Fori=100To200
x=0
Forj=2Toi-1
IfiModj=0Thenx=1
Nextj
Ifx=0Then
A(N)=i
N=N+1
EndIf
Nexti
DimNcontAsInteger
Fori=0ToN-1
IfA(i+1)-A(i)=2Then
PrintA(i)&";"&A(i+1)
Ncont=Ncont+1
EndIf
Next
Print"对数="&Ncont
EndSub