VB/VBS如何判断数字重复
VB/VBS怎么判断数字重复?
比如,现在有一数组,名为nums.
nums(0)=123
nums(1)=456
nums(2)=456
numS(3)=123
怎么去掉数组中重复的部分?就是0、3组和1、2组重复了.
就是要让它输出成:
xxx(0)=123
xxx(1)=456
怎么弄?
------解决方案--------------------
比如,现在有一数组,名为nums.
nums(0)=123
nums(1)=456
nums(2)=456
numS(3)=123
怎么去掉数组中重复的部分?就是0、3组和1、2组重复了.
就是要让它输出成:
xxx(0)=123
xxx(1)=456
怎么弄?
------解决方案--------------------
- VB code
Private Sub Command1_Click()
Dim numS(3) As Integer
Dim tmp(3) As Integer
Dim i As Integer, j As Integer
numS(0) = 123
numS(1) = 456
numS(2) = 456
numS(3) = 123
For i = 0 To 2
For j = i + 1 To 3
If numS(i) = numS(j) Then
tmp(j) = 1
End If
Next
Next
For i = 0 To 3
If tmp(i) = 0 Then
Debug.Print numS(i)
End If
Next
End Sub
------解决方案--------------------
既然你问到了各种语言，给你一个C#的实现，让你感受下编程语言10年来的发展：
- C# code
int[] nums = new int[] { 123, 456, 456, 123 };
nums = nums.Distinct().ToArray();