vb.net下一循环 vb循环语句

vb.net 关于循环语句

我写了一段代码,注意你读取的方法,我改进了一下 Imports System.IO ‘代码窗体的最上端一定要声明

专注于为中小企业提供成都网站制作、网站设计服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业黄石免费做网站提供优质的服务。我们立足成都,凝聚了一批互联网行业人才,有力地推动了上1000+企业的稳健成长,帮助中小企业通过网站建设实现规模扩充和转变。

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注意:这样的代码是倒序的,第一个文本框显示的是最后一个文件的内容!请酌情处理!

vb.net do循环

你确信只循环一次吗?我看不像,在最后添加上一句msgbox jishu1,多半显示3。

是在第二块代码中有问题,你应该把chaxun4 = xlsheet.Range("l1").Value + 2分别放到两个条件句中初始chaxun4变量。

因为上一个Do Until atmbianhaop = xlsheet.Range("B" chaxun4).Value 循环退出后,下一个循环一开始就符合退出条件了,所以循环没有进行了。

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次。

VB.NET中,如何编写代码使文字在窗口中上下循环滚动?

文字写在label的caption属性中,调用timer()函数

附上我写的左右往复运动代码,实现image1在picture1中左右往复运动

Private

Sub

Timer1_Timer()

If

Image1.Left

=

Picture1.ScaleWidth

-

Image1.Width

Then

k

=

1

If

k

=

1

Then

Image1.Left

=

Image1.Left

-

50

Else

Image1.Left

=

Image1.Left

+

50

End

If

If

Image1.Left

=

Then

k

=

End

Sub


本文名称:vb.net下一循环 vb循环语句
转载注明:http://pwwzsj.com/article/dogdpss.html