哪位高手幫我解答下

Private Function prime(s As Integer) As Boolean

Dim a As Integer
Dim yes As Boolean
yes = True

For a = 2 To s \ 2
 If s Mod a = 0 Then
  yes = False
  Exit For
 End If
Next a

End Function

Private Sub command1_click()

Dim s%, s1%, s2%
s = Val(InputBox("輸入大於六的正整數"))

If prime(s) Then
  Print s; "是素數"
 Else
  Print s; "不是素數"
End If

End Sub

前面是看懂了，但是這塊不明白

麻煩講解下怎麼可以直接 用If語句加函數 來調用函數

本人是菜鳥，麻煩講解細緻點

If prime(s) Then ...

'就是

If prime(s) = True Then ...

在If語句中一般布爾值為True的就可以省略=True

= False不能省略..但也可以在前面加Not.變成

If Not(prime(s)) Then...

間接地縮略了False.

你在定义那个涵数的时候yes着个布尔变量可以省掉.直接用Return,返回true or false或者0 or 1,燃后才可以在if 语句中当作条件用