2015-07-03 49 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)永遠不會增加。

相關問題