Dim cs() As String = New String() { "1","2","3","4","5","6","7","8","9","10"}Dim ns() As String = New String(){"一","二","三","四","五","六","七","八","九","十"}For n As Integer = 0 To cs.Length -1 If cs(n) = 2 Then Output.Show(ns(n)) End IfNext
判断自己加吧!