vb.net 循環(huán)結(jié)構(gòu)嵌套

Public?Class?Form1

10多年的尼河口網(wǎng)站建設(shè)經(jīng)驗(yàn)，針對設(shè)計(jì)、前端、開發(fā)、售后、文案、推廣等六對一服務(wù)，響應(yīng)快，48小時(shí)及時(shí)工作處理。全網(wǎng)營銷推廣的優(yōu)勢是能夠根據(jù)用戶設(shè)備顯示端的尺寸不同，自動調(diào)整尼河口建站的顯示方式，使網(wǎng)站能夠適用不同顯示終端，在瀏覽器中調(diào)整網(wǎng)站的寬度，無論在任何一種瀏覽器上瀏覽網(wǎng)站，都能展現(xiàn)優(yōu)雅布局與設(shè)計(jì)，從而大程度地提升瀏覽體驗(yàn)。成都創(chuàng)新互聯(lián)公司從事“尼河口網(wǎng)站設(shè)計(jì)”,“尼河口網(wǎng)站推廣”以來，每個(gè)客戶項(xiàng)目都認(rèn)真落實(shí)執(zhí)行。

For?i?=?1?To?9

For?j?=?1?To?9

If?j?=?i?Then

Label1.Text?=?Label1.Text??"?"??i??"*"??j??"="??IIf(i?*?j??9,?i?*?j,?i?*?j??"?")

End?If

Next

Label1.Text?=?Label1.Text??vbCrLf

Next

End?Sub

End?Class

label屬性設(shè)置：AutoSize設(shè)置為F，Size設(shè)置為440，190，BACKCOLOR設(shè)置為WHITE

VB.net 運(yùn)行多個(gè)循環(huán)

用 timer 控件，按鈕被按下的時(shí)候把 timer 的 .enabled 改為 true

timer 控件會發(fā)生 tick 事件，你可以讓第一次 tick 執(zhí)行 A，第二次 tick 執(zhí)行 B,等等...

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 "個(gè)文件") End Sub注意：這樣的代碼是倒序的，第一個(gè)文本框顯示的是最后一個(gè)文件的內(nèi)容！請酌情處理！

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("線程正在運(yùn)行中"??ob)

Threading.Thread.Sleep(1000)

End?While

End?Sub

vb.net do循環(huán)

你確信只循環(huán)一次嗎？我看不像，在最后添加上一句msgbox jishu1，多半顯示3。

是在第二塊代碼中有問題，你應(yīng)該把chaxun4 = xlsheet.Range("l1").Value + 2分別放到兩個(gè)條件句中初始chaxun4變量。

因?yàn)樯弦粋€(gè)Do Until atmbianhaop = xlsheet.Range("B" chaxun4).Value 循環(huán)退出后，下一個(gè)循環(huán)一開始就符合退出條件了，所以循環(huán)沒有進(jìn)行了。

如何讓VB.NET執(zhí)行循環(huán)時(shí)執(zhí)行其他東西呢？

給你個(gè)多線程執(zhí)行任務(wù)的例子

先添加BackgroundWorker1、TextBox1、Button1，都是標(biāo)準(zhǔn)控件（窗體）在工具箱中找

vb.net2008

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

BackgroundWorker1.WorkerReportsProgress = True '可以傳值

BackgroundWorker1.WorkerSupportsCancellation = True '可以暫停

TextBox1.Text = "開始多任務(wù)"

Button1.Text = "0"

BackgroundWorker1.RunWorkerAsync() '調(diào)用多任務(wù)程序

End Sub

'多任務(wù)程序

Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork

System.Threading.Thread.Sleep(20000) '暫停時(shí)間，可以是你的非常耗時(shí)程序任務(wù)

BackgroundWorker1.ReportProgress(100) '傳出0-100數(shù)值

End Sub

'接收傳出數(shù)值

Private Sub BackgroundWorker1_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged

'TextBox1.Text = e.ProgressPercentage

TextBox1.Text = "結(jié)束多任務(wù)"

End Sub

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

Button1.Text += 1

End Sub

End Class

在啟動程序后可以不停點(diǎn)擊Button1看到數(shù)值的增加而不會卡死，20秒后TextBox1就會改成"結(jié)束多任務(wù)"，實(shí)際上看你的程序是什么了，傳值和接收傳出數(shù)值的部分可取消