List1。清楚的
暗淡？t1()，？t2()，？t3()，？t()
t1？=?數組(1，？2,?3,?4)
t2？=?數組(5，7,?8,?10)
t3？=?數組(9，11,?12,?18,?22,?24,?25)
t？=?數組(t1，？t2，？t3)
為了什麽？我？=?LBound(t)？去哪？欠平衡
Label1(i)？=?" t "？+?CStr(我？+?1)?+?"?=("
為了什麽？j？=?LBound(t(i))？去哪？欠約束(t(i))
如果？j？& lt？UBound(t(i))？然後
Label1(i)？=?Label1(i)？+?CStr(t(i)(j))？+?","
其他
Label1(i)？=?Label1(i)？+?CStr(t(i)(j))？+?")"
結束？如果
下壹個？j
下壹個？我
為了什麽？我？=?LBound(t(0))？去哪？UBound(t(0))
為了什麽？j？=?LBound(t(1))？去哪？UBound(t(1))
為了什麽？k？=?LBound(t(2))？去哪？UBound(t(2))
List1。AddItem？CStr(t(0)(i))？+?空間(1)？+?CStr(t(1)(j))？+?空間(1)？+?CStr(t(2)(k))
下壹個？k
下壹個？j
下壹個？我
標簽2。標題？=?“* * *計劃”？+?CStr((UBound(t(0))？+?1)?*?(UBound(t(1))？+?1)?*?(UBound(t(2))？+?1))?+?“善良”
結束？潛水艇