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

发布网友发布时间：2023-03-22 23:10

共2个回答

热心网友时间：2023-10-12 12:12

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居然可以了！！！！！！天呐层主你帮了我大忙！！！简直不能再感谢！！！果断提高悬赏！！！

热心网友时间：2023-10-12 12:13

很简单，请看这个资料

http://jingyan.baidu.com/article/1e5468f90a3568484961b7dc.html追问感觉是可以的，可惜学校的电脑ppt的版本是2007年的，因为一些缘故一直没法升级，刚刚看了一下，如果是07年版本的就没有这些功能了呢