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

VB.NET 动态二维数组如何循环赋值和取值

for i =0 to ...

for j =0 to ...

keyarray(i,j)=

next

next

双重循环，赋值和读取一样

相关问答

Q1: VB怎样在数组之间匹配数据？

要解决这个问题办法很多，如何选择取决于应用环境和具体需求。

使用双重循环是最简单的办法。这个方案虽然计算成本较高，但适应性强，最容易实现。如果是有序数组，可以通过二分法迅速定位目标位置；你也可以构造一个临时数组，通过“摘除法”减少比较次数。

除此之外，预先构造一个对应表也是很有效率的方法。磨刀不误砍柴工。

如果有环境的支持，那效率和代码都要省很多。最典型的就是LinQ。如果你使用的是VB.net，并且框架是3.0版本以上，就可以得到LinQ的支持了。或者，如果你的数据是从数据库中获取的，那么使用SQL语句重新从数据库获取过滤过的数据比自己双重循环比较效率还要高。

Q2: 哥德巴赫 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双重循环的信息别忘了在本站进行查找喔。