要求如下:
求分数Z的值,同时满足以下条件:
(1) 1/6<Z>1/5
(2) Z的分子分母都是素数,且分母是两位数
要求如下:
求分数Z的值,同时满足以下条件:
(1) 1/6<Z>1/5
(2) Z的分子分母都是素数,且分母是两位数
Private Sub Command1_Click()
Dim n, m, nk, mk, i As Integer 'n为分子,m为分母,nk,mk数学最简求素范围变量,i循环量
For n = 2 To 19 ' 分子没确定,但是1/6的分母是两位数,所以扩大一倍大约是2/12 ,又1/5在20/100范围内所以分子范围是2~19之间
nk = Sqr(n)
For i = 2 To nk
If n Mod i = 0 Then Exit For
Next i
If i > nk Then
For m = 11 To 99 '11~99为两位数的素数范围
mk = Sqr(m)
For i = 2 To mk
If m Mod i = 0 Then Exit For
Next i
If i > mk Then
If n / m > 1 / 6 And n / m < 1 / 5 Then '当条件满足输出
Print "分子:" & n; "分母:" & m
End If
End If
Next m
End If
Next n
End Sub
粘贴即可~ ^ _ ^