vb.net循环语句 vbnet while循环

vb.net 循环语句中循环一次输出一个值

把 TextBox2.Text = Chr(Val("H" B))

改为

TextBox2.Text =TextBox2.Text Chr(Val("H" B)) VbCrlf

试试？而且 TextBox2 的MultyLine属性要事先改为True

或者是：

TextBox2.Text =TextBox2.Text Chr(Val("H" B)) “ ”

相关问答

Q1: Vb.net中有多种do循环语句，貌似都是一样的，为什么弄那么多？

do ... loop

do while ... loop

do until ... loop

do ... loop while

do ... loop until

各有不同作用，有的先处理再判断，有的先判断再处理

Q2: 在VB.NET里怎么用循环语句来赋值

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

Q3: vb.net中关于循环语句 求教大家弱智的问题

要弄清楚这两个问题，就要明白For循环语句的语法规则：

For循环语句，首先是判断循环条件，如果循环条件不合理，则循环不执行。

那么看第一个语句，循环范围是 i = -3.5 to 5.5，显然这个是一个从-3.5到5.5的递增范围，可是后面的Step却是一个负数，表示以0.5的步长递减。取值范围要求从小到大，可是步长改变却是由大变小，显然这个循环条件自相矛盾，所以循环将不会执行，也就是循环执行的次数是0次！

如果循环条件合理，则开始执行循环语句，直到根据步长变换，下一个值超出循环范围则终止。

For j = 6 to 2 Step -2

Next

完整写法就是：

For j = 6 to 2 Step -2

Next j

Next j的意思就是下一个j值。结合本题，下一个j值等于6-2=4，这个时候，就是循环语句的第二个规则，判断循环变量的值是否超出循环范围，我们这里的j=4，显然是在6 to 2这个范围之内，所以循环继续，到下一个j的时候为2，依然在循环范围内；到这里，6,4,2我们的循环执行了3次，准备第4次循环的时候j = 2 -2 = 0超过了6 to 2这个范围，那么循环终止。

所以i循环内的每一个j循环将执行3次。

Q4: vb.net 关于循环语句

我写了一段代码，注意你读取的方法，我改进了一下 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注意：这样的代码是倒序的，第一个文本框显示的是最后一个文件的内容！请酌情处理！

Q5: VB.NET语句中continue while的用法

VB.NET

2005,已经实现了continue语法，具体是这样操作：

如果

Continue

语句在

Do...Loop

循环中，请将该语句更改为

Continue

Do。

如果

Continue

语句在

For...Next

循环中，请将该语句更改为

Continue

For。

如果

Continue

语句在

While...End

While

循环中，请将该语句更改为

Continue

While。

否则，请移除

Continue

语句。

用法：

For

i

As

Integer

=

To

100

'

If

i

=

50

跳过

Console.Writeline

statement

If

i

=

50

Then

Continue

For

Console.WriteLine(i.ToString)

Next

'

Do

While

using

Continue

statement.

Dim

ii

As

Integer

=

1

Do

While

ii

100

ii

+=

1

'

If

ii

=

50

跳过

Console.Writeline

statement

If

ii

=

50

Then

Continue

Do

Console.WriteLine(ii.ToString)

Loop

'

While

using

Continue

statement.

Dim

iii

As

Integer

=

1

While

iii

100

iii

+=

1

'

If

iii

=

50

跳过

Console.Writeline

statement

If

iii

=

50

Then

Continue

While

Console.WriteLine(iii.ToString)

End

While