VB编程：计算100 以内素数 VB代码 （图）

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

效果图如下：

如果不画按钮控件，也可以把按钮的代码写在窗体点击事件中。

打赏 支付宝打赏 微信打赏

来源：济亨网

本文链接：http://wb86.com/post/131.html