少淑品牌有哪些:字典与数组 vba(第二例)

来源：百度文库编辑：中财网时间：2024/04/28 19:44:31

字典与数组 vba(第二例)

题目：100人，从1到100标上号码，围成圆圈，从1开始报数，报到10的那人退出，然后从那人的下一个开始循环报数，直到最后一人，求依次退出人员的序号

jackierobin的解法:

Sub test()
t = Timer
Dim i&, n&, S$
'创建1到100 的数组
Set D = CreateObject("Scripting.Dictionary")
For i = 1 To 100
D(i) = " " & i
Next
n = 1
JACKIE:
'循环 d的数组取消第10个子项
For Each CC In D.keys
   If n = 10 Then
   S = S & D(CC)
   D.Remove (CC)
   n = 0
   End If
   n = n + 1
Next
' d数组格式不为0 返回循环
If D.Count <> 1 Then GoTo JACKIE

' d数组格式的一条项目
M = D.ITEMS
MsgBox "总用时" & Format(Timer - t, "0.00000") & "秒"
MsgBox "依次提出数为" & S & "最后留下的是 " & M(0)
End Sub

指针与数组数组传递与接收指针与数组问题。结构与数组的区别指针与数组的区别? 请问VBA与VB有什么不同？马里奥与路易vba金手指 listCtrl与数组得对应如何实现？ C语言中的数组与指针问题数组与结构体的区别 c++与java数组有什么区别？ C语言指针与数组问题，不明白。指针与数组、字符串的问题。 asp数组与数据库查询问题请问：字典、词典与辞典的区别？ VBA哈利波特与密室的全部金手指(急) 求马里奥与路易vba的金手指 c#里string 与char数组怎么转换 CString与char字符数组怎么样才能相互转化使用? C语言的字符与字符串数组，我混乱了！在C语言中，指针与数组的区别指针数组的存储方式实现查找、替换与删除指针数组的存储方式实现查找、替换与删除指针数组的存储方式实现查找、替换与删除