请大家帮忙做一个从41个名字中随机抽取一个名字的东西，ppt啊或者其他什么都可以，先谢谢了！

Private Sub CommandButton1_Click()
    Dim name() As String
    Dim length As Integer
    '得到名字数组
    name = Split("名1,名2,名3,名4,名5,名6,名7,名8,名9,名10", ",")
    '得到0~数组长度的随机数
    length = Int(Rnd * UBound(name))
    '把当前随机数的数组内容显示到需要显示的地方
    CommandButton1.Caption = name(length)
End Sub

在ppt中从开发工具中在页面上面绘制一个按钮，采用默认名称CommandButton1

双击按钮。在打开的代码编辑器写入上面的代码，【name
字符串的“名1,名2,名3”改成你实际的41个名字“王若馨,林亭羽”...这样用小写逗号分隔符分开的字符串】

幻灯片放映时，点击按钮，会在按钮上随机显示这些名字中的一个

追问

诶诶诶诶刚刚是自己犯傻，看错了按钮QAQ居然可以了！！！！！！天呐层主你帮了我大忙！！！简直不能再感谢！！！果断提高悬赏！！！

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/jyj7rxjxe3f7ej3773.html