vb.net 關(guān)于循環(huán)語句

我寫了一段代碼，注意你讀取的方法，我改進(jìn)了一下 Imports System.IO ‘代碼窗體的最上端一定要聲明

創(chuàng)新互聯(lián)服務(wù)緊隨時(shí)代發(fā)展步伐，進(jìn)行技術(shù)革新和技術(shù)進(jìn)步，經(jīng)過十年的發(fā)展和積累，已經(jīng)匯集了一批資深網(wǎng)站策劃師、設(shè)計(jì)師、專業(yè)的網(wǎng)站實(shí)施團(tuán)隊(duì)以及高素質(zhì)售后服務(wù)人員，并且完全形成了一套成熟的業(yè)務(wù)流程，能夠完全依照客戶要求對(duì)網(wǎng)站進(jìn)行網(wǎng)站建設(shè)、成都網(wǎng)站設(shè)計(jì)、建設(shè)、維護(hù)、更新和改版，實(shí)現(xiàn)客戶網(wǎng)站對(duì)外宣傳展示的首要目的，并為客戶企業(yè)品牌互聯(lián)網(wǎng)化提供全面的解決方案。

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è)置編碼，顯示的是亂碼！路徑請(qǐng)按你的情況改！ TextBox.Text = sr.ReadToEnd()

i += 1 End If

Next

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

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

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

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

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

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

For j = 6 to 2 Step -2

Next

完整寫法就是：

For j = 6 to 2 Step -2

Next j

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

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

vb.net 循環(huán)使用多線程

ListBox操作需要用Invoke。另外多線程方式并不是并行處理。

建議采用.net framework 4 帶的并行處理循環(huán)操作，若不是4.0版本的framework，可以使用Aforge的并行庫比較方便。

在VB.NET里怎么用循環(huán)語句來賦值

dim s() as string

For Each fm1 In Panel1.Controls

dim i=0

if fm1.GetType.ToString = "System.Windows.Forms.TextBox" Then

s(i)=fm1.text

i+=1

End If

Next

vb.net 用循環(huán)計(jì)算數(shù)組中各元素之和

軟糖來回答吧，VB.net用循環(huán)是這樣的

Dim?k?=?New?Integer(9)?{1,?2,?3,?4,?5,?6,?7,?8,?9,?10}

Dim?和?As?Integer

For?i?=?0?To?k.Count?-?1

和?+=?k(i)

Next

計(jì)算數(shù)組中各元素之和更簡單的方法是

使用擴(kuò)展方法Sum或者Lambda表達(dá)式，以下兩種均可

Dim?和1?=?k.Sum()

Dim?和2?=?k.Aggregate(Function(m,?n)?m?+?n)