『楼 主』:
这个生肖查询能不能再用别的简洁方法VBS。
我第一次写的:
dim sr
sr=inputbox("请输入年份如:1983"&Chr(10)&Chr(13)&"查询范围1900-2103","生肖查询")
If IsNumeric(sr) And sr<>"" then
select case sr
case 1900,1912,1924,1936,1948,1960,1972,1984,1996,2008,2020,2032,2044,2056,2068,2080,2092
msgbox sr&"年生肖属：鼠，子年",,"生肖"
case 1901,1913,1925,1937,1949,1961,1973,1985,1997,2009,2021,2033,2045,2057,2069,2081,2093
msgbox sr&"年生肖属：牛，丑年",,"生肖"
case 1902,1914,1926,1938,1950,1962,1974,1986,1998,2010,2022,2034,2046,2058,2070,2082,2094
msgbox sr&"年生肖属：虎，寅年",,"生肖"
case 1903,1915,1927,1939,1951,1963,1975,1987,1999,2011,2023,2035,2047,2059,2071,2083,2095
msgbox sr&"年生肖属：兔，卯年",,"生肖"
case 1904,1916,1928,1940,1952,1964,1976,1988,2000,2012,2024,2036,2048,2060,2072,2084,2096
msgbox sr&"年生肖属：龙，辰年",,"生肖"
case 1905,1917,1929,1941,1953,1965,1977,1989,2001,2013,2025,2037,2049,2061,2073,2085,2097
msgbox sr&"年生肖属：蛇，巳年",,"生肖"
case 1906,1918,1930,1942,1954,1966,1978,1990,2002,2014,2026,2038,2050,2062,2074,2086,2098
msgbox sr&"年生肖属：马，午年",,"生肖"
case 1907,1919,1931,1943,1955,1967,1979,1991,2003,2015,2027,2039,2051,2063,2075,2087,2099
msgbox sr&"年生肖属：羊，未年",,"生肖"
case 1908,1920,1932,1944,1956,1968,1980,1992,2004,2016,2028,2040,2052,2064,2076,2088,2100
msgbox sr&"年生肖属：猴，申年",,"生肖"
case 1909,1921,1933,1945,1957,1969,1981,1993,2005,2017,2029,2041,2053,2065,2077,2089,2101
msgbox sr&"年生肖属：鸡，酉年",,"生肖"
case 1910,1922,1934,1946,1958,1970,1982,1994,2006,2018,2030,2042,2054,2066,2078,2090,2102
msgbox sr&"年生肖属：狗，戌年",,"生肖"
case 1911,1923,1935,1947,1959,1971,1983,1995,2007,2019,2031,2043,2055,2067,2079,2091,2103
msgbox sr&"年生肖属：猪，亥年",,"生肖"
case else
msgbox "输入错误格式",,"错误"
wscript.quit
end select
Else
MsgBox "不是数字!", 64, "错误信息..."
wscript.quit
End If
第二次的:
dim a
const b=1900
const c=1901
const d=1902
const e=1903
const f=1904
const g=1905
const h=1906
const i=1907
const j=1908
const k=1909
const l=1910
const m=1911
a=inputbox("输入年份","查询")
If IsNumeric(a) And a<>"" Then
If a>1899 and a<2104 Then
Select case a
case b
msgbox a&"年生肖属：鼠，子年",,"生肖"
case c
msgbox a&"年生肖属：牛，丑年",,"生肖"
case d
msgbox a&"年生肖属：虎，寅年",,"生肖"
case e
msgbox a&"年生肖属：兔，卯年",,"生肖"
case f
msgbox a&"年生肖属：龙，辰年",,"生肖"
case g
msgbox a&"年生肖属：蛇，巳年",,"生肖"
case h
msgbox a&"年生肖属：马，午年",,"生肖"
case i
msgbox a&"年生肖属：羊，未年",,"生肖"
case j
msgbox a&"年生肖属：猴，申年",,"生肖"
case k
msgbox a&"年生肖属：鸡，酉年",,"生肖"
case l
msgbox a&"年生肖属：狗，戌年",,"生肖"
case m
msgbox a&"年生肖属：猪，亥年",,"生肖"
case Else
If (a-b) Mod 12=0 Then
msgbox a&"年生肖属：鼠，子年",,"生肖"
ElseIf (a-c)Mod 12=0 then
msgbox a&"年生肖属：牛，丑年",,"生肖"
ElseIf (a-d)Mod 12=0 then
msgbox a&"年生肖属：虎，寅年",,"生肖"
ElseIf (a-e)Mod 12=0 then
msgbox a&"年生肖属：兔，卯年",,"生肖"
ElseIf (a-f)Mod 12=0 then
msgbox a&"年生肖属：龙，辰年",,"生肖"
ElseIf (a-g)Mod 12=0 then
msgbox a&"年生肖属：蛇，巳年",,"生肖"
ElseIf (a-h)Mod 12=0 then
msgbox a&"年生肖属：马，午年",,"生肖"
ElseIf (a-i)Mod 12=0 then
msgbox a&"年生肖属：羊，未年",,"生肖"
ElseIf (a-j)Mod 12=0 then
msgbox a&"年生肖属：猴，申年",,"生肖"
ElseIf (a-k)Mod 12=0 then
msgbox a&"年生肖属：鸡，酉年",,"生肖"
ElseIf (a-l)Mod 12=0then
msgbox a&"年生肖属：狗，戌年",,"生肖"
ElseIf (a-m)Mod 12=0 then
msgbox a&"年生肖属：猪，亥年",,"生肖"
End If
end Select
Else
MsgBox("超出范围")
End If
Else
MsgBox "不是数字!", 64, "错误信息..."
wscript.quit
End If
[ Last edited by hxwonepc on 2008-3-9 at 11:59 AM ]
|
