程序如下：

Sub test()For j = 2 To 100isPrime = 1For i = 2 To Int(Sqr(j))If j Mod i = 0 ThenisPrime = 0 Exit For End If Next iIf isPrime = 1 Then***.print j; End IfNext jEnd Sub

結(jié)果：

Tags：素數(shù)有多少個VBA

文章版權(quán)聲明：除非注明，否則均為便查問答網(wǎng)原創(chuàng)文章,，轉(zhuǎn)載或復制請以超鏈接形式并注明出處,。