请高手将Delphi语言编写的玄空风水相命软件源码转换成VB源码

电脑算命。。

有些赋值的代码可以写的很简洁，不需要这么复杂，比如天干地支的赋值可以这么写
'====================================================================================
const tgdz="壬,子,癸,丑,艮,寅,甲,卯,乙,辰,巽,巳,丙,午,丁,未,坤,申,庚,酉,辛,戌,乾,亥"
dim sx1() as string
sx1=split(tgdz,",")
'====================================================================================
就上面三句可以将你的sx(0)到sx(23)的值全部给出，而你整整用了25行代码。

完善后的程序排出的盘式：
[attach]68726[/attach][attach]68727[/attach][attach]68728[/attach][attach]68729[/attach]

[ 本帖最后由 益西翁登 于 2013-2-17 09:33 编辑 ]

没有别的，就是这些

替星还不对，我不要这个exe文件，exe我有，我只是想通过这个例子学习一下组合框的使用方法，怎么样把这些功能整合到一块

[ 本帖最后由 益西翁登 于 2013-2-17 09:34 编辑 ]

已发送至你邮箱，查收。

感谢lowxiong老师的回复,现在不需要了.

[ 本帖最后由 曙光电子 于 2013-2-23 09:51 编辑 ]

本人已编写出另类风格的风水运事软件,所以结束本贴。