Visual Basic.NET 2002で変換
　コンソールアプリケーションで作っているです
 
　1:
　2:
　3:
　4:
　5:
　6:
　7:
　8:
　9:
 10:
 11:
 12:
 13:
 14:
 15:
 16:
 17:
 18:
 19:
 20:
 21:
 22:
 23:
 24:

Imports System

Module Module1
    Sub Main()
        '変数宣言
        Dim nisin(16) As Integer
        Dim i As Integer

        '入力
        Console.Write("10進数を入力：")
        Dim jyu As Integer = Convert.ToInt32(Console.ReadLine())

        '変換
        For i = 0 To 15
            nisin(i) = jyu Mod 2
            jyu = jyu \ 2
        Next i

        '出力
        For i = 16 - 1 To 0 Step -1
            Console.Write(nisin(i))
        Next i
    End Sub
End Module

　Visual Basic.NET 2003で変換
　コンソールアプリケーションで作っているです
 
　1:
　2:
　3:
　4:
　5:
　6:
　7:
　8:
　9:
 10:
 11:
 12:
 13:
 14:
 15:
 16:
 17:
 18:
 19:
 20:
 21:
 22:
 23:

Imports System

Module Module1
    Sub Main()
        '変数宣言
        Dim nisin(16) As Int32

        '入力
        Console.Write("10進数を入力：")
        Dim jyu As Integer = Int32.Parse(Console.ReadLine())

        '変換
        For i As Int32 = 0 To 15
            nisin(i) = jyu Mod 2
            jyu = jyu \ 2
        Next i

        '出力
        For i As Int32 = 16 - 1 To 0 Step -1
            Console.Write(nisin(i))
        Next i
    End Sub
End Module
　2002のときとは違う命令を使ってるです〜（2002でも使える命令です）
　2003ではFor文で変数を宣言できるです。

TOPに戻る　　 いろいろな言語へ戻る