2015-07-03 86 views
0

我遇到了循环问题。我正在编写一个循环通过彩票图纸的程序,并在图纸上做了一些不同的分析。我遇到的问题是因为循环是基于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键个位数不显示循环运行领先的“0”,即使该数据文件不包括“0”,并且如我在阵列上面提到的示出了“0 “作为频率网格中的第一位数字。我很困惑这个循环,任何帮助将不胜感激。我刚刚学习VB.Net,这让我很难过。提前致谢。

+0

数字/整数没有前导零。该文件中的数据是文本。当你读取文件时,可以将元素(0)留空,然后循环通过其余的元素。 'Number.ToString(“d2”)'不会做任何事情,因为没有什么“捕获”结果,“Choices(Number)+ =”1“'试图给数字添加一个数字。打开Option Strict选项 – Plutonix

+0

.Net数组从0开始。打开Option Strict On并修复这些错误。 – dbasnett

回答

0
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)永远不会增加。