算命测名字网站源码

1. 求个能随机抽取名字的VB源码 急求

Function t1() As StringDim x%, s$, ss$, sss, i x = FreeFile Open App.Path & "\name.txt" For Input As #x Do Until EOF(x) Line Input #x, s ss = ss + " " + s Loop Close x ss = Replace(ss, " ", "", , 1) i = InStr(ss, " ") Do Until i = 0 ss = Replace(ss, " ", " ") i = InStr(ss, " ") Loop sss = Split(ss, " ") i = Int(UBound(sss) * Rnd) + 1 t1 = sss(i)End Function1. name.txt放在app.path路径下2. 名字按行或任意个空格分割都能提取3. 函数返回一个随机名字，写到你的textbox中即可：Text1.text=t1()。

2. /huaiyun/bbs.php 免费取名字大全

男：张碧涛 取自秋瑾名句：一腔热血勤珍重，洒去犹能化碧涛。

希/望/能/为/您/采/用/，但名字是在没有具/体/考/虑/到/宝/宝/的/生//辰/八/字/情/况/取/得的，只是从/邓/博/士/为诸多家长提供取/名/解/疑/时/候/所/用/到/的/名/字里面选择出来的。我本人对此名/字/甚/是/喜/欢，名/字/清/雅/淡/幽，如果你想为宝宝取一个既/符/合/八/字/五/行/又/能/有/深/远/清/新/的/文/化/意/蕴，甚/至/想/有/经/典/文/化/出/处。我/愿/意/为/您/介绍/一/位/课/余/时/间/取/名/的/文/学/博/士，他为/人/热/情/豪/迈，乐//交/朋/友，聊得投机交上这么一个朋友。不妨先到/邓/博/士/空/间/看看吧。为了宝宝一辈子的名字，花/些/时/间/看/看/别/人/的/经/验/还/是/很值得的。他的腾/讯/号/码/：（溜///尔///弎//尔///肆///柒///巴/ //尔///玖） （注：请用普通话细读），飞/信/号：（（捌///二///肆///一////伍///三////捌///九////叁），请用普通话细读。

也/可/在百/度/上/搜/索“/学/后/取/名/”/查/看/他的/文/章/，/我/之前/拜/读/之/后/收益/匪/浅/！/

/希/望/能/对/你有/帮/助/愿/您/为/宝宝/取/到/好/名/字/。祝宝宝健康快乐