Re: [問題] 一題數學

[x000032001 (誰家的狗噓老子文)]

先說好 這下面是來亂的

不喜勿入喔= =























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)
→ gj942l41l4:VB嗎= =?好久沒碰了...自從碰C以後......
→ banqhsia:我也有想過用程式碼來寫作業 XD  也想過寫程式給同學寫作
→ banqhsia:業  他們一定會感謝我的 XDDD
推 Hevak:你果然是學記概的
→ Hevak:        計
→ Hevak:          計
推 banqhsia:亞所對二次沒對準.......XD
推 yuhen0121:      妓
推 zoko741235:樓上好糟糕 !!!
推 j0958322080:3好像不合，這樣根號出來是虛數
推 Y78:小心TLE 哈哈
推 gj942l41l4:樓上專業XD