VB程序設計 編寫函數fun，函數的功能是：判斷壹個自然數是否為質數？

代碼如下：

Function SFZS(A As Integer) As String

SFZS = "是"

For I = A - 1 To 2 Step -1

? If A Mod I = 0 Then

?SFZS = "否"

?Exit For

? End If

Next I

End Function

運行結果如圖：