c语言许多名字随机抽取名字,怎么用ppt实现一个随机抽取名字的功能

这个的话，我觉得应该就需要一个数据库，然后把ppt的其中一个功能设置连接到里边。随便点击可以随机抽取。

以PowerPoint 2007为例(2010及以上类似，2003直接“视图→工具栏→控件工具箱”即可)

打开PowerPoint，将文件保存为*.pptm格式(包含宏代码的演示文稿)

若没有“开发工具”选项卡，请打开

通过“开发工具”选项卡，插入一个文本框控件，和两个命令按钮控件

文本框控件：命名为“TextBox1”(选中控件，更改“属性”当中的“(名称)”)

命令按钮控件：一个命名为“开始”，另一个命名为“清除”(选中控件，更改“属性”当中的“Caption”)

可根据自己的需要，更改“文本框”以及“命令按钮”字体、字号等属性

编写程序(示例)双击“开始”按钮，弹出程序编写框，在中间空白处输入以下内容：

Dim a As Integer

Dim s As String

Dim c As Integer

s = "张三丰张无忌王小明李鸣 "

c = Len(s)

a = Int(((c / 3) * Rnd) + 1)

TextBox1.Text = Mid(s, 3 * (a - 1) + 1, 3)

可将“s = "后的内容改为自己需要的名字，注意三个字的不加空格，两个字的后面要加一空格

双击“结束”按钮，在中间空白处输入：

TextBox1.Text = ""

这样便可以实现随机抽取姓名的功能

原答案格式不对，略加修改后希望能给大家提供帮助

开始按钮编译下面内容：

Private Sub CommandButton1_Click()

Dim a As Integer

Dim s As String

Dim c As Integer

s = "张三丰张无忌王小明李鸣 "

c = Len(s)

a = Int(((c / 3) * Rnd) + 1)

TextBox1.Text = Mid(s, 3 * (a - 1) + 1, 3)

End Sub

清楚按钮编译下面内容：

Private Sub CommandButton2_Click()

TextBox1.Text = ""

End Sub

文章来自♂星座网♂，未经同意♂不得♂转载！