Private Function fact(n&) As Boolean'错误1：参数n的数据类型应该与command1_click事件里的i类型一致
Dim s&'错误2：s的类型也应该是长整型（&），你原来定义为整形（%）或导致溢出
fact = True
For s = 2 To Sqr(n) '这里循环至sqr（n）即可，可以大大提高代码执行速度，你可以比较一下
If n Mod s = 0 Then '这里i应该改为s，别用i习惯了
fact = False
Exit For
End If
Next s'同样i改成sE...
