我正在尝试创建一个简单的keygen应用程序(希望以后能够进化)并且遇到了命名我的变量的问题:
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim keylength As Double = TrackBar1.Value
Dim baseloop As Double = 1
Dim charpos As Double = 1
Do While baseloop < keylength
Randomize()
Dim name As String = "num" & charpos
Dim (name) As Integer = CInt(Int((62 * Rnd()) + 1))
'I would like to name this variable the current value of the variable "name".
baseloop = baseloop + 1
charpos = charpos + 1
Loop
End Sub
最终结果应该是随机双打(跟TrackBar1.Value一样多),包含1-62的随机双打并命名为num1,num2,num3等....然后我可以用a替换所有1,用2替换b等等......
感谢您的帮助
答案 0 :(得分:0)
如前所述,你声称想要做的事是不可能的。您不能在运行时声明任意数量的变量,因为变量是在设计时声明的。如果要存储任意数量的值,则声明一个变量并为该变量分配某种数组或集合。可以在运行时以任何大小创建数组,并且集合可以在运行时增长到任意大小。基本上,你要做的就是完全错误。
如果你想要任意数量的Dim values(userDefinedValue - 1) As Double
For i = 0 To values.GetUpperBound(0)
'...
Next
值,那么创建一个基于用户定义值的大小的数组,然后循环填充它,例如。
GetUpperBound(0)
然后,您可以按索引访问这些值。第一个值位于索引0,第二个值位于索引1,...,最后一个位于索引{{1}}。