首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

VB/VBS如何判断数字重复

2012-03-24 
VB/VBS怎么判断数字重复?比如,现在有一数组,名为nums.nums(0)123nums(1)456nums(2)456numS(3)123怎么

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
怎么弄?

[解决办法]

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(); 

热点排行