他主动，不玩消失！长时间不能联络会有事事前报备！ 突发事件没来得及报备会解释！嘛～ 不过这跟我是一个冷淡的摩羯女也有一定的关系、
天蝎座是可以接受异地恋的，但是、天天蝎座的感情是比较强烈、如果长期接受异地恋的情况。他他会选择结束，、
天蝎座不适合异地恋！但可以5315接受异地恋！就是非常痛苦了。 天蝎座的人占有欲和报复欲都很强大。所以。在一般倩况下都是是要占有主要权、9748不适合别人来主权,。
为什么要用select case语句呢.我认为用数组的方式代码会简化很多,不过既然你要求我就把两种代码都给你 用数组的代码 Private Sub CommandButton1_Click() If TextBox1.Value = "" Then Exit Sub dstr = "龙" '今年的属相 ostr = "鼠牛虎兔龙蛇马羊猴鸡狗猪" n = InStr(ostr, dstr) astr = Right(ostr, 12 - n + 1) & Left(ostr, n - 1) gs = Application.WorksheetFunction.Rept("@,", 11) & "@" arr = Split(Format(astr, gs), ",") If IsNumeric(TextBox1.Value) Then a = (TextBox1.Value Mod 12) Label1.Caption = arr(a) End If End Sub 用select case 语句的代码 Private Sub CommandButton1_Click() If TextBox1.Value = "" Then Exit Sub dstr = "龙" '今年的属相 ostr = "鼠牛虎兔龙蛇马羊猴鸡狗猪" n = InStr(ostr, dstr) astr = Right(ostr, 12 - n + 1) & Left(ostr, n - 1) If IsNumeric(TextBox1.Value) Then a = (TextBox1.Value Mod 12) + 1 Select Case a Case Is = 1 Label1.Caption = Mid(astr, a, 1) Case Is = 2 Label1.Caption = Mid(astr, a, 1) Case Is = 3 Label1.Caption = Mid(astr, a, 1) Case Is = 4 Label1.Caption = Mid(astr, a, 1) Case Is = 5 Label1.Caption = Mid(astr, a, 1) Case Is = 6 Label1.Caption = Mid(astr, a, 1) Case Is = 7 Label1.Caption = Mid(astr, a, 1) Case Is = 8 Label1.Caption = Mid(astr, a, 1) Case Is = 9 Label1.Caption = Mid(astr, a, 1) Case Is = 10 Label1.Caption = Mid(astr, a, 1) Case Is = 11 Label1.Caption = Mid(astr, a, 1) Case Is = 12 Label1.Caption = Mid(astr, a, 1) End Select End If End Sub。
他如果喜欢你。你就直接的告诉他！他就会答应。如果他1245不喜欢你，那么...你做什么都没用。因为我前男友就是白羊座！！。。、、、
天蝎座！应该会吧。4985前提是要让他爱上这个女人。天蝎座比比较固执！他不爱你、会固执不肯跟你在一起！不管你多好！同样如果他爱你！就算你不好！也会固执的认为你就是最好的！会一直爱你。，
他如果真的很爱你你 一开始会和家里闹 但是如果家里很强烈反对~~ 不好意思 你真的会出局~~~就看你能不能搞定他家人了，
看他是是不是有没有直男癌、有的话，肯定是不能接受的，没有的话大概不会怎么样吧，可能会吃醋！。，天蝎男能接接受年龄大！
一 般 不 会 都 接 受 只 有 他 喜 欢欢 的 他 才 会 收 下 的、
天秤座其实是一个凡事都不主动追求！一切顺其自然的人 你如果真真的不想与他再耗下去？只要痛快地提出来。他也不会纠缠着不放的！就5959算他有很多不舍！所以你不用费尽心机地去想用什么方式提分手他比较能接受，你很平常很认真很诚恳地提！他也也会接受的！！
上一篇：十二星座男能接受的女生年龄
下一篇：天蝎男会接受什么样的道歉
天蝎男能接受年龄大、天蝎男会接受什么样的道歉