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

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

    << 上一篇 下一篇 >>

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