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

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

創(chuàng)新互聯(lián)，為您提供重慶網(wǎng)站建設、成都網(wǎng)站制作、網(wǎng)站營銷推廣、網(wǎng)站開發(fā)設計，對服務成都PE包裝袋等多個行業(yè)擁有豐富的網(wǎng)站建設及推廣經(jīng)驗。創(chuàng)新互聯(lián)網(wǎng)站建設公司成立于2013年,提供專業(yè)網(wǎng)站制作報價服務,我們深知市場的競爭激烈，認真對待每位客戶，為客戶提供賞心悅目的作品。 與客戶共同發(fā)展進步，是我們永遠的責任！

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

VB中的循環(huán)語句有哪些

1、do while...loop：當條件為True時循環(huán),，在進入循環(huán)之前檢查條件。

2、do...loop while:當條件為True循環(huán)，在循環(huán)至少運行一次后檢查條件。

3、do until...loop:當條件為false循環(huán)，在進入循環(huán)之前檢查條件。

4、do.. loop until:當條件為false循環(huán)，在循環(huán)至少運行一次后檢查條件。

5、While...Wend: 當條件為Ture時循環(huán)。

6、for....next:指定循環(huán)次數(shù)，使用計數(shù)器重復運行語句。

7、for Each...next:對于集合中的每項或數(shù)組中的元素，重復執(zhí)行每個語句。

8、for Each...in:從一個集合中取出每一個元素。

9、循環(huán)嵌套：就是在一個大循環(huán)內(nèi)可以包含一個小循環(huán)。

10、強行退出循環(huán)就知道這么多，呵呵11

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

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

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值。結合本題，下一個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 RadioButton 利用For循環(huán)語句查找被選中的RadioButton

將這些RadioButton控件放入一個容器中,,以Panel1為例,代碼如下:

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

For Each R As RadioButton In Panel1.Controls

If R.Checked Then

Debug.WriteLine(R.Name " 被選中.")

End If

Next

End Sub

把那三個GroupBox放在Panel1中就行了.