永发信息网

VB 求一个特定分数的问题

答案:1  悬赏:0  手机版
解决时间 2021-06-04 09:34

要求如下:

求分数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



粘贴即可~ ^ _ ^

我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
红专一个多少钱?
被鱼刺卡住喉咙怎么办?
桐柏县南阳桐柏县安棚镇动物防疫检疫中心站地
DNF角色COF指数怎么减?
我QQ密保问题答案忘记了。
谁知道这是什么发型?(太有型啦!!)
公务员好考么?
为什么感情都是模糊 复杂的??
夷陵区宜昌世纪源大酒店地址在哪,我要去那里
王若琳是哪里的
极品西湖龙井年常量是多少斤?专业人事入内 谢
But ____ bike roads have been ready yet.No
QQ三国一代枭雄的全平稳赵云几钱、精元多少钱
情商是怎么回事?
用扑克牌搭成的模型怎么样最牢固
推荐资讯
PSP5.50-D(full)系统 怎么不能玩 火影晓之觉
VE做面膜最简单的具体方法有哪些
现在DNF的金秋时尚混搭套装礼包有什么东西
大家帮我看下,这两个域名好?
早孕试纸测的结果是不是不准喃?
把字变竖的....
夏邑县商丘刘幸福兽药饲料部地址在什么地方,
问一下慢肠炎在那里的
开一个摩托车修理店要具备那些能力…
最近有什么好听的歌曲 。
求若干首好听的英文歌
生日祝福语短信
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?