条件判断

Question

数据源  aa = Array("dd", "1") 或是 aa = Array("cc", "1")
现在解决方法如下：
Sub lllll()
  aa = Array("dd", "1")
'  aa = Array("cc", "1")
  If aa(0) = "dd" Then
    gg = aa(0)
  End If
  If aa(0) = "cc" Then
    gg1 = aa(0)
  End If
  Debug.Print gg, gg1
End Sub
此程序感觉有些不好， 请问各位大侠还有更好的方法吗？谢谢。

Answer 1

Sub lllll() 
  aa = Array("dd", "1") 
'  aa = Array("cc", "1") 
  If aa(0) = "dd" Then 
    gg = aa(0) 
  Else
    gg1 = aa(0) 
  End If 
  Debug.Print gg, gg1 
End Sub 
这样呢?
感觉差不多..你到底要做什么的..

Answer 2

这种结果如何
'  aa = Array("dd", "1")
  aa = Array("cc", "1")
  Select Case aa(0)
    Case "dd"
      gg = aa(0)
    Case "cc"
      gg1 = aa(0)
  End Select
  Debug.Print gg, gg1

Answer 3

Sub lllll() 
  aa = Array("dd", "1") 
  If aa(0) = "dd" Then 
    gg = aa(0) 
 ELSE
 gg1 = aa(0) 
  End If 
  Debug.Print gg, gg1