作者kyle421 (放羊的橘子)
看板Visual_Basic
标题[.NET] VB2005回圈遇到问题了QQ
时间Mon Dec 29 22:13:48 2008
请输入专案类型(网站专案或者应用程式专案)：
例题是这样的
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)
1F：→ petitcuckoo:For y = 1 to 1/x ( 1/x < 1 所以直接跳开了 ) 12/29 23:44
2F：推 jie0915:For y = 1 To N 回圈跑一次就加一个进去.算式写在回圈里~ 12/30 19:08