Dim v As Integer = val(e.Sender.Text)
Dim r() As String = {"命宫","兄弟","夫妻","子女","财帛","疾厄","迁移","仆役","官禄","田宅","福德","父母"}
If r IsNot Nothing
Dim idx As Integer = 1
If v >= 1 AndAlso v <= 12 Then
For i As Integer = v-1 To 0 Step -1
e.Form.Controls("Label" & idx).text = r(i)
idx += 1
Next
For i As Integer = 11 To v Step -1
e.Form.Controls("Label" & idx).text = r(i)
idx += 1
Next
End If
End If
加好友 
发短信
Post By：2019/1/12 12:07:00 [显示全部帖子]
