【VB】vb各种求1-100内的素数

2021.02.18 经批评，原提供的几段代码有错误，本人其实对VB也不了解。以下是回复中更正的代码：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 0 Comments

2021.02.18 经批评，原提供的几段代码有错误，本人其实对VB也不了解。

以下是回复中更正的代码：

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 If
Next i
End Sub

本文链接：https://my.lmcjl.com/post/25.html

展开阅读全文

相关文章

4 评论

留下您的评论.