1:
　2:
　3:
　4:
　5:
　6:
　7:
　8:
　9:
 10:
 11:
 12:
 13:
 14:
 15:
 16:
 17:
 18:
 19:
 20:
 21:
 22:
 23:
 24:
 25:
 26:
 27:
 28:
 29:
 30:
 31:
 32:
 33:
 34:
 35:

Option Explicit  '変数宣言をかならずさせるようにする

'変換を押したときの処理//////////////////////////
Private Sub butTrance_Click()
    '変数宣言
    Dim nisin(16) As Integer
    Dim jyu As Long
    Dim ans As String
    Dim i As Integer

    '入力    
    jyu = Val(txtDec.Text)
    
    '変換
    For i = 1 To 16
        nisin(i) = jyu Mod 2
        jyu = jyu \ 2
    Next i

    '出力
    For i = 16 To 1 Step -1
        ans = ans + CStr(nisin(i))
    Next i
    lblBin.Caption = ans
End Sub

'コントロールの初期設定/////////////////////////
Private Sub Form_Load()
    butTrance.Caption = "変換"
    butTrance.Default = True   '変換をEnterでもきるようにする
    txtDec.Text = ""
    txtDec.TabIndex = 0        '最初から入力できる状態にする
    lblBin.Caption = ""
    lblBin.ForeColor = RGB(0, 0, 0) 'lblBinのラベルの色
End Sub