求编程代码vb谢谢

大于5的正整数找互质数没有任何问题。

Private Sub Command1_Click()
Dim I As Integer
For I = Val(Text1.Text) - 1 To 2 Step -1
If Hzs(I, Val(Text1.Text)) Then
List1.AddItem I
End If
Next I
End Sub
Private Sub Command2_Click()
List1.Clear
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Form_Load()
Command2_Click
Command1.Caption = "求解"
Command2.Caption = "清除"
Command3.Caption = "退出"
End Sub
Private Function Hzs(Sj1 As Integer, Sj2 As Integer) As Boolean
Dim I As Integer
Hzs = True
For I = 2 To Sj1
If Sj1 Mod I = 0 And Sj2 Mod I = 0 Then
Hzs = False
Exit For
End If
Next I
End Function