#程序设计:求小于一个数(18000)的素数 搜索结果
PrivateSubC1_Click()a%=18000Doa%=a%-1LoopUntilisprime(a%)Text1.Text=a%EndSubPrivateSubC2_Click()Open"out5.txt"ForOutputAs#1Print#1,Text1.TextClose#1EndSubP
