笔记 | ppt 随机点名vba代码（不重复）

oduang

December 15, 2019

1871views

No comments

1537 words

笔记

![随机点名][1]

> 源码

```
Option Explicit
Dim CurrentNo As Integer '当前序号
Dim NameCount As Integer '总人数
Dim Sorted As Boolean '是否已经排序
Dim vWords As Variant
Dim sData As String
Dim nWordsList() As Long

Private Sub CommandButton1_Click()

If Sorted = False Then

sData = "1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30"
    vWords = Split(sData, ",")

Randomize
    Dim nCount As Long
    Dim nGetCnt As Long

Dim nPos As Long
    Dim i As Long
    Dim bExist As Boolean
    Dim sWords As String

nCount = UBound(vWords)
    NameCount = nCount

ReDim nWordsList(nCount) As Long

For i = 0 To nCount
        nWordsList(i) = -1
    Next i

Do While nGetCnt < nCount + 1
 nPos = Rnd * nCount
 bExist = False

For i = 0 To nCount
            If nPos = nWordsList(i) Then
                bExist = True
            End If
        Next i

If Not bExist Then
            nWordsList(nGetCnt) = nPos
            nGetCnt = nGetCnt + 1
        End If
    Loop
    Sorted = True
End If

Label1.Caption = vWords(nWordsList(CurrentNo))
 If CurrentNo < NameCount Then
 CurrentNo = CurrentNo + 1
 Else
 MsgBox "点名结束！"
 End If
End Sub

Private Sub CommandButton2_Click()
    Sorted = False
    CurrentNo = 0
    NameCount = 0
    Label1.Caption = ""
End Sub

Private Sub Person_Name_Click()

End Sub
```

[1]: https://www.oduang.com/usr/uploads/2019/12/579606359.jpg

<hr class="content-copyright" style="margin-top:50px" /><blockquote class="content-copyright" style="font-style:normal">版权属于：oduang本文链接：<a class="content-copyright" href="https://www.oduang.com/wz/221.html">https://www.oduang.com/wz/221.html</a>转载时须注明出处及本声明，谢谢合作！</blockquote>

Last modification：October 24th, 2020 at 06:59 pm

如果觉得我的文章对你有用，请随意赞赏

笔记 | ppt 随机点名vba代码（不重复）