请教高手下面是ASP里的，这几个代码用VB怎么写，谢谢！
Select Case shan
case "子","癸","甲","申" dyys=1
case "坤","壬","乙","卯","未" dyys=2
case "戌","乾","亥","辰","巽","巳" dyys=6
case "艮","丙","辛","酉","丑"  dyys=7
case  "寅","午","庚","丁" dyys=9
End Select

谢谢lowxiong仁兄指点，因本人刚开始学习VB，还没入门，我把需要制作的程序窗体和用到的代码发上来，盼lowxiong仁兄和各位老师，帮忙看怎么整合在一起，谢谢！

[ 本帖最后由 益西翁登 于 2012-2-15 06:17 编辑 ]

做成后的效果图