Question

我遇到循环问题。我正在编写一个程序，循环通过彩票图纸并做一些不同的分析＆＃39;在图纸上。我遇到的问题是因为循环是基于0的，但是在抽奖图中没有数字0我无法弄清楚如何以1而不是0开始循环。另外，当我剪切一个整数时，如果整数是单个数字，循环不会在单个数字之前看到零，并计算所有整数中的所有0-9。我试图抓住一个整数，然后勾选该数组的元素。这是循环。

    'Choices(59) is passed into the loop from a click event
     Private Sub GetFrequency(Choices() As Integer)
     Dim Size As Integer = UsersChosenHistory.Length() 'Size
     Dim Number As Integer = 1
     Dim Start As Integer = 0
     Dim Finish As Integer = 3'Grab 3 chars, a space + 2 digit Integer

  For i As Integer = 1 To Size - 1 Step 1
     Number.ToString("d2")'I've also tried Number.ToString("D2") (Capitol D)
     Number = UsersChosenHistory.Substring(Start, Finish) 'Grab an integer
     Choices(Number) += "1"    'Store it in the corresponding array element
     Start += 1
    Next
End Sub

当使用F11键运行循环时，单个数字不显示前导＆＃34; 0＆＃34;即使数据文件包含＆＃34; 0＆＃34;，如上所述，数组显示＆＃34; 0＆＃34;作为频率网格中的第一个数字。我真的很困惑这个循环，任何帮助将不胜感激。我刚刚学习VB.Net，这让我很难过。提前谢谢。

Answer 1

For i As Integer = 0 To Size - 1 Step 1
     Number = int.Parse(UsersChosenHistory.Substring(i*3,3).Replace(" ","")) 
     Choices(Number) += "1"    
     Next

对于“0”问题，请忽略它。选项（0）永远不会增加。

麻烦循环数据文件并将整数存储在数组中

1 个答案: