vb编程题 在文本框(text1)中输出之间的所有素数(所谓素数是指除了1与其自身外不能被任何数整除的数)。

2025-04-13 14:28:07
推荐回答(1个)
回答(1):

Private Sub form_click()
For i = 2 To 100
flag = 0
For j = 2 To i - 1
    If i Mod j = 0 Then flag = 1: Exit For
Next
If flag = 0 Then
    Text1.Text = Text1.Text & j & " "
End If
Next i
End Sub