用VB找出程序满足5M+7N=128的两个素数M和N

来源：百度知道 编辑：UC知道 时间：2024/05/13 03:46:54
1、单击“开始”按钮，求出满足条件的M和N值，并按图示格式输出到文本框中
2、单击“清除”按钮，则将文本框清空，焦点置于“开始”按钮上，单击“结束”按钮，结束程序运行
3、程序中必须包含一个判断某数是否为素数的通用过程

控件属性略
Private Sub Command1_Click()
Dim m As Integer, n As Integer
For m = 1 To 25
For n = 1 To 18
If 5 * m + 7 * n = 128 And s(m) And s(n) Then

Text1.Text = "m=" & m & "n=" & n
End If

Next n
Next m

End Sub

Private Sub Command2_Click()
Text1.Text = ""
Command1.SetFocus
End Sub
Private Function s(x) As Boolean
Dim i As Integer
For i = 2 To Sqr(x)
If x Mod i = o Then
s = False
Else: s = True
End If
Next i
End Function

Private Sub Command3_Click()
End
End Sub

加入三个按钮command1、command2和command3,一个文本框text1,调整好大小和位置，其它工作由程序完成。代码如下：

Dim I As Integer, J As Integer, K As Single
Dim Sushu As Boolean

Private Sub Command2_Click()
Text1.Text = ""
Command1.SetFocus
End Sub

Priva