Vb對數據反向返回的操作

dim String為String，sz()為String，fhz為Long，I為Long，j為Integer

str = List1。文本

sz = Split(str，"，")

fhz =欠載(sz)

對於i = 0到2

If選項1(i)。那麽

選項1(i)。值=真

其他

選項1(i)。值=假

如果…就會結束

接下來我

對於i = 0到11

Check1(i)。值= 0

接下來我

對於j = 1至fhz - 1

對於i = 0到11

If Check1(i)。Caption = sz(j)那麽

Check1(i)。值= 1

如果…就會結束

接下來我

下壹個j

對於i = 0至Combo1。列表計數- 1

Combo1。ListIndex = i

如果正確(Combo1。Text，3) = sz(0)那麽

為...退出

如果…就會結束

接下來我

末端接頭