1. Event(Form1.Button1.Click)
2. 注释： sjls需要输出的数据列数 scls输入栏数
3. 令 sjls = form1.ComboBox1.ListIndex + 1
4. 令 scls = form1.ComboBox2.ListIndex + 2
5. 令 useb1 = form1.ComboBox3.ListIndex + 1
6. 令 useb2 = form1.ComboBox4.ListIndex + 1
7. 弹出窗口 "将第" & useb1 & "张表中的前" & sjls & "列的内容按" & scls & "栏输出到第" & useb2 & "张表"
8. 注释： MessageBox "数据列数：" & sjls & " 分栏数：" & scls
9. 调用 Office.OpenXls(form1.InputBox1.Text)
10. 注释：hsyl原数据的行数 lsyl原数据的列数
11. 注释：hssc输出数据的行数 lssc输出数据的列数
12. 注释：如果原数据有标题行，且要输出标题行
13. 如果 form1.CheckBox2.value = 1 并且 form1.CheckBox1.value = 1 则
14.     令 btcf = 1
15.     令 lssc = 1
16.     循环当 btcf <= scls 时
17.         令 bt = 1
18.         循环当 bt <= sjls 时
19.             令 usetex = Office.ReadXls(useb1,1,bt)
20.             调用 Office.WriteXls(useb2,1,lssc,usetex)
21.             令 lssc = lssc + 1
22.             令 bt = bt + 1
23.         循环结束
24.         令 btcf = btcf + 1
25.     循环结束
26. 条件结束
27. 如果 form1.CheckBox2.value = 1 并且 form1.CheckBox1.value = 1 则
28.     令 hssc = 2
29.     令 HSYL = 2
30. 否则如果 form1.CheckBox2.value = 1 并且 form1.CheckBox1.value = 0 则
31.     令 hssc = 1
32.     令 HSYL = 1
33. 否则如果 form1.CheckBox2.value = 0 并且 form1.CheckBox1.value = 1 则
34.     令 hssc = 1
35.     令 HSYL = 2
36.     (语句无法识别，可能有错误): Else form1.CheckBox2.value = 0 and form1.CheckBox1.value = 0
37.     令 hssc = 1
38.     令 HSYL = 1
39. 条件结束
40. 令 lssc = 0
41. 循环当 HSYL <= 50 时
42.     令 LSYL = 1
43.     循环当 LSYL <= sjls 时
44.         令 usetex = Office.ReadXls(useb1,HSYL,LSYL)
45.         如果 lssc = sjls * scls 则
46.             令 hssc = hssc + 1
47.             令 lssc = 1
48.         否则
49.             令 lssc = lssc + 1
50.         条件结束
51.         调用 Office.WriteXls(useb2,hssc,lssc,usetex)
52.         令 LSYL = LSYL + 1
53.     循环结束
54.     令 HSYL = HSYL + 1
55. 循环结束
56. Office.CloseXls()
57. 弹出窗口 "恭喜，数据生成完毕！"
58. (语句无法识别，可能有错误): End Event