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

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

創(chuàng)新互聯(lián)公司專業(yè)為企業(yè)提供雙鴨山網站建設、雙鴨山做網站、雙鴨山網站設計、雙鴨山網站制作等企業(yè)網站建設、網頁設計與制作、雙鴨山企業(yè)網站模板建站服務，十年雙鴨山做網站經驗，不只是建網站，更提供有價值的思路和整體網絡服務。

//定義線程

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

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

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

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

While?True

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

Threading.Thread.Sleep(1000)

End?While

End?Sub

Vb.net 怎樣操作有參數的多線程而且還是循環(huán)的。

Sub?Main()

Dim?thr?As?New?Thread(AddressOf?循環(huán))

thr.Start("a")

End?Sub

Sub?循環(huán)(a()?As?String)

'這里隨你干什么循環(huán)也行

For?Each?i?As?String?In?a

MsgBox(i)

Next

End?Sub

看懂了吧 參數只能有一個 也可以不是數組，在a() As String的a后面去掉括號就行

vb.net 循環(huán)寫入數據庫問題

這是你的For語句

For?i?=?0?To?webtable.Rows.Count?-?1

Label2.Text?=?"正在從遠程服務器下載數據?"??i??"/"??webtable.Rows.Count

CMD?=?New?OleDbCommand(Dbcstr,?Dbc)

CMD.ExecuteNonQuery()

webrow?=?webtable.Rows.Item(i)

Next

語句中Dbcstr一直沒有變動過，所以你提交到數據庫中的內容總是第一行。

修改如下，未調試。

Dbc.Open()

For?i?=?0?To?webtable.Rows.Count?-?1

Dim?Dbcstr?As?String?=?"INSERT?INTO?PurchaseOrders?([PurchaseOrderID],……

Dbcstr?=?Dbcstr??"?VALUES('"??webtable.rows(i).Item(0)??"','"?……

'webrow.Item(0)改成webtable.rows(i).Item(0)，其他一樣

CMD?=?New?OleDbCommand(Dbcstr,?Dbc)

CMD.ExecuteNonQuery()

Next

conn.Close()

Dbc.Close()

在VB.net 中，如何用循環(huán)計算數組中各元素之和

'假設數組如下

dim d(10) as integer

dim i as integer

for i=lbound(d) to ubound(d)

d(i) = i

next i

'數組各元素之和

dim S as integer = 0

for i=lbound(d) to ubound(d)

s = s + d(i)

next i

msgbox(s)

vb.net 關于循環(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) ’注意選擇編碼方式，按你原來的方法，未設置編碼，顯示的是亂碼！路徑請按你的情況改！ TextBox.Text = sr.ReadToEnd()

i += 1 End If

Next

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