要弄清楚這兩個(gè)問(wèn)題，就要明白For循環(huán)語(yǔ)句的語(yǔ)法規(guī)則：
站在用戶的角度思考問(wèn)題，與客戶深入溝通，找到高郵網(wǎng)站設(shè)計(jì)與高郵網(wǎng)站推廣的解決方案，憑借多年的經(jīng)驗(yàn)，讓設(shè)計(jì)與互聯(lián)網(wǎng)技術(shù)結(jié)合，創(chuàng)造個(gè)性化、用戶體驗(yàn)好的作品，建站類型包括：網(wǎng)站建設(shè)、網(wǎng)站設(shè)計(jì)、企業(yè)官網(wǎng)、英文網(wǎng)站、手機(jī)端網(wǎng)站、網(wǎng)站推廣、域名申請(qǐng)、雅安服務(wù)器托管、企業(yè)郵箱。業(yè)務(wù)覆蓋高郵地區(qū)。
For循環(huán)語(yǔ)句，首先是判斷循環(huán)條件，如果循環(huán)條件不合理，則循環(huán)不執(zhí)行。
那么看第一個(gè)語(yǔ)句，循環(huán)范圍是 i = -3.5 to 5.5，顯然這個(gè)是一個(gè)從-3.5到5.5的遞增范圍，可是后面的Step卻是一個(gè)負(fù)數(shù)，表示以0.5的步長(zhǎng)遞減。取值范圍要求從小到大，可是步長(zhǎng)改變卻是由大變小，顯然這個(gè)循環(huán)條件自相矛盾，所以循環(huán)將不會(huì)執(zhí)行，也就是循環(huán)執(zhí)行的次數(shù)是0次！
如果循環(huán)條件合理，則開(kāi)始執(zhí)行循環(huán)語(yǔ)句，直到根據(jù)步長(zhǎng)變換，下一個(gè)值超出循環(huán)范圍則終止。
For j = 6 to 2 Step -2
Next
完整寫(xiě)法就是：
For j = 6 to 2 Step -2
Next j
Next j的意思就是下一個(gè)j值。結(jié)合本題，下一個(gè)j值等于6-2=4，這個(gè)時(shí)候，就是循環(huán)語(yǔ)句的第二個(gè)規(guī)則，判斷循環(huán)變量的值是否超出循環(huán)范圍，我們這里的j=4，顯然是在6 to 2這個(gè)范圍之內(nèi)，所以循環(huán)繼續(xù)，到下一個(gè)j的時(shí)候?yàn)?，依然在循環(huán)范圍內(nèi)；到這里，6,4,2我們的循環(huán)執(zhí)行了3次，準(zhǔn)備第4次循環(huán)的時(shí)候j = 2 -2 = 0超過(guò)了6 to 2這個(gè)范圍，那么循環(huán)終止。
所以i循環(huán)內(nèi)的每一個(gè)j循環(huán)將執(zhí)行3次。
我寫(xiě)了一段代碼，注意你讀取的方法，我改進(jìn)了一下 Imports System.IO ‘代碼窗體的最上端一定要聲明
Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sr As StreamReader Dim TextBox As Control
Dim i As Integer
i = 1
For Each TextBox In Me.Controls
If TypeName(TextBox) = "TextBox" Then sr = New StreamReader("c:\save\" i ".ini", System.Text.Encoding.Default) ’注意選擇編碼方式，按你原來(lái)的方法，未設(shè)置編碼，顯示的是亂碼！路徑請(qǐng)按你的情況改！ TextBox.Text = sr.ReadToEnd()
i += 1 End If
Next
MsgBox("已經(jīng)載入" i - 1 "個(gè)文件") End Sub注意：這樣的代碼是倒序的，第一個(gè)文本框顯示的是最后一個(gè)文件的內(nèi)容！請(qǐng)酌情處理！
'''兩段程序就是利用.net的連接對(duì)象的功能來(lái)完成登錄的實(shí)例
Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click 'start按鈕觸發(fā)的函數(shù)
Dim schclass As String = Trim(txtClass.Text) ‘將txtClass里文本賦值給變量schclass
Dim selestr As String
’提示用戶txtClass文本框不能為空
If schclass "" Then
selestr = "班級(jí)='" schclass "'"
Else
MsgBox("請(qǐng)輸入班級(jí)名稱", 64, "提示") ‘ 顯示保存成功提示信息
End If
‘創(chuàng)建一個(gè)DataView對(duì)象，即將數(shù)據(jù)集DataSet11里的學(xué)生成績(jī)表的DefaultView實(shí)例化
Dim dvresult As DataView = DataSet11.學(xué)生成績(jī).DefaultView
’按學(xué)號(hào)字段排序
dvresult.Sort = "學(xué)號(hào)"
‘按剛才txtClass里輸入的班級(jí)查詢
dvresult.RowFilter = selestr
dvresult.RowStateFilter = DataViewRowState.CurrentRows
’然后將篩選的結(jié)果輸入到datagrid上
DataGrid1.DataSource = dvresult
End Sub
Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click ‘ok按鈕觸發(fā)的函數(shù)
’如果txtUserName或txtPass文本框?yàn)榭眨崾静⒅袛嗪瘮?shù)
If txtUserName.Text = "" Or txtPass.Text = "" Then
Response.Write("script language=vbscriptalert""用戶名或密碼不能為空！""/script")
Exit Sub
End If
‘定義鏈接、執(zhí)行、閱讀 對(duì)象
Dim mycon As New OleDbConnection
Dim mycmd As New OleDbCommand
Dim reader As OleDbDataReader
’給連接對(duì)象賦值連接字符串，access類型的。
mycon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
Server.MapPath("Msg.mdb")
‘打開(kāi)連接對(duì)象
mycon.Open()
’將連接對(duì)象復(fù)制到執(zhí)行對(duì)象上
mycmd.Connection = mycon
‘然后就給執(zhí)行對(duì)象賦值執(zhí)行類型和執(zhí)行語(yǔ)句
mycmd.CommandType = CommandType.Text
mycmd.CommandText = "Select * from myuser Where 用戶名='" txtUserName.Text "'" " and 密碼='" txtPass.Text "'"
’然后將執(zhí)行對(duì)象的監(jiān)聽(tīng)實(shí)例化
reader = mycmd.ExecuteReader()
‘如果執(zhí)行不成功，即沒(méi)有得到結(jié)果集就提示否則將結(jié)果集的用戶名賦值給一個(gè)session以供其他頁(yè)面使用
If reader.Read = False Then
Response.Write("script language=vbscriptalert""用戶名或密碼錯(cuò)，你不能登錄！""/script")
Else
Session("username") = reader("用戶名")
Response.Redirect("lwmsg.aspx")
End If
’關(guān)閉監(jiān)聽(tīng)
reader.Close()
‘關(guān)閉連接
mycon.Close()
End Sub
DT.Rows.ToString未必是指結(jié)果集中的所有數(shù)據(jù)，也許只是一行中所有的，或是一列中所有的
保險(xiǎn)起見(jiàn)，可以一格格枚舉
dim a as boolean=true
Dim row As DataRow
For Each row In DT.Rows
Dim column As DataColumn
For Each column In DT.Columns
if row(column).contains("Agree") then a=false
Next column
Next row
if a then
Me.rblAgReject.Items(0).Enabled = False
else
Me.rblAgReject.Items(0).Enabled = True
end if
