→ petitcuckoo:For y = 1 to 1/x ( 1/x < 1 所以直接跳開了 ) 12/29 23:44
推 jie0915:For y = 1 To N 迴圈跑一次就加一個進去.算式寫在迴圈裡~ 12/30 19:08
請輸入專案類型(網站專案或者應用程式專案)：
例題是這樣的
1+1/2+1/3+1/4....1/n n=自己輸入
我寫了這樣的程式
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim x, y, sum As Double
x = CInt(TextBox1.Text)
For y = 1 To 1 / x Step 1
sum = sum + y
Next y
TextBox2.Text &= sum
End Sub
End Class
怎麼輸入答案都是0耶~~應該是
For y = 1 To 1 / x Step 1
這邊出了問題
但是我想破頭都解不出來阿
有人可以敎敎我嗎..另外那個什麼do wehile...ㄧ堆的迴圈
有沒有怎麼這麼難阿QQ以後想寫成迴圈很重要嗎??
謝謝
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 118.166.66.126
※ 編輯: kyle421 來自: 118.166.66.126 (12/29 22:14)