vb点虐 一秒循环一次 vbs设置循环次数

vb点虐 编写一个函数，此函数每秒运行一次，每次随机生成的数值都100%不会相同，可以考虑借用时间对象

其实用Environment.TickCount就可以了，函数获取系统启动后经过的毫秒数

创新互联是一家集网站建设,阿图什企业网站建设,阿图什品牌网站建设,网站定制,阿图什网站建设报价,网络营销,网络优化,阿图什网站推广为一体的创新建站企业，帮助传统企业提升企业形象加强企业竞争力。可充分满足这一群体相比中小企业更为丰富、高端、多元的互联网需求。同时我们时刻保持专业、时尚、前沿，时刻以成就客户成长自我，坚持不断学习、思考、沉淀、净化自己，让我们为更多的企业打造出实用型网站。

因为时间不重复，所以如果间隔1秒永不重复且随机

VB点虐 2013中如何让for....next循环一次等待1秒(或多秒）再循环一次等1秒，直到循环结束。

Dim s As String = "123456789"

For i = 1 To Len(s)

TextBox1.Text = TextBox1.Text  Mid(s, i, 1)

System.Threading.Thread.Sleep(1000)

Application.DoEvents()

Next

vb中用timer控件控制for循环，让其一秒执行一次，求大神指教！！！

可以使用change，不需要使用for(其实是我不会用for哈哈）

例如：在vb窗体加入1个timer ,2个label，然后代码如下：

Private Sub Form_Load()

Timer1.Interval = 1000

Label2.Caption = 1

End Sub

Private Sub Label1_Change()

Label2.Caption = Label2.Caption + 1

End Sub

Private Sub Timer1_Timer()

If Label1.Caption Str(Timer) Then

Label1.Caption = Time

End If

End Sub

当label1.caption发生变化时，label2.caption+1，

vb点虐 怎样才能在程序运行时一直重复执行一个子函数而不影响程序运行

首先这个要看的子函数执行的情况了，比如你子函数要8秒才能执行完成，你1秒钟执行一次，到时会有好几个子函数在运行，肯定会影响程序运行的。你要调整时间才能让子函数不影响主程序；

再一个，如果不想影响主程序，你可以再建一个程序，专门用来执行子函数，然后让那个程序用定时器每秒执行一次子函数，这样就不会影响主程序；