vb,想知道两个数组的值是否完全相同.有什么办法.

来源:百度知道 编辑:UC知道 时间:2024/09/28 08:25:40
得通过循环吗?

楼下的兄弟..虽然你说的用join函数是可以没错,
if Join(a())=Join(b()) then msgbox "两数组完全相同。"
但是你的语法错了,不要忽悠楼主..
是join(a)

用join函数和循环都可以.
希望可以帮到你

Dim a(0 To 2) As String
a(0) = "a"
a(1) = "b"
a(2) = "c"
Dim b(0 To 2) As String
b(0) = "a"
b(1) = "b"
b(2) = "c"

'用join函数方法
If Join(a) = Join(b) Then
MsgBox("两数组完全相同。")
Else
MsgBox("两数组不相同。")
End If

'用循环方法
Dim i As Int16
Dim s As Int16 = 0
For i = 0 To (a.Length - 1)
If a(i) = b(i) Then
s = i
If s = (a.Length - 1) Then
MsgBox("两数组完全相同。")
End If
Else
MsgBox("两数组不相同。")
End If
Next

用循环当然可以完成判断,不过还有更快的办法,那就是Join函数

if Join(a())=Join(b()) then msgbox "两数组完全相同。"

这样是不是很简单呢??

if aa(1).value = aa(2).value