BASIC求助

lavendar_o5

c(1) = 0
c(2) = 2
c(3) = 3

现我想做的是：如果 c(1)与c(2)与c(3)不相同，则PRINT "Different"。如果c(1)与c(2)与c(3)只要有一个相同（如c(1) = c(3))，则PRINT "SAME"。
请问怎么表达呢？

yoonhun

用 if

basic 我已经忘记了..
类似这样

if c(1) = c(2)
print same
else if c2 = c3
print same
else if c3=c1
print same
else
print different

lavendar_o5

原帖由 yoonhun 于 18-2-2007 03:44 PM 发表
用 if

basic 我已经忘记了..
类似这样

if c(1) = c(2)
print same
else if c2 = c3
print same
else if c3=c1
print same
else
print different

多谢你的帮忙，这方法我知道，只不过我的资料并不是3个，而是9个....所以想请问有什么好方法解决这问题。。。

MaokeJackson

Dim i As Integer
Dim j As Integer
Dim same As Boolean

same = False
For i = 1 To n-1
    For j = i+1 To n
        If c(i) = c(j) Then
            ? "SAME"
            same = True
            Exit For
        End If
    Next j
    If same Then Exit For
Next i

If same = False Then
    ? "Different"
End If

lavendar_o5

谢谢！