作者ankolee99 (黄小米)
看板Visual_Basic
标题Re: [.NET] 再问一题
时间Tue Jan 15 17:42:54 2008
※ 引述《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
SolValue = SolValue + (SolValue + i)
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
1F：→ ankolee99:自己测试 1 2 3 都对= =没有往下测试 01/15 17:48
2F：推 ahchi80036:感谢大大~~XD 01/15 17:54