vb.net跳循环 vbnet循环语句

VB如何跳过单步循环？？

假设字符串变量是Mystring

下面是代码

Dim MyKeyWord as string

Dim iCount as long

Dim SSFind as long

iCount = 1

Do

SSFind = Instr(iCount , MyKeyWord,Mystring )

Doevents

loop while SSFind 0

不想用单步循环可以用别的比如for ...next代替，或在loop里面加goto语句，不过goto容易使代码混乱。编程求代码简单高效，不用纠缠在某个语句上面。

相关问答

Q1: vb.net do循环

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

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

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

Q2: vb中途跳出For循环，如何设置

1、首先打开编辑器，这个时候可以先写上循环关键字。

2、在界面上可以看到C语言的语句，然后需要使用协商For循环的循环变量。

3、接下来是需要写上初值和终值。

4、此时还可以进行嵌套使用。

5、这个时候就可以写入循环时的操作。

6、记得要有Next结尾完成。

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

Q4: vb.net 里面怎么跳出for

1、语言之间具有互通性（这是一个前提基调）；

2、比如在java或者c/c++中，在循环中进行一个判断，如果判断成功或者不成功，那么就可以设置一个关键字break来跳出这个循环哦；

3、这个break的作用的就是当你判断实现或者未实现这个判断语句时，你像不需要再进行循环或者判断，那么可以用这个break关键字来发挥作用哦。

关于vb.net跳循环和vbnet循环语句的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。