VB的問題-form

老師教我們用VB的FORM來演算出1~1000的奇數總和.
請各位大大幫幫我!!幫小妹這一個忙吧

se20080

我也想學易學~~因為我們老師交的我們都聽不懂~~~請高手敎敎我們八~~

jackly15

應該是使用For Next 就可以了吧

先在From上拉一個Button跟TextBox
然後把下列的東西貼在Button的事件中

Dim total as Integer
For i as Integer = 1 to 1000 SETP 2
      total =  total + i
Next i
WriteALine(TextBox1,&total)

差不多起頭是這樣啦...太久沒用VB了..小忘
來把他寫個完整點...應該是這樣就可以了,有問題再說吧
...

瀏覽完整內容，請先 註冊 或 登入會員

andy56224615

用迴圈LOOP久好啦
很簡單
建立一個label
然後:
Private Sub Form_Load()

For x = 1 To 1000 Step 2
    sum = sum + x
Next x
Label1.Caption = sum
End Sub

就可以了

樓上兩位不都一樣嗎??...

那麼我也來
什麼都不用建...直接在FORM上面
Private Sub Form_Activate()
    For n% = 1 To 1000 Step 2
        Sum& = Sum& + n%
    Next n
    Print Sum
End Sub

[ 本帖最後由 overing 於 2007-6-19 05:53 AM 編輯 ]