1. 注释：知识点“ office 插件 不支持 子程序 的 关闭 主程序 打开的 excel 子程序如果对 excel 操作的话 必须 再次 打开 在关闭
2. 用户定义变量 lj = "c:\111.xls" "路径"
3. 注释：UserVar jl_s = 100000 "记录总条数"
4. 注释：hangs = Clng(jl_s)
5. 令 hangs = 65000
6. 调用 读取excel的空位置
7. 子程序 读取excel的空位置
8.     调用 Office.OpenXls(lj)
9.     循环当 true 时
10.         令 text = Office.ReadXls(1,hangs,3)
11.         注释：MessageBox text
12.         注释：MessageBox hangs
13.         如果 text = "" 则
14.             注释：代表 找到了一次 第二次找没出现
15.             如果 dyc_y = true 则
16.                 令 sc_hangs = hangs
17.                 令 hangs = dw_hangs
18.                 调用 取中间值
19.             否则
20.                 注释：上次扫描的 行数
21.                 令 sc_hangs = hangs
22.                 令 hangs = hangs / 2
23.                 调用 提出整数部分
24.             条件结束
25.         否则
26.             注释：找到了 值得情况
27.             如果 sc_hangs - hangs <= 10 则
28.                 Office.CloseXls()
29.                 调用 逐行查找
30.                 跳出循环
31.             条件结束
32.             调用 取中间值
33.             令 dyc_y = true
34.         条件结束
35.     循环结束
36. 子程序结束
37. 弹出窗口 "最后的数是 ：" & hangs
38. 子程序 取中间值
39.     注释：找到有值得位置了 记录有值得位置 行数到 dw_hangs 定位行数
40.     令 dw_hangs = hangs
41.     令 hangs = sc_hangs - dw_hangs
42.     令 hangs = hangs / 2
43.     注释：转换成字符串 判断是否有小数点 有的话 就 保留 整数部分
44.     调用 提出整数部分
45.     令 hangs = hangs + dw_hangs
46. 子程序结束
47. 子程序 逐行查找
48.     弹出窗口 "行数是：" & hangs & "进入逐行查找"
49.     调用 Office.OpenXls(lj)
50.     循环当 true 时
51.         令 text = Office.ReadXls(1,hangs,3)
52.         如果 text <> "" 则
53.             令 hangs = hangs + 1
54.         否则
55.             跳出循环
56.         条件结束
57.     循环结束
58.     Office.CloseXls()
59. 子程序结束
60. 子程序 提出整数部分
61.     令 hangs = cstr(hangs)
62.     注释：MessageBox "除以后的hangs值 :" & hangs
63.     令 zhao_d = InStrRev(hangs,".",- 1 ,1)
64.     注释： MessageBox "小数点的位置是：" & zhao_d
65.     如果 zhao_d <> 0 则
66.         令 hangs = Clng(left(hangs,zhao_d - 1))
67.         注释：MessageBox "处理小数点后的hangs值：" & hangs
68.     否则
69.         令 hangs = Clng(hangs)
70.     条件结束
71. 子程序结束