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

VB编程：试编程判断给定的两个正整数是否互质 vb6.0 源码

用VB编写，判断断给定的两个正整数是否互质。

解，在窗体上画两个文本框和一个按钮控件，代码如下：

Private Sub Command1_Click()
    Dim intA As Integer
    Dim intB As Integer
   
    intA = Int(Text1.Text)
    intB = Int(Text2.Text)
   
    For i = 2 To intA - 1
        If (intA Mod i) = 0 Then
            If (intB Mod i) = 0 Then
                MsgBox "输入的两个数不是互质数", , "提示"
                Exit Sub
            End If
        End If
    Next i
   
    For i = 2 To intB - 1
        If (intB Mod i) = 0 Then
            If (intA Mod i) = 0 Then
                MsgBox "输入的两个数不是互质数", , "提示"
                Exit Sub
            End If
        End If
    Next i
    MsgBox "输入的两个数是互为质数", , "提示"
End Sub

 

此程序的效果示意图如下：

visual basic 6.0 编程代码

打赏 支付宝打赏 微信打赏

来源：济亨网

本文链接：http://wb98.com/post/130.html

VB代码  
    << 上一篇 下一篇 >>

    最近发表

    赞助商链接

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