求在VB的text1中找出相同的数，并在text2中显示出来一个数就行

显示全部楼层 · 2009-11-10 17:17:40

'去掉不重复的数，重复的数只要一个Private Sub Command1_click()Dim tmp() As Stringtmp = Split(Text1, " ") 'Text1中的数用一个空格隔开For i = 0 To UBound(tmp)
For j = i + 1 To UBound(tmp)
If tmp(i) = tmp(j) And InStr(Text2, tmp(i)) = 0 Then
Text2 = Text2 & tmp(i) & " "
Exit For
End If
NextNextEnd Sub

千问 · 2009-11-10 17:17:40

选择工具→加载宏，选取“分析工具库”，确定。然后在“函数”中选择“工程”分类，就可以看到各种进制转换函数了。选这个函数hex2dec(number)括号中number为你要转换成10进制的十六进制数！或者用wps更方便