如何在visual basic中根据用户输入声明变量

Question

我想创建一个程序，用户将在文本框上输入一个数字，该程序将根据他/她按下提交按钮时的数字创建一些变量。(Windows窗体)

例如，用户将在文本框中输入3，当他/她按下提交按钮时，程序将在程序内部创建一个标记为length1,length2,length3的int变量，以便稍后用于其他目的。

Answer 1

尝试创建如下列表:

Private Numbers As New List(Of Number)
Private Class Number
Public Name As String
Public Value As Integer
End Class

接下来创建一个过程，将整数和名称添加到列表中:

Private Sub AddNumbers()
If IsNumeric(textbox1.Text) = false Then
Exit Sub
End If
For i = 1 to Convert.ToInt32(textbox1.Text)
Numbers.Add(New Number With {.Name = "length" & i, .Value = 0})
Next
End Sub

我假设这个文本框叫做textbox1。然后你可以像这样从提交按钮调用AddNumbers子按钮:

AddNumbers()

您可以像这样从列表中检索一个号码:

Numbers(0).Value

Answer 2

使用List创建若干Integer变量。

Public length As List(Of Integer)
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
For i = 1 To Convert.ToInt32(TextBox1.Text)
length.Add(0)
Next
End Sub

则可以通过length(0)得到变量。

不要忘记限制文本框只能输入数字和退格。

Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
If Char.IsDigit(e.KeyChar) Or e.KeyChar = Chr(8) Then
e.Handled = False
Else
e.Handled = True
End If
End Sub