锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net双重循环 vb中双重循环

IT技术双重

VB.NET 动态二维数组如何循环赋值和取值for i =0 to ...
for j =0 to ...
keyarray(i,j)=
next
next
双重循环，赋值和读取一样
VB怎样在数组之间匹配数据？要解决这个问题办法很多，如何选择取决于应用环境和具体需求 。
使用双重循环是最简单的办法 。这个方案虽然计算成本较高 ， 但适应性强，最容易实现 。如果是有序数组 ， 可以通过二分法迅速定位目标位置；你也可以构造一个临时数组，通过“摘除法”减少比较次数 。
除此之外，预先构造一个对应表也是很有效率的方法 。磨刀不误砍柴工 。
如果有环境的支持，那效率和代码都要省很多 。最典型的就是LinQ 。如果你使用的是VB.net，并且框架是3.0版本以上，就可以得到LinQ的支持了 。或者，如果你的数据是从数据库中获取的，那么使用SQL语句重新从数据库获取过滤过的数据比自己双重循环比较效率还要高 。
哥德巴赫 VB.net 双重循环Module Program
Sub Main()
Dim l,n1,n2 As Long
Console.Write("请输入一个大于等于6的偶数：")
l=CLng(Console.ReadLine())
For n1=3 To CLng(l/2) 1
n2=l-n1
If IsPrime(n1) AndAlso IsPrime(n2) Then
Exit For
End If
Next
Console.WriteLine("{0}={1} {2}",l,n1,n2)
Console.Write("Press any key to continue . . . ")
Console.ReadKey(True)
End Sub
Function IsPrime(l As Long) As Boolean
Dim r As Boolean=False
Dim i As Long,sq As Long=CLng(Math.Sqrt(l))
For i=2 To sq
If 0=l Mod i Then
Exit For
End If
Next
If isq Then
r=True
End If
Return r
End Function
End Module
【vb.net双重循环 vb中双重循环】vb.net双重循环的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb中双重循环、vb.net双重循环的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：如何设置腾讯云服务器的登录方式？ 腾讯云服务器登录怎么设置

    下一篇：青菜该如何营销，青菜该如何营销出去