当前位置:首页 » 程序代码 » 正文

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://wb98.com/post/131.html

    << 上一篇 下一篇 >>

    湘公网安备 43011102000514号 - 湘ICP备08100508号