vb.net套循环 vb脚本循环

vb.net 循环结构嵌套

Public Class Form1

10多年的尼河口网站建设经验，针对设计、前端、开发、售后、文案、推广等六对一服务，响应快，48小时及时工作处理。全网营销推广的优势是能够根据用户设备显示端的尺寸不同，自动调整尼河口建站的显示方式，使网站能够适用不同显示终端，在浏览器中调整网站的宽度，无论在任何一种浏览器上浏览网站，都能展现优雅布局与设计，从而大程度地提升浏览体验。成都创新互联公司从事“尼河口网站设计”,“尼河口网站推广”以来，每个客户项目都认真落实执行。

For i = 1 To 9

For j = 1 To 9

If j = i Then

Label1.Text = Label1.Text  " "  i  "*"  j  "="  IIf(i * j  9, i * j, i * j  " ")

End If

Next

Label1.Text = Label1.Text  vbCrLf

Next

End Sub

End Class

label属性设置：AutoSize设置为F，Size设置为440，190，BACKCOLOR设置为WHITE

VB.net 运行多个循环

用 timer 控件，按钮被按下的时候把 timer 的 .enabled 改为 true

timer 控件会发生 tick 事件，你可以让第一次 tick 执行 A，第二次 tick 执行 B,等等...

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

vb.net怎么无线循环编

一般多开线程写无限循环行为。

//定义线程

Dim th As New Threading.Thread(New Threading.ParameterizedThreadStart(AddressOf test))

th.Start("aaa")//开始线程，可以传参

//线程执行函数

Public Sub test(ob As Object)

While True

Console.WriteLine("线程正在运行中"  ob)

Threading.Thread.Sleep(1000)

End While

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执行循环时执行其他东西呢？

给你个多线程执行任务的例子

先添加BackgroundWorker1、TextBox1、Button1，都是标准控件（窗体）在工具箱中找

vb.net2008

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

BackgroundWorker1.WorkerReportsProgress = True '可以传值

BackgroundWorker1.WorkerSupportsCancellation = True '可以暂停

TextBox1.Text = "开始多任务"

Button1.Text = "0"

BackgroundWorker1.RunWorkerAsync() '调用多任务程序

End Sub

'多任务程序

Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork

System.Threading.Thread.Sleep(20000) '暂停时间，可以是你的非常耗时程序任务

BackgroundWorker1.ReportProgress(100) '传出0-100数值

End Sub

'接收传出数值

Private Sub BackgroundWorker1_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged

'TextBox1.Text = e.ProgressPercentage

TextBox1.Text = "结束多任务"

End Sub

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

Button1.Text += 1

End Sub

End Class

在启动程序后可以不停点击Button1看到数值的增加而不会卡死，20秒后TextBox1就会改成"结束多任务"，实际上看你的程序是什么了，传值和接收传出数值的部分可取消