You will never be able to escape from your heart. So it's better to listen to what it has to say.
既然無法逃避自己的心，不如就好好地聽聽它在說些什么。———— Paulo Coelho
2021.02.18 經(jīng)批評，原提供的幾段代碼有錯誤，本人其實對VB也不了解。 以下是回復(fù)中更正的代碼： Private Sub Form_Click()?For i = 1 To 100 Step 1???? p = 0?? For j = 2 To Sqr(i) Step 1???? If i Mod j = 0 Then?????? p = 1???? End If?? Next j?? If p = 0 Then???? Print i;?? End IfNext iEnd Sub