VB求100-999最大的三个素数,帮忙看看哪里错

发布网友发布时间：2023-11-27 07:18

共2个回答

热心网友时间：2024-11-25 09:37

把 4和5 行对换位置，窗体需要开启自动重绘,要不打印不出来的
me.autoredraw=true
For i = 999 To 100 Step -1
flag = True

热心网友时间：2024-11-25 09:38

Private Sub Form_Load()
Dim a%, i%, j%
For i = 999 To 100 Step -1
    For j = 2 To i - 1
        If i Mod j = 0 Then Exit For
    Next j
    If j = i Then
        Print i
        a = a + 1
        If a = 3 Then Exit For
    End If
Next i
End Sub

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com