作者fumizuki (矇面加菲獅)
看板Visual_Basic
標題Re: [VB6 ] VB6.0 判斷問題
時間Sun Feb 25 12:07:36 2007
※ 引述《wwth1 (wwth1)》之銘言：
: 我想請教一下大家
: 如果我現在有6個數字1,1,2,2,3,4
: 如果相同的數字只有顯示一次
: 變成:n1=1
: n2=2
: n3=3
: n4=4
: 請問這樣字該怎麼寫呢??
: 麻煩一下各位大大了
Dim a1 As Variant, a2() As Variant
Dim i As Integer, j As Integer, c As Integer
Dim b As Boolean
a1 = Array(1, 1, 2, 2, 3, 4)
c = -1
For i = 0 To UBound(a1)
b = False
For j = 0 To c
If a1(i) = a2(j) Then b = True: Exit For
Next
If Not b Then
c = c + 1: Redim Preserve a2(c): a2(c) = a1(i)
Print a1(i)
End If
Next
--
▃▅▇▆▄ ▆▂▃ `
逝去感情如何能留住，半點癡情遺留殊不易，██▅▇▄▃ ▇▃▂" .
█████████▃i ▁▄▇
更多悽悽慘慘的遭遇…………██▆▃ █▅▆▃ˍ▄*
◢ ▂█▄▇▅▂▌.
我不知道，王～八～蛋～～！ ▂▆███ █▄▃ 。fumizuki。Check。
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 123.194.68.49
1F：推 wwth1:呵呵 太感謝你了 謝謝啦^^ 02/25 20:31