Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim n, i, x, y As Integer
n = TextBox1.Text
y = 0
For i = 0 To n
For x = 2 To i - 1
If Int(i / x) = i / x Then Exit For
Next
If x = i Then
Label1.Text = Label1.Text & i
End If
Next
End Sub


我觉得 IF 后面的语句应该执行不了，X不可能等于 i 的，但程序能通过，执行没问题
还有就是我把 i-1 换成 i 结果一样，那这个 i-1怎么解释

这下清楚了
谢谢楼上两位