Bing的ChatGPT写的生成不重复随机字符串的函数

leolee82

1. 
   
2. 下面是整个过程，已省略重复代码
   
3. 1. 请用VBA写一个生成不重复随机字符串的函数，给的结果是：
   
4. Function GenerateRandomString(length As Integer) As String
   
5.     Dim str As String
   
6.     Dim i As Integer
   
7.     Dim j As Integer
   
8.     Dim charSet As String
   
9.     charSet = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"
   
10.     Randomize
    
11.     For i = 1 To length
    
12.         Do While True
    
13.             j = Int((Len(charSet) * Rnd) + 1)
    
14.             If InStr(str, Mid(charSet, j, 1)) = 0 Then
    
15.                 str = str & Mid(charSet, j, 1)
    
16.                 Exit Do
    
17.             End If
    
18.         Loop
    
19.     Next i
    
20.     GenerateRandomString = str
    
21. End Function
    
22. 
    
23. 2. 请用VBA写一个生成多个不重复随机字符串的函数，给的结果是：
    
24. Function GenerateRandomStrings(length As Integer, count As Integer) As String()
    
25.     Dim str() As String
    
26.     Dim i As Integer
    
27.     ReDim str(1 To count)
    
28.     For i = 1 To count
    
29.         str(i) = GenerateRandomString(length)
    
30.         If i > 1 Then
    
31.             Do While Not IsUnique(str(i), str, i - 1)
    
32.                 str(i) = GenerateRandomString(length)
    
33.             Loop
    
34.         End If
    
35.     Next i
    
36.     GenerateRandomStrings = str
    
37. End Function
    
38. Function IsUnique(str As String, arr() As String, count As Integer) As Boolean
    
39.     Dim i As Integer
    
40.     For i = 1 To count
    
41.         If arr(i) = str Then
    
42.             IsUnique = False
    
43.             Exit Function
    
44.         End If
    
45.     Next i
    
46.     IsUnique = True
    
47. End Function
    
48. Function GenerateRandomString(length As Integer) As String
    
49. ...
    
50. End Function
    
51. 
    
52. 3.请将生成的字符串长度改为随机长度，给的结果是：
    
53. Function GenerateRandomStrings(count As Integer) As String()
    
54.     Dim str() As String
    
55.     Dim i As Integer
    
56.     ReDim str(1 To count)
    
57.     For i = 1 To count
    
58.         str(i) = GenerateRandomString(Int((20 - 5 + 1) * Rnd + 5))
    
59.         If i > 1 Then
    
60.             Do While Not IsUnique(str(i), str, i - 1)
    
61.                 str(i) = GenerateRandomString(Int((20 - 5 + 1) * Rnd + 5))
    
62.             Loop
    
63.         End If
    
64.     Next i
    
65.     GenerateRandomStrings = str
    
66. End Function
    
67. Function IsUnique(str As String, arr() As String, count As Integer) As Boolean
    
68. ...
    
69. End Function
    
70. Function GenerateRandomString(length As Integer) As String
    
71.     Dim str As String
    
72.     Dim i As Integer
    
73.     Dim j As Integer
    
74.     Dim charSet As String
    
75.     charSet = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"
    
76.     Randomize
    
77.     For i = 1 To length
    
78.         Do While True
    
79.             j = Int((Len(charSet) * Rnd) + 1)
    
80.             If InStr(str, Mid(charSet, j, 1)) = 0 Then
    
81.                 str = str & Mid(charSet, j, 1)
    
82.                 Exit Do
    
83.             End If
    
84.         Loop
    
85.     Next i
    
86.     GenerateRandomString = str
    
87. End Function
    
88. 
    
89. 
    
90. 4.生成的字符串中还需要包含除数字和字母外的特殊字符，给的结果是：
    
91. Function GenerateRandomStrings(count As Integer) As String()
    
92. ...
    
93. End Function
    
94. Function IsUnique(str As String, arr() As String, count As Integer) As Boolean
    
95. ...
    
96. End Function
    
97. Function GenerateRandomString(length As Integer) As String
    
98. ...
    
99.     charSet = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789!@#$%^&*()"
    
100. ...
     
101. End Function
     
102. 
     
103. 5. 请将返回的结果进行排序，给出的结果是：
     

复制代码

安若浅笑

你好，请问如何下载chatgpt

leolee82

安若浅笑 发表于 2023-3-29 21:23
你好，请问如何下载chatgpt

我在国外，用的手机APP-Bing.
电脑可以new bing国际版，区域不能选中国，以前要申请一下，现在不知道是不是可以直接用。
国内应该也有很多办法使用