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

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 编辑 ]

做成后的效果图

好东西