求个能随机抽取名字的VB源码 急求
答案:2 悬赏:10
解决时间 2021-02-16 09:37
- 提问者网友：寂寞梧桐
- 2021-02-15 09:30
求个能随机抽取名字的VB源码 急求
最佳答案
- 二级知识专家网友：想偏头吻你
- 2021-02-15 09:41
Function t1() As String
Dim 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 Function
1. name.txt放在app.path路径下
2. 名字按行或任意个空格分割都能提取
3. 函数返回一个随机名字，写到你的textbox中即可：Text1.text=t1()
追问：还是不太明白。。能上传吗？
追答：试试
Dim 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 Function
1. name.txt放在app.path路径下
2. 名字按行或任意个空格分割都能提取
3. 函数返回一个随机名字，写到你的textbox中即可：Text1.text=t1()
追问：还是不太明白。。能上传吗？
追答：试试
全部回答
- 1楼网友：夜风逐马
- 2021-02-15 11:06
这源码有点长啊
你的name.txt格式是什么样的追答
追问：一个名字一行一个名字一行
追答：等我给你编
追问：嗯
你的name.txt格式是什么样的追答
追问：一个名字一行一个名字一行
追答：等我给你编
追问：嗯
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯