一个小问题，征求一个好方法！！

Question

首先把你的1﹐1="天上人间"
1﹐9="地狱"....等組合為一個Collection,然后用一條語句就能搞定

Answer 1

定义一个数组存放字符串
dim ArrayOfCaption( 99 )
ArrayOfCaption(11) ="天上人间"
ArrayOfCaption(19) ="地狱"
ArrayOfCaption(91) ="天上人"
ArrayOfCaption(99) ="天上间"a = combo1.text + combo2.text
text1.text = ArrayofCaption( VAL( a ) )

Answer 2

dim a(1 to 9,1 to 9)
a(1,1) ="天上人间"
a(1,9) ="地狱"
a(9,1) ="天上人"
a(9,9) ="天上间"
text1.text = a(cint(combo1.text),cint(combo2.text))