这篇博客分享了VB编程中求素数的一种经典且快速的方法，通过编写一个公共函数`sus`来判断输入的长整数是否为素数。在用户界面中，当用户输入一个数字并点击按钮后，程序会判断该数字并显示结果。同时，文章还推荐了一系列VB相关的文章，涵盖了资源管理、WindowsMediaPlayer、API调用、加密算法、进程控制等多个方面。
代码如下：
Option Explicit
Dim xx As Long
Public Function sus(ByVal x As Long) As Boolean
'素数
Dim i As Long
sus = True
For i = 2 To Math.Sqr(x)
If x Mod i = 0 Then sus = False: Exit For
Next i
End Function
Private Sub Command1_Click()
If sus(xx) Then
Label1.Caption = Text1.Text & " 是素数"
Else
Label1.Caption = Text1.Text & " 是合数"
End If
End Sub
Private Sub Text1_Validate(Cancel As Boolean)
On Error Resume Next
If Text1.Text = vbNullString Then
Cancel = True
Exit Sub
End If
xx = CLng(Text1.Text)
If xx <= 0 Or xx <> Fix(Text1.Text) Then
MsgBox "请输入小于2147483647正整数", vbOKOnly Or vbInformation, Me.Caption
Cancel = True
End If
End Sub
最低0.47元/天 解锁文章
921
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
