vb.net中關于循環語句 求教大家弱智的問題

要弄清楚這兩個問題，就要明白For循環語句的語法規則：

創新互聯公司堅持“要么做到，要么別承諾”的工作理念，服務領域包括：成都網站制作、成都做網站、企業官網、英文網站、手機端網站、網站推廣等服務，滿足客戶于互聯網時代的達拉特網站設計、移動媒體設計的需求，幫助企業找到有效的互聯網解決方案。努力成為您成熟可靠的網絡建設合作伙伴！

For循環語句，首先是判斷循環條件，如果循環條件不合理，則循環不執行。

那么看第一個語句，循環范圍是 i = -3.5 to 5.5，顯然這個是一個從-3.5到5.5的遞增范圍，可是后面的Step卻是一個負數，表示以0.5的步長遞減。取值范圍要求從小到大，可是步長改變卻是由大變小，顯然這個循環條件自相矛盾，所以循環將不會執行，也就是循環執行的次數是0次！

如果循環條件合理，則開始執行循環語句，直到根據步長變換，下一個值超出循環范圍則終止。

For j = 6 to 2 Step -2

Next

完整寫法就是：

For j = 6 to 2 Step -2

Next j

Next j的意思就是下一個j值。結合本題，下一個j值等于6-2=4，這個時候，就是循環語句的第二個規則，判斷循環變量的值是否超出循環范圍，我們這里的j=4，顯然是在6 to 2這個范圍之內，所以循環繼續，到下一個j的時候為2，依然在循環范圍內；到這里，6,4,2我們的循環執行了3次，準備第4次循環的時候j = 2 -2 = 0超過了6 to 2這個范圍，那么循環終止。

所以i循環內的每一個j循環將執行3次。

vB.Net if 語句

DT.Rows.ToString未必是指結果集中的所有數據，也許只是一行中所有的，或是一列中所有的

保險起見，可以一格格枚舉

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

VB.NET語句中continue while的用法

VB.NET 2005,已經實現了continue語法，具體是這樣操作：

如果 Continue 語句在 Do...Loop 循環中，請將該語句更改為 Continue Do。

如果 Continue 語句在 For...Next 循環中，請將該語句更改為 Continue For。

如果 Continue 語句在 While...End While 循環中，請將該語句更改為 Continue While。

否則，請移除 Continue 語句。

用法：

For i As Integer = 0 To 100

' If i = 50 跳過 Console.Writeline statement

If i = 50 Then Continue For

Console.WriteLine(i.ToString)

Next

' Do While using Continue statement.

Dim ii As Integer = 1

Do While ii 100

ii += 1

' If ii = 50 跳過 Console.Writeline statement

If ii = 50 Then Continue Do

Console.WriteLine(ii.ToString)

Loop

' While using Continue statement.

Dim iii As Integer = 1

While iii 100

iii += 1

' If iii = 50 跳過 Console.Writeline statement

If iii = 50 Then Continue While

Console.WriteLine(iii.ToString)

End While

高分求.net里vb語法操作數據庫基本語句

Dim Cnn As New Data.OleDb.OleDbConnection

Dim DbAdapter As New Data.OleDb.OleDbDataAdapter

Dim Cmd As New Data.OleDb.OleDbCommand

Dim dsAll As New Data.DataSet

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\webapp\test\web.mdb"

Cmd.Connection = Cnn

End Sub

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

'插入

Cmd.CommandText = "insert into main (about) values ('" + TextBox1.Text + "')"

UpdateTable()

End Sub

Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click

'修改

Dim ids As Integer

ids = 1

Cmd.CommandText = "update main set about='" + TextBox1.Text + "' where id=" + ids.ToString()

UpdateTable()

End Sub

Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click

'刪除

Dim ids As Integer

ids = 1

Cmd.CommandText = "delete from main where id=" + ids.ToString()

UpdateTable()

End Sub

Public Sub UpdateTable()

Dim Trans As Data.OleDb.OleDbTransaction

Try

Cnn.Open()

Trans = Cnn.BeginTransaction()

Try

Cmd.Transaction = Trans

Cmd.ExecuteNonQuery()

Trans.Commit()

Catch

Trans.Rollback()

Finally

If (Cnn.State = System.Data.ConnectionState.Open) Then

Cnn.Close()

End If

End Try

Catch

'error message

End Try

End Sub

Protected Sub Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.Click

'顯示

Cmd.CommandText = "select id, about from main"

DbAdapter.SelectCommand = Cmd

DbAdapter.Fill(dsAll, "table1")

If (dsAll.Tables("table1").Rows.Count 0) Then

TextBox1.Text = dsAll.Tables("table1").Rows(0)("about")

Else

TextBox1.Text = ""

End If

End Sub

VB語句函數大全

(一)類型轉換類函數

1. CType(X)

[格式]：

P=CBool(X)

' 將X轉換為"布爾"(Boolean)類型

P=CByte(X)

' 將X轉換為"字節"(Byte)類型

P=CCur(X)

' 將X轉換為"金額"(Currency)類型

P=CDate(X)

' 將X轉換為"日期"(Date)類型

P=CDbl(X)

' 將X轉換為"雙精度"(Double)類型

P=CInt(X)

' 將X轉換為"整型"(Integer)類型

P=CLng(X)

' 將X轉換為"長整型"(Long)類型

P=CSng(X)

' 將X轉換為"單精度"(Single)類型

P=CStr(X)

' 將X轉換為"字符串"(String)類型

P=Cvar(X)

' 將X轉換為"變體型"(Variant)類型

P=CVErr(X)

' 將X轉換為Error值

[ 范例 ]：

(1). CStr(13)+CStr(23)

' 數值轉換成字符串后，用"+"號連接， 結果：1323

(2). CInt("12")+12

' 字符串轉換成整型后與12相加， 結果：24

(3). P=CInt(True)

' 輸出結果為-1

' 布爾值與數值的轉換時要注意，布爾值只有True和False，其中True在內存中為-1,False存為0

(4). CBool(-0.001)

' 輸出結果為True

' 將數值轉換為布爾型時，等于0的數值將得到False，不等于0的數值得到True.

2. Int(X),Fix(X)：取X的整數值

[格式]：

P=Int(X) ' 取=X的最大整數值

P=Fix(X) ' 取X的整數部分，直接去掉小數

[范例]：

(1) Int(-54.6)

' 結果為-55，取=-54.6的最大整數

(2) Fix(54.6)

' 結果為54，取整數并直接去掉小數

(二)常用數學函數

[格式]：

1. Abs(N) 取絕對值

例：Abs(-3.5) 結果：3.5

2. Cos(N) 余弦函數

例：Cos(0) 結果：1

3. Exp(N) e為底的指數函數

例：Exp(3) 結果：20.068

4. Log(N) 以e為底的自然對數

例：Log(10) 結果：2.3

5. Rnd[(N) 產生隨機數

例：Rnd 結果：0--1之間的數

6. Sin(N) 正弦函數

例：Sin(0) 結果：0

7. Sgn(N) 符號函數

' 說明：取正負號。Y=Sgn(X) 既 X0 則Y=1；X=0 則Y=0；X0 則Y= -1

8. Sqr(N) 平方根

例：Sqr(9) 結果：3

9. Tan(N) 正切函數

例：Tan(0) 結果：0

10.Atn(N) 反切函數

例：Atn(0) 結果：0

[注意]：在三角函數中，以弧度表示。

(一)字符串類函數：

1. ASC(X)，Chr(X)：轉換字符字符碼

[格式]：

P=Asc(X) 返回字符串X的第一個字符的字符碼

P=Chr(X) 返回字符碼等于X的字符

[范例]：

(1)P=Chr(65)

'輸出字符A,因為A的ASCII碼等于65

(2)P=Asc("A")

'輸出65

2. Len(X)：計算字符串X的長度

[格式]：

P=Len(X)

[說明]：

空字符串長度為0，空格符也算一個字符，一個中文字雖然占用2 Bytes，但也算一個字符。

[范例]：

(1) 令X="" (空字符串)

Len(X) 輸出結果為0

(2) 令X="abcd"

Len(X) 輸出結果為4

(3) 令X="VB教程"

Len(X) 輸出結果為4

3. Mid(X)函數：讀取字符串X中間的字符

[格式]：

P=Mid(X,n)

由X的第n個字符讀起，讀取后面的所有字符。

P=Mid(X,n,m)

由X的第n個字符讀起，讀取后面的m個字符。

[范例]：

(1) X="abcdefg"

P=Mid(X,5)

結果為：P="efg"

(2) X="abcdefg"

P=Mid(X,2,4)

結果為P="bcde"

4. Replace： 將字符串中的某些特定字符串替換為其他字符串

[格式]：

P=Replace(X,S,R)

[說明]：將字符串X中的字符串S替換為字符串R，然后返回。

[范例]：

X="VB is very good"

P=Replace(X,good,nice)

輸出結果為：P="VB is very nice"

5. StrReverse：反轉字符串

[格式]：

P=StrReverse(X)

[說明]：

返回X參數反轉后的字符串

[范例]：

(1)X="abc"

P=StrReverse(X)

輸出結果：P="cba"

6. Ucase(X)，Lcase(X)：轉換英文字母的大小寫

[格式]：

P=Lcase(X)

'將X字符串中的大寫字母轉換成小寫

P=Ucase(X)

'將X字符串中的小寫字母轉換成大寫

[說明]：除了英文字母外，其他字符或中文字都不會受到影響。

[范例]：

(1) 令 X="VB and VC"

則Lcase(X)的結果為"vb and vc"，Ucase(X)的結果為"VB AND VC"

7. InStr函數：尋找字符串

[格式]：

P=InStr(X,Y)

從X第一個字符起找出Y出現的位置

P=InStr(n,X,Y)

從X第n個字符起找出Y出現的位置

[說明]：

(1) 若在X中找到Y，則返回值是Y第一個字符出現在X中的位置。

(2) InStr(X,Y)相當于InStr(1,X,Y)。

(3) 若字符串長度，或X為空字符串，或在X中找不到Y，則都返回0。

(4) 若Y為空字符串，則返回0。

(二)日期時間類函數：

1. Year(X)，Month(X)，Day(X)：取出年，月，日

[格式]：

P=Year(X)

取出X"年"部分的數值

P=Month(X)

取出X"月"部分的數值

P=Day(X)

取出X"日"部分的數值

[說明]：Year返回的是公元年，若X里只有時間，沒有日期，則日期視為#1899/12/30#

2. Hour，Minute，Second函數：取出時，分，或秒

[格式]：

P=Hour(X)

取出X"時"部分的數值

P=Minute(X)

取出X"分"部分的數值

P=Second(X)

取出X"秒"部分的數值

[說明]：Hour的返回值是0---23之間

[范例]：

X=10:34:23

P=Hour(X)

Q=Minute(X)

R=Second(X)

則輸出結果：P=10，Q=34，R=23

3. DateSerial函數：合并年，月，日成為日期

[格式]：DateSerial(Y,M,D)

其中Y是年份，M為月份，D為日期

[說明]：

(1) M值若大于12，則月份從12月起向后推算M-12個月；若小于1，則月份從1月起向后推算1-M個月。

(2) 若日期D大于當月的日數，則日期從當月的日數起，向后推算D-當月日數；若小于1，則日期從1日起向前推算1-D日。

[范例]：

P=DateSerial(2000,02,02)

則結果為P=2000/02/02

4．TimeSerial函數：合并時，分，秒成為時間

[格式]：P=TimeSerial(H,M,S)

其中H為小時數，M為分鐘數，S為秒數

[說明]：推算原理同上面的DateSerial

[范例]：

P=TimeSerial(6,32,45)

結果為：P=6:32:45

5．Date,Time,Now函數：讀取系統的日期時間

[格式]：

P=Date()

P=Time()

P=Now()

[說明]：這三個函數都無參數

[范例]：

若當前時間為2003年8月29日晚上19點26分45秒，則

P=Now()

結果為：P=2003-08-29 19:26:45

6．MonthName：返回月份名稱

[格式]：P=MonthName(X)

[說明]：X參數可傳入1---12，則返回值為"一月"、"二月"……，但是在英文Windows環境下，返回的是"January","February"……

[范例]：

P=MonthName(1)

則P="一月"

7．WeekdayName：返回星期名稱

[格式]：P=WeekdayName(X)

[說明]：X參數可傳入1—7，則返回值為"星期日"，"星期一"……，但是在英文windows環境下，返回的是"Sunday","Monday"……

[范例]：

P=WeekdayName(1)

結果為：P="星期日"

函數名稱 函數功能

Cbool(string) 轉換為布爾值

Cbyte(string) 轉換為字節類型的值

Ccur(string) 轉換為貨幣類值

Cdate(string) 轉換為日前類型的值

Cdbl(string) 轉換為雙精度值

Cint(string) 轉換為整數值

Clng(string) 轉換為長整型的值

Csng(string) 轉換為單精度的值

Cstr(var) 轉換為字符串值

Str(var) 數值轉換為字符串

Val(string) 字符串轉換為數值

***************************************

Abs(nmb) 返回數子的絕對值

Atn(nmb) 返回一個數的反正切

Cos(nmb) 返回一個角度的余炫值

Exp(nmb) 返回自然指數的次方值

Int(nmb) 返回數字的整形（進位）部份 8.4--9

Fix(nmb) 返回數字的整形（舍去）部份 8.4--8

Formatpercent(表達式) 返回百分比

Hex(nmb) 返回數據的16進制數

Log(nmb) 返回自然對數

Oct(nmb) 返回數字的8進制數

Rnd 返回大于“0”而小于“1”的隨機數

Sgn(nmb) 判斷一個數字的正負號

Sin(nmb) 返回角度的正鉉值

Sqr(nmb) 返回數字的二次方根

Tan(nmb) 返回一個數的正切值

Asc(string) 返回ASCII字符串

Chr(charcode) 根據字符代碼返回字符

Instr(string,searchstr) 返回被搜索字符串的第一個字符位置，string是字符串，searchstr是被搜索的字符串

InstrRev(string,searchstr) 同上，只是從右面開始搜索

Lcase(var) 把字符串變為小寫

Left(string,nmb) 從string中返回從左面開始的nmb個字符串

Len(string) 返回字符串的長度

Ltrim(string) 截去字符串左邊的空格

Filter(inputstrings,value) 返回字符串數組的字集，Inputstrings是字符串組，value是在數組中尋找的字符

Rtrim(string) 截去字符串右邊的空格

Trim(string) 截去字符串前后空格

Mid(string,start,len) 在string中返回從start位置開始的len個字符

Replace(string,find,withstr) 在字符串string中，用withstr來替換find字符串

Right(string,nmb) 從string中返回從右面開始的nmb個字符串

Space(nmb) 返回指定空格的字符串

StrComp(string1,string2) 比較兩個字符串

Ucase(string) 把字符串變為大寫

****************************************

Date() 返回當前系統日期

DateAdd(interval,nmb,date) 用一個基礎時間返回指定增加了時間間隔的日期，interval是間隔類型，yyyy－年，m－月，d－日，h－小時，n－分。

DateDiff(interval,nmb1,nmb2) 返回兩個時間間隔，interval的意思同上

Datevalue(date) 發揮Date中的日期部份

Day(date) 返回天數

FormatDatetime(date) 返回格式化為日期的表達式

Hour(time) 返回時間的小時數

Minute(time) 返回時間的分鐘數

Month(date) 返回日期中的月份

Now() 返回系統的日期和時間

Second(time) 返回時間中的秒數

Time() 返回系統的當前時間

Weekday(date) 返回星期幾

WeekdayName(date) 返回星期幾的中文名

Year(date) 返回年份

IsArray(var) 判斷一個變量是否是數組

IsDate(var) 判斷一個變量是否是日期

IsNull(var) 判斷一個變量是否為空

IsNumeric 判斷表達式是否包含數值

IsObject(var) 判斷一個變量是否是對象

TypeName(var) 返回變量的數據類型

************************************

Array(list) 返回數組

CreateObject(class) 創建一個對象

GetObject(pathfilename) 得到文件對象

Inputbox(prompt) 提供一個可供輸入數據的對話框

LBound(arrayP) 返回數組的最小索引

Msgbox(string) 輸出一個消息框

Split(liststr) 從一個列表字符串中返回一個一維數組

Ubound(array) 返回數組的最大索引

vb.net 關于循環語句

我寫了一段代碼，注意你讀取的方法，我改進了一下 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) ’注意選擇編碼方式，按你原來的方法，未設置編碼，顯示的是亂碼！路徑請按你的情況改！ TextBox.Text = sr.ReadToEnd()

i += 1 End If

Next

MsgBox("已經載入" i - 1 "個文件") End Sub注意：這樣的代碼是倒序的，第一個文本框顯示的是最后一個文件的內容！請酌情處理！

當前題目：vb.net語句大全,VBNet
文章出自：http://vcdvsql.cn/article38/heospp.html

成都網站建設公司_創新互聯，為您提供網站營銷、網站排名、標簽優化、外貿網站建設、商城網站、搜索引擎優化

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯