영업 수치가 양식에 표시되지 않음

Question

5 개 항목, 3 개 매장의 총 판매를 계산 중입니다. 여기 내 코드와 함께 얻는 것의 s/s가 있습니다. 무엇이 잘못되었거나 잘못 되었습니까? 여기에 뭔가를 고수하는 것을 잊었다처럼

Public Class Form1 

    Private Sub btnCalc_Click(sender As Object, e As EventArgs) Handles btnCalc.Click 
     Dim ttlsales As Double 
     'set up array data 

     Dim sales(,) As Integer = {{25, 64, 23, 45, 14}, 
            {12, 82, 19, 34, 63}, 
            {54, 22, 17, 43, 35}} 
     Dim price() As Double = {12.0, 17.95, 95.0, 86.5, 78.0} 

     'mark totals 
     Dim totals(2) As Double 
     For store As Integer = 0 To 2 
      For item As Integer = 0 To 4 
      Next 
     Next 

     'display output 
     lstOut.Items.Add("Sales Per Store") 
     For store As Integer = 0 To 2 
      lstOut.Items.Add(store + 1 & ":" & 
          FormatCurrency(totals(store))) 
      ttlsales += totals(store) 
     Next 

     lstOut.Items.Add("Total Sales: " & 
         FormatCurrency(ttlsales)) 


    End Sub 
End Class 

Answer 1

하지 않습니다, 당신은 그들이 모두 동일하기 때문에이 두 답변을 받아 정중 될 수 루프

에 대한 귀하의 두 배에

Dim totals(2) As Double 
For store As Integer = 0 To 2 
      For item As Integer = 0 To 4 
      Next 
     Next 

Answer 2

(추신 그것은 '디버그'에서 오류 코드를 반환하지 않는 것)이 보인다. 먼저 눈에 아무것도

For store As Integer = 0 To 2 
     For item As Integer = 0 To 4 
     Next 
Next