華閱文章網用*的FOR語句怎么編寫1到100所有奇數的和啊 ！！！馬上要考
dim sSum as long
for i=1 to 100
if i mod 2 =1 then
sSum=sSum + i
endif
next i
msgbox "1、100的奇數和為：" & sSum，"提示"
==========================================
Sum 是關鍵字，是個系統函數
sSum 只是一個變量，暈，可以改成別的。
vb
Dim lbl As Label
For Each lbl In *ls
Select *(*, 7)
Case "Label1"
*(lbl)
Case "Label2"
*(lbl)
Case "Label3"
*(lbl)
Case "Label4"
*(lbl)
Case Else
End Select
Next
* 關于循環語句
我寫了一段代碼，注意你讀取的方法，我改進了一下
Imports * '代碼窗體的最上端一定要聲明
Public Class Form1
Private Sub Button1_Click(ByVal sender As *, ByVal e As *rgs) Handles *
Dim sr As StreamReader
Dim TextBox As Control
Dim i As Integer
i = 1
For Each TextBox In *ls
If TypeName(TextBox) = "TextBox" Then
sr = New StreamReader("c:\save\" & i & ".ini", *t) '注意選擇編碼方式，按你原來的方法，未設置編碼，顯示的是亂碼！路徑請按你的情況改！
* = *End()
i += 1
End If
Next
MsgBox（"已經載入" & i - 1 & "個文件"）
End Sub
注意：這樣的代碼是倒序的，第一個文本框顯示的是最后一個文件的內容！請酌情處理！
轉載請注明出處華閱文章網 » vb.netfor語句
