作者ankolee99 (黄小米)
看板Visual_Basic
标题Re: [.NET] 再问一题
时间Tue Jan 15 17:59:25 2008
※ 引述《ankolee99 (黄小米)》之铭言：
: ※ 引述《ahchi80036 (勳a)》之铭言：
: : 请输入专案类型(网站专案或者应用程式专案)：
: : 题目是利用副程式或函数写一程式可输入一数值N,得到
: : S=1+(1+2)+(1+2+3)+...+(1+2+3+...+N)
: : 感谢大大回答ORZ
: = =...这些东西应该是平常要练的!!
: 念在你要考试，所以打现成的给你!!
更正：
Private Function add(ByVal n As Integer) As Integer
Dim SolValue As Integer '累加的暂存变数
For i As Integer = 1 To n
'每次都做一次累加 1~i
Dim v As Integer = 0
For j As Integer = 1 To i
v = v + j
Next
SolValue = SolValue + v
Next
Return SolValue
End Function
: 在主程式呼叫 add(n) 就可以使用了!!(add为方法名称可自行更改!!) i.e
: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
: TextBox2.Text = add(Integer.Parse(TextBox1.Text))
: End Sub
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 220.140.124.159