Question

我在这里有这段代码，但我想知道不是使用TextFile作为输入，如何使用具有相同数字的基于数组的输入来实现这一点

Dim numbers(5), x As Integer
Dim sr As IO.StreamReader = IO.File.OpenText("DATA.TXT")
Do While sr.Peek <> -1
x = CInt(sr.ReadLine)
numbers(x) += 2
Loop
sr.Close()
txtBox.Text = CStr(numbers(3))

假设文件DATA.TXT的六行包含以下条目：5、3、1、3、1、3、1

CStr（numbers（3））应该得到6。

Answer 1

如果将文件中的数字放入数组中，则可以使用For循环遍历所有值：

Dim numbers(5) As Integer
Dim followingEntries = {5, 3, 1, 3, 1, 3, 1}

For i = 0 To followingEntries.Length - 1
    Dim x = followingEntries(i)
    numbers(x) += 2
Next

txtBox.Text = CStr(numbers(3))

请注意，第一项的数组索引从0开始。

Answer 2

我的vb.net有点旧，但这应该在您要搜索的附近。

dim source as string = "5, 3, 1, 3, 1, 3, 1"
dim x as integer
Dim numbers(5)

for each val in source.Split(",")
    x = CInt(val.Trim())
    numbers(x) += 2
next

我需要帮助，将其转换为基于数组的输入，而不是使用基于文件的输入

2 个答案: