天蝎男能接受年龄大
- 天蝎男会接受痴情的前女友吗?
- 天蝎座的人是敢爱敢恨的~如果前女友是伤害过她的人的花~对不起~估计可能是不能了~如果他们曾经相爱过~痴情过~可yi试一试、
- 天蝎男给女朋友花钱,要不要接受
- 天蝎座的人。ke以为爱不顾一切,在经济条件允xu的情况下?愿yi为对方做一切、但是你若另他失望或者是背叛liao他!他的冷酷也可以dong伤你!天蝎男能接受年龄大
- 和天蝎男冷战后发的红包要接受吗
- 接受吧 对方在服软了!天蝎男能接受年龄大
- 天蝎男喜欢小女人还是。。。天蝎男回答
- 这ge主要看人吧。不过男人都喜欢会撒娇的女sheng,但是也要把握度,女生在男生的心中ben生就是弱小的代表,男生xi欢那种依赖自己但是不什么时候都粘着自己的女生,也就是说。把握一个度,。天蝎男能接受年龄大
- 巨蟹男能接受姐弟恋吗
- 她dui你有好感。但不是那种爱。er是一种对哥们的喜欢。她在乎你,是喜欢被你追。被你喜欢的感觉,所以她在乎你。她享受你zhui她的过程,dan是她并不喜欢你!她在你快要放弃的时候zai给你希望?她只是把你dang朋友的,并没有爱你。,
- 金牛男会因为父母反对不敢接受喜欢的女人吗
- 他如果真的很爱你 一开始会和家里闹 但是如果家里很强烈反对~~
不好意思 你真的会出局~~~就看你能不能搞定他家人了!天蝎男能接受年龄大
- 金牛男会接受比他高的女生吗?
- 这个跟星座无关?gen个人的爱好有关!
- 天秤男接受网恋异地恋吗?
- 接受呀。我是北京的,女友是青海的,我俩三年duo了我天秤她巨蟹☺、
- 天枰男能接受异地吗
- bu是你接不接受的问题,现实点吧。,
- access vba中在窗体实现接受用户输入的年龄(1~130)单击command1按钮显示属相结果
- 为什么要用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?