如何用VB从几个文字中随机不重复抽取三个文字组成一个名字

比如“澳三地附近哦啊决定”从这几个字中随机抽取三个组合成一个名字

追问：我是语言小白，那个怎么改....重新发一遍行吗，大大，实在是麻烦你了非常感谢你的回答，实在是麻烦了，那个我是语言小白，不过实在是非常感谢你啊

答案：Dim str As String, tmp As String, strx As String
    Dim n As Integer, i As Integer
    Randomize
    
    
    str = "澳三地附近哦啊决定"
    
    For i = 0 To 2
        n = Int(Rnd() * Len(str)) + 1
        tmp = Mid(str, n, 1)
        str = Replace(str, tmp, "")
        strx = strx & tmp
    Next
    
    MsgBox strx

其他：dim tempText as string 
dim str as string
dim i as long 
dim k as long 
tempText="澳三地附近哦啊决定"
for i=0 to 2
        

        k=rnd() * len(temptext) +1

        str=str & mid(temptext,k,1)

next i

上一个：vb怎么用打印机打印已有文档（如D盘中的某个word文档）
下一个：卖计算机国二VB答案的人可靠吗？也就是那答案是真的吗？求解！非诚勿扰！谢谢！