五笔打字通主页
VB编程计算100以内素数并输出到窗体。
注:质数(prime number)又称素数,有无限个。质数定义为在大于1的自然数中,除了1和它本身以外不再有其他因数的数称为质数。
在窗体上画一个按钮,代码如下。
Private Sub Command1_Click()
Me.Cls
Dim yn As Boolean '为真表示是素数
Dim i As Integer, j As Integer, x As Integer
For i = 1 To 100
yn = True '为真表示是素数,否则就不是,先默认为是素数
For j = 2 To i - 1 '素数要大小1,所以循环从2开始,素数不包括本身,所以循环终值减小1
If i Mod j = 0 Then yn = False '如果能整除就不是素数
Next j
If yn = True Then Print i; '如是素数,就在窗体上输出素数
Next i
End Sub
效果图如下:
如果不画按钮控件,也可以把按钮的代码写在窗体点击事件中。
来源:济亨网
本文链接:https://wb98.com/post/131.html