真正同时运行两个Do Loop循环,只能靠多线程或者多进程来实现。若你正在用VB.Net里的Do Loop,那么可以很简单就能实现多线程了。 但如果你是在VB6里,只能用ActiveX.exe方式通过多个进程来实现这个同时Do Loop循环。
为拉萨等地区用户提供了全套网页设计制作服务,及拉萨网站建设行业解决方案。主营业务为成都做网站、网站设计、外贸营销网站建设、拉萨网站设计,以传统方式定制建设网站,并提供域名空间备案等一条龙服务,秉承以专业、用心的态度为用户提供真诚的服务。我们深信只要达到每一位用户的要求,就会得到认可,从而选择与我们长期合作。这样,我们也可以走得更远!
说起来其实并不复杂,但需要你会写VB6的Class类里的那点知识即可。
Module Module1
Sub Main()
Dim sum As Integer = 0
Dim Bound As Integer = 989
Dim num As Integer = 0
Dim cprime As Integer = 0
Do
num += 1
If IsPrame(num) Then
sum += num
cprime = num
End If
Loop Until sum Bound
Console.WriteLine(sum - cprime)
Console.ReadKey()
End Sub
'判断一个数是不是素数
Public Function IsPrame(ByVal num As Integer) As Boolean
If num = 1 Then Return False '素数的定义是大于1
For i = 2 To CType(Int(Math.Sqrt(num)), Integer)
If num Mod i = 0 Then Return False
Next
Return True
End Function
End Module
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim sum As Integer = 0
Dim i As Integer = 0
Do
i = i + 1
sum = sum + i
Loop Until sum 6000
MsgBox(i)
Debug.Print(sum)
End Sub
网站栏目:vb.net里loop的简单介绍
文章网址:https://www.cdcxhl.com/article10/ddochdo.html
成都网站建设公司_创新互联,为您提供企业网站制作、面包屑导航、网站维护、小程序开发、网站设计、网页设计公司
声明:本网站发布的内容(图片、视频和文字)以用户投稿、用户转载内容为主,如果涉及侵权请尽快告知,我们将会在第一时间删除。文章观点不代表本网站立场,如需处理请联系客服。电话:028-86922220;邮箱:631063699@qq.com。内容未经允许不得转载,或转载时需注明来源: 创新互联