梦想的边缘

摘要： 程序界面:代码:'判断参数a是否为素数，若是素数，返回True;否则返回FalsePrivate Function SuShu(a As Integer) As Boolean Dim i As Integer For i = 2 To a - 1 If a Mod i = 0 Then Exit For Next i If i = a Then SuShu = True Else SuShu =... 阅读全文

摘要： 程序界面:代码:Private Sub Command1_Click() '判断用户输入是否合法(大于2的偶数) If IsNumeric(Text1.Text) = False Or Val(Text1.Text) <= 2 Or Val(Text1.Text) Mod 2 <> 0 Then MsgBox "请输入一个大于2的偶数" Text1.Text = "" Text... 阅读全文