作者x000032001 (谁家的狗嘘老子文)
站内juniorhigh
标题Re: [问题] 一题数学
时间Mon Aug 31 21:50:53 2009
先说好 这下面是来乱的
不喜勿入喔= =
Private Sub Command1_Click()
For x = 9 To 100000
xxx = (x ^ 2 - 7 * x - 9) ^ 0.5
If xxx = Int(xxx) Then
Print xxx & vbCrLf & x
End If
Next
End Sub
得出 xxx=3 and x=9 或 xxx=21 and x=25 时有解
完毕
--
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 123.240.38.36
修签名档
※ 编辑: x000032001 来自: 123.240.38.36 (08/31 21:51)
1F：→ gj942l41l4:VB吗= =?好久没碰了...自从碰C以後...... 08/31 21:51
2F：→ banqhsia:我也有想过用程式码来写作业 XD 也想过写程式给同学写作 08/31 21:52
3F：→ banqhsia:业 他们一定会感谢我的 XDDD 08/31 21:52
4F：推 Hevak:你果然是学记概的 08/31 22:08
5F：→ Hevak: 计 08/31 22:08
6F：→ Hevak: 计 08/31 22:09
7F：推 banqhsia:亚所对二次没对准.......XD 08/31 22:09
8F：推 yuhen0121: 妓 08/31 22:10
9F：推 zoko741235:楼上好糟糕 !!! 08/31 22:12
10F：推 j0958322080:3好像不合，这样根号出来是虚数 09/01 17:18
11F：推 Y78:小心TLE 哈哈 09/01 20:42
12F：推 gj942l41l4:楼上专业XD 09/01 20:43