何老师的济亨网
五笔打字通主页
当前位置：首页 » 程序代码 » 正文
-
用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://wb86.com/post/130.html
-
湘公网安备 43011102000514号