fork download

Imports System
 
Public Class Test
	Public Shared Sub Main()
		        Dim strdata(3) As String
        Dim intBuil As Integer              '棟
        Dim intFloor As Integer             '階
        Dim intRoom As Integer              '部屋番号
        Dim intResident As Integer          '入居者数
        Dim intCount(3, 2, 9) As Integer    '各部屋（４棟３階１０部屋）の入居者数
        Dim strOutPut As String
 
        Console.ReadLine()
 
        '入居者数を加算していく
        While True
 
            '１件分の入居者データを半角スペースで分割し、配列に取得
            strdata = Console.ReadLine().Split(" ")
 
 
            '入力データがある場合は入居者数加算処理
            If strdata(0) <> "" Then
                intBuil = CInt(strdata(0)) - 1          'インデックス（棟）
                intFloor = CInt(strdata(1)) - 1         'インデックス（階数）
                intRoom = CInt(strdata(2)) - 1          'インデックス（部屋）
                intResident = CInt(strdata(3))          '入居者数
 
                '入居者数を加算
                intCount(intBuil, intFloor, intRoom) += intResident
 
            Else
                Exit While
            End If
        End While
 
        '各部屋の入居者数を出力
        For intBuilIndex As Integer = 0 To 3
            For intFloorIndex As Integer = 0 To 2
                strOutPut = ""
                For intRoomIndex As Integer = 0 To 9
                    strOutPut += " " + intCount(intBuilIndex, intFloorIndex, intRoomIndex).ToString
                Next
                Console.WriteLine(strOutPut)
            Next
            If intBuilIndex <> 3 Then
                Console.WriteLine("####################")
            End If
        Next
	End Sub
End Class

Visual Basic.Net Compiler version 0.0.0.5914 (Mono 2.4.2 - r)
Copyright (C) 2004-2008 Rolf Bjarne Kvinge. All rights reserved.


/home/XggqxJ/<MyGenerator> (1,1) : Error VBNC99997: You've encountered something in the compiler which is not implemented. Please file a bug (see instructions here: http://mono-project.com/Bugs)
Assembly 'prog, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null' saved successfully to '/home/XggqxJ/prog.exe'.
1 errors, but compilation succeeded? ShowErrors
/home/XggqxJ/<MyGenerator> (1,1) : Error VBNC99999: Unexpected error: There has been an internal error in the compiler: Consistency check failed
  at vbnc.Compiler.VerifyConsistency (Boolean result, System.String Location) [0x000a3] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/General/Compiler.vb:132 
  at vbnc.Compiler.Compile () [0x0049f] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/General/Compiler.vb:630 
Compilation took 00:00:01.2207920

Standard output is empty