主题：数组处理

用数组麻烦，建议直接用集合

http://www.foxtable.com/help/topics/0217.htm

或者取出的时候，判断一下

Dim s1() As String
s1 = New String() {"中国","美国","日本","俄罗斯AA"}

s1(0) = Nothing

For Each s As String In s1
    If s <> Nothing Then
        output.show(s)
    End If
next