一道VB 题目

a>b>c
这里从左到右计算，a>b 结果为true
那么下一步计算就是 判断 true > c
因为true 和C 无法比较，所以输入结果为false

修改了一下

Private Sub Form_Load()
Dim i As Integer
Randomize
For i = 0 To 29
List1.AddItem CStr(Int(Rnd * 90 + 10))
Next i
End Sub

Private Sub Form_Click()

Dim i As Integer, s(29) As Boolean
On Error Resume Next
For i = 0 To 29
s(i) = Prime(List1.List(i)) = True
Next i
For i = 0 To 29
If s(i) Then List1.RemoveItem i
Next
End Sub

Private Function Prime(n As Integer) As Boolean
Dim i As Integer
If n < 2 Then
Prime = False
Else
For i = 2 To Sqr(n)
If n Mod i = 0 Then Exit For
Next i
If i > Sqr(n) Then Prime = True Else Prime = False
End If
End Function