暗淡？caseArray(3)？作為？線
caseArray(0)？=?" A "
caseArray(1)？=?" B "
caseArray(2)？=?" C "
caseArray(3)？=?" D "
暗淡？rowNum？作為？整數
為了什麽？我？=?1?去哪？四
為了什麽？j？=?1?去哪？四
為了什麽？k？=?1?去哪？四
為了什麽？l？=?1?去哪？四
rowNum？=?rowNum？+?1
單元格(rowNum，1)?=?“情況”？& amp？CStr(rowNum)
單元格(rowNum，2)?=?caseArray(i？-?1)
單元格(rowNum，3)?=?caseArray(j？-?1)
單元格(rowNum，4)?=?caseArray(k？-?1)
單元格(rowNum，5)?=?caseArray(l？-?1)
下壹個？l
下壹個？k
下壹個？j
下壹個？我
結束？潛水艇