1樓：一念春風十里不如你
'1、代表戶口地
'2、出身年份
'3、出身月份
'4、出生日
'5、奇數 男 ，偶數 女
'所以第一步先擷取出這些數字 mid(id, 7, 4) //（身份證號，從第7位，至後4位）取1994
id = "4107211994110111037465"
years = mid(id, 7, 4) '取第7位後4位 出生年份
mdate = mid(id, 11, 2) '取第11位後2位 出生月份
months = mid(id, 13, 2)
select case mid(trim(id), 1, 2)
case 11
msgbox "你的戶口所在地： 北京市"
case 12
msgbox "你的戶口所在地： 天津市"
case 13
msgbox "你的戶口所在地： 河北省"
case 14
msgbox "你的戶口所在地： 山西省"
case 15
msgbox "你的戶口所在地： 內蒙古自治區"
case 21
msgbox "你的戶口所在地： 遼寧省"
case 22
msgbox "你的戶口所在地： 吉林省"
case 23
msgbox "你的戶口所在地： 黑龍江省"
case 31
msgbox "你的戶口所在地： 上海市"
case 32
msgbox "你的戶口所在地： 江蘇省"
case 33
msgbox "你的戶口所在地： 浙江省"
case 34
msgbox "你的戶口所在地： 安徽省"
case 35
msgbox "你的戶口所在地： 福建省"
case 36
msgbox "你的戶口所在地： 江西省"
case 37
msgbox "你的戶口所在地： 山東省"
case 41
msgbox "你的戶口所在地： 河南省"
case 42
msgbox "你的戶口所在地： 湖北省"
case 43
msgbox "你的戶口所在地： 湖南省"
case 44
msgbox "你的戶口所在地： 廣東省"
case 45
msgbox "你的戶口所在地： 廣西壯族自治區"
case 46
msgbox "你的戶口所在地： 海南省"
case 50
msgbox "你的戶口所在地： 重慶市"
case 51
msgbox "你的戶口所在地： 四川省"
case 52
msgbox "你的戶口所在地： 貴州省"
case 53
msgbox "你的戶口所在地： 雲南省"
case 54
msgbox "你的戶口所在地： **自治區"
case 61
msgbox "你的戶口所在地： 陝西省"
case 62
msgbox "你的戶口所在地： 甘肅省"
case 63
msgbox "你的戶口所在地： 青海省"
case 64
msgbox "你的戶口所在地： 你喜歡回族自治區"
case 65
msgbox "你的戶口所在地： 新疆維吾爾自治區"
case 71
msgbox "你的戶口所在地： 臺灣省"
case 72
msgbox "你的戶口所在地： 香港特別行政區"
case 73
msgbox "你的戶口所在地： 澳門特別行政區"
end select
msgbox "你的性別：" & iif(val(mid(id, 17, 1)) mod 2 = 0, "女", "男")
msgbox "你的生日：" & mdate & "-" & months
msgbox " 你的年齡為：" & (year(date) - years)
msgbox " 你的屬相：" & mid("鼠牛虎兔龍蛇馬羊猴雞狗豬", (((year(date) - years) mod 12) + 11) mod 12 + 1, 1)
msgbox " 你的星座：" & mid("摩羯水瓶雙魚白羊金牛雙子巨蟹獅子**天秤天蠍射手摩羯", (month(mdate) + iif((day(mdate) - (19 + int(mid("102123444533", month(mdate), 1)))) >= 0, 0, -1)) * 2 + 1, 2) & "座"
2樓：匿名使用者
介面設計:
**:dim animalsign(), region(1 to 8, 0 to 7) as string
private sub command1_click()
dim id_no as string
id_no = text1.text
text2.text = region(mid(id_no, 1, 1), mid(id_no, 2, 1))
text3.text = iif(mid(id_no, 17, 1) mod 2, "男", "女")
text4.text = mid(id_no, 11, 2) + "-" + mid(id_no, 13, 2)
text5.text = animalsign(mid(id_no, 7, 4) mod 12)
text6.text = year(now) - mid(id_no, 7, 4)
select case val(mid(id_no, 11, 2)) & "月" & val(mid(id_no, 13, 2)) & "日"
case "12月22日" to "1月20日"
text7.text = "摩羯座"
case "1月21日" to "2月19日"
text7.text = "水瓶座"
case "2月20日" to "3月20日"
text7.text = "雙魚座"
case "3月21日" to "4月20日"
text7.text = "白羊座"
case "4月21日" to "5月21日"
text7.text = "金牛座"
case "5月22日" to "6月21日"
text7.text = "雙子座"
case "6月22日" to "7月22日"
text7.text = "巨蟹座"
case "7月23日" to "8月23日"
text7.text = "獅子座"
case "8月24日" to "9月23日"
text7.text = "**座"
case "9月24日" to "10月23日"
text7.text = "天秤座"
case "10月24日" to "11月22日"
text7.text = "天蠍座"
case "11月23日" to "12月21日"
text7.text = "射手座"
end select
end sub
private sub form_load()
animalsign = array("猴", "雞", "狗", "豬", "鼠", "牛", "虎", "兔", "龍", "蛇", "馬", "羊")
region(1, 1) = "北京市": region(1, 2) = "天津市": region(1, 3) = "河北省"
region(1, 4) = "山西省": region(1, 5) = "內蒙古自治區"
region(2, 1) = "遼寧省": region(2, 2) = "吉林省": region(2, 3) = "黑龍江省"
region(3, 1) = "上海市": region(3, 2) = "江蘇省": region(3, 3) = "浙江省"
region(3, 4) = "安徽省": region(3, 5) = "福建省": region(3, 6) = "江西省"
region(3, 7) = "山東省"
region(4, 1) = "河南省": region(4, 2) = "湖北省": region(4, 3) = "湖南省"
region(4, 4) = "廣東省": region(4, 5) = "廣西壯族自治區": region(4, 6) = "海南省"
region(5, 0) = "重慶市": region(5, 1) = "四川省": region(5, 2) = "貴州省"
region(5, 3) = "雲南省": region(5, 4) = "**自治區"
region(6, 1) = "陝西省": region(6, 2) = "甘肅省": region(6, 3) = "青海省"
region(6, 4) = "寧夏回族自治區": region(6, 5) = "新疆維吾爾自治區"
region(8, 1) = "香港特別行政區": region(8, 2) = "澳門別行政區": region(8, 3) = "臺灣地區"
end sub
執行介面:
3樓：真彰
輸入身份證號，求一堆都行。跪求！
求vb大佬幫忙解決一下！！謝謝
4樓：聽不清啊
private sub command1_click()randomize
dim a as long, b as long, n as integer
a = rnd * 1000 + 1
do while true
b = rev(a)
if b = a or n = 7 then exit doprint a; "+"; b; "="; a + ba = a + b
n = n + 1
loop
end sub
function rev(byval x)while x > 0
y = y * 10 + x mod 10x = x \ 10
wend
rev = y
end function
急啊！！！**等！求vb大佬們幫忙！vb在組合框的文字框中輸入單詞 10
vb題，求大佬幫忙~
5樓：洗澡沒泡沫
cint(12.3)*fix(-3.15)+int(-2.6)*(5 mod 3) 返回-42
求vb大佬為我解答！
6樓：聽不清啊
private sub command1_click()n = cint(inputbox("n="))randomize
for i = 1 to n
x = int(rnd * 90) + 10print x;
if i mod 10 = 0 then printif i = 1 then
max = x
min = x
else
if x > max then max = xif x < min then min = xend if
label1.caption = max - minnext i
end sub
請教vb大佬這個程式應該怎麼寫求VB大佬看看！！謝謝！！程式碼怎麼寫！！
private sub mand1 click c left inputbox 請輸入表示星期的第一個字母 1 c ucase c if c m then w monday elseif c w then w wednesday elseif c f then w friday elseif c s...
求大佬幫忙回答下這道數學題,求大佬幫忙解一下這道數學題
馬走日 是馬走的是 日 步,即走的對角線。如圖,圖中的黃色部分不就是 日 字,馬 走的是 日 的對角線,如圖中的紅線所示。這是中國象棋的走子規則,馬走日,象走田,即 馬走是從 日 字的上側點斜走到對面的點,如下圖,從a到b 哈哈,用作業幫搜一搜就可以了 求大佬幫忙解一下這道數學題?好啊,你把題目發上...
求大佬翻譯一下，求大佬幫忙翻譯一下
極端變化的思想聚集。簡單來說就是百家爭鳴 上的大概意思是 極端變化的思想聚集。簡單來說就是百家爭鳴 求大佬翻譯一下這是什麼意思？我最喜歡的人 是王 或其他 wang 的字 字開頭，姓王 或汪 致 或志等 zhi拼音的字 為姓名第二個字，成 或其他 cheng 拼音的字 為最後一個字。但是能和他在一起...