vb第五次练习题
==================================================
题号：19524
'-------------------------------------------------
'【程序设计】
'-------------------------------------------------
'题目：判断一个数是否是素数。
'-------------------------------------------------
'注意：请在指定的事件内编写代码。
'*********Begin**********和'********** End **********不可删除
'-------------------------------------------------
Private Function Prime(ByVal m As Integer) As Boolean
'********** Begin *********
'********** End *************
End Function
Private Sub Form_Load()
Dim m, i As Integer
Show
m = Val(InputBox("请输入一个数"))
If Prime(m) = True Then
Print "该数是素数"
Else
Print "该数不是素数"
End If
TestFunc
