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

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

創(chuàng)新互聯(lián)基于分布式IDC數(shù)據(jù)中心構(gòu)建的平臺為眾多戶提供四川雅安電信機房 四川大帶寬租用 成都機柜租用 成都服務器租用。

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

那么看第一個語句，循環(huán)范圍是 i = -3.5 to 5.5，顯然這個是一個從-3.5到5.5的遞增范圍，可是后面的Step卻是一個負數(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次，準備第4次循環(huán)的時候j = 2 -2 = 0超過了6 to 2這個范圍，那么循環(huán)終止。

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

vb.net怎么無線循環(huán)編

一般多開線程寫無限循環(huán)行為。

//定義線程

Dim?th?As?New?Threading.Thread(New?Threading.ParameterizedThreadStart(AddressOf?test))

th.Start("aaa")//開始線程，可以傳參

//線程執(zhí)行函數(shù)

Public?Sub?test(ob?As?Object)

While?True

Console.WriteLine("線程正在運行中"??ob)

Threading.Thread.Sleep(1000)

End?While

End?Sub

vb.net 關(guān)于循環(huá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 求個for循環(huán)的寫法

你先新建一個控制臺應用程序，然后全部復制就行了，用 Ctrl + F5 調(diào)試

Module Module1

Sub Main()

Dim temp As String = "*"

Dim i, j As Short

For i = 1 To 5 Step +2

For j = 1 To i

Console.Write("{0} ", temp)

Next j

Console.WriteLine("")

Next i

Console.ReadLine()

End Sub

End Module

其實你這樣不就好了

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

Dim a As String = "*" vbCrLf "* * *" vbCrLf "* * * * *"

MessageBox.Show(a)

End Sub

多方便