vb.net中關(guān)于循環(huán)語句 求教大家弱智的問題

要弄清楚這兩個問題，就要明白For循環(huán)語句的語法規(guī)則：

創(chuàng)新互聯(lián)自2013年創(chuàng)立以來，是專業(yè)互聯(lián)網(wǎng)技術(shù)服務(wù)公司，擁有項目網(wǎng)站建設(shè)、成都網(wǎng)站制作網(wǎng)站策劃，項目實施與項目整合能力。我們以讓每一個夢想脫穎而出為使命，1280元康樂做網(wǎng)站,已為上家服務(wù),為康樂各地企業(yè)和個人服務(wù),聯(lián)系電話:18980820575

For循環(huán)語句，首先是判斷循環(huán)條件，如果循環(huán)條件不合理，則循環(huán)不執(zhí)行。

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

如果循環(huán)條件合理，則開始執(zhí)行循環(huán)語句，直到根據(jù)步長變換，下一個值超出循環(huán)范圍則終止。

For j = 6 to 2 Step -2

Next

完整寫法就是：

For j = 6 to 2 Step -2

Next j

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

所以i循環(huán)內(nèi)的每一個j循環(huán)將執(zhí)行3次。

VB.NET語句中continue while的用法

VB.NET

2005,已經(jīng)實現(xiàn)了continue語法，具體是這樣操作：

如果

Continue

語句在

Do...Loop

循環(huán)中，請將該語句更改為

Continue

Do。

如果

Continue

語句在

For...Next

循環(huán)中，請將該語句更改為

Continue

For。

如果

Continue

語句在

While...End

While

循環(huán)中，請將該語句更改為

Continue

While。

否則，請移除

Continue

語句。

用法：

For

i

As

Integer

=

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

VB.NET如何簡寫這種語句“a=a+1”

Public a As Short = 1

按鈕事件：

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

a = a + 1

Label1.Text = a

End Sub

這樣寫出來只能加一次，再單擊就不管用了，Lable1里一直顯示為2.

望采納，謝謝??！

vB.Net if 語句

DT.Rows.ToString未必是指結(jié)果集中的所有數(shù)據(jù)，也許只是一行中所有的，或是一列中所有的

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

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 關(guān)于循環(huán)語句

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

i += 1 End If

Next

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

VB.NET的 把重點的語句注釋下就行了

'''兩段程序就是利用.net的連接對象的功能來完成登錄的實例

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 = "班級='" schclass "'"

Else

MsgBox("請輸入班級名稱", 64, "提示") ‘ 顯示保存成功提示信息

End If

‘創(chuàng)建一個DataView對象，即將數(shù)據(jù)集DataSet11里的學(xué)生成績表的DefaultView實例化

Dim dvresult As DataView = DataSet11.學(xué)生成績.DefaultView

’按學(xué)號字段排序

dvresult.Sort = "學(xué)號"

‘按剛才txtClass里輸入的班級查詢

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文本框為空，提示并中斷函數(shù)

If txtUserName.Text = "" Or txtPass.Text = "" Then

Response.Write("script language=vbscriptalert""用戶名或密碼不能為空！""/script")

Exit Sub

End If

‘定義鏈接、執(zhí)行、閱讀 對象

Dim mycon As New OleDbConnection

Dim mycmd As New OleDbCommand

Dim reader As OleDbDataReader

’給連接對象賦值連接字符串，access類型的。

mycon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _

Server.MapPath("Msg.mdb")

‘打開連接對象

mycon.Open()

’將連接對象復(fù)制到執(zhí)行對象上

mycmd.Connection = mycon

‘然后就給執(zhí)行對象賦值執(zhí)行類型和執(zhí)行語句

mycmd.CommandType = CommandType.Text

mycmd.CommandText = "Select * from myuser Where 用戶名='" txtUserName.Text "'" " and 密碼='" txtPass.Text "'"

’然后將執(zhí)行對象的監(jiān)聽實例化

reader = mycmd.ExecuteReader()

‘如果執(zhí)行不成功，即沒有得到結(jié)果集就提示否則將結(jié)果集的用戶名賦值給一個session以供其他頁面使用

If reader.Read = False Then

Response.Write("script language=vbscriptalert""用戶名或密碼錯，你不能登錄！""/script")

Else

Session("username") = reader("用戶名")

Response.Redirect("lwmsg.aspx")

End If

’關(guān)閉監(jiān)聽

reader.Close()

‘關(guān)閉連接

mycon.Close()

End Sub

網(wǎng)頁標(biāo)題：vb.net語句,vb 語句
標(biāo)題路徑：http://chinadenli.net/article14/heegde.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供ChatGPT、微信小程序、搜索引擎優(yōu)化、網(wǎng)站導(dǎo)航、網(wǎng)站維護、商城網(wǎng)站

廣告

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