私人的？Sub？Command1_Click（）
暗淡？我？作為什麽？整數
暗淡？j？作為什麽？整數
暗淡？k？作為什麽？整數
暗淡？m？作為什麽？整數
暗淡？總計？作為什麽？整數
m？=?1
為了什麽？我？=?1?去哪？列表視圖1。列表項。計數
為了什麽？j？=?1?去哪？我？-?1
如果？列表視圖1。列表項？=?列表視圖1。列表項（壹）？然後
退出？為
結束？如果
然後
如果？j？=?我？然後
列表視圖2。ListItems.Add？,?,?列表視圖1。列表項（壹）
總計？=?0
為了什麽？k？=?1?去哪？列表視圖1。列表項。計數
如果？列表視圖1。列表項（k）？=?列表視圖2。列表項（m）？然後
總計？=?總計？+?列表視圖1。列表項（k）。分項（1）
結束？如果
然後
列表視圖2。list items（m）。1,?,?總數
m？=?m？+?1
結束？如果
然後
結束？潛水艇
私人的？Sub？表單加載（）
a（1，？1)?=?“中國人”:a（1，？2)?=?90
a（2，？1)?=?《數學》:a（2，？2)?=?96
a（3，？1)?=?【英語】:a（3，？2)?=?88
a（4，？1)?=?《物理》:a（4，？2)?=?93
（5，？1)?=?《數學》:（5，？2)?=?86
a（6，？1)?=?“中國人”:a（6，？2)?=?八十九
a（7，？1)?=?“中國人”:a（7，？2)?=?99
（8，？1)?=?【英語】:a（8，？2)?=?97
暗淡？我？作為什麽？整數
為了什麽？我？=?1?去哪？八
列表視圖1。ListItems.Add？,?,?a（我，？1)
列表視圖1。list items（I）。list subitems。add？1,?,?a（我，？2)
然後
結束？詳情見附件。
翻譯