'問題1
Sub quiz1()
   Dim yokin As Double
   Dim i, nensu As Integer
   Dim rishi As Double
    
   yokin = InputBox("預金額を入力")
   nensu = InputBox("預け年数を入力")
   rishi = InputBox("利子を入力")
    
   For i = [ 1 ]
     yokin = [ 2 ]
     MsgBox i & "年後の預金額：" & Round(yokin, 0)
   Next i
    
End Sub
'問題2
Sub quiz2()
   Dim yokin As Double
   Dim i, nensu As Integer
   Dim rishi As Double
    
   yokin = InputBox("預金額を入力")
   nensu = InputBox("預け年数を入力")
   rishi = InputBox("利子を入力")
   
   i = 1
   Do While [ 1 ]
     yokin = [ 2 ]
     MsgBox i & "年後の預金額：" & Round(yokin, 0)
     i = [ 3 ]
   Loop
    
End Sub
'問題3
Sub quiz3()
   Dim i, n As Long
   n = InputBox("整数を入力して下さい")
    
   For i = [ 1 ]
     If [ 2 ] Then
       MsgBox i & "は偶数"
     End If
   Next i
End Sub
'問題4
Sub quiz4()
   Dim i, n As Integer
   n = InputBox("整数を入力して下さい")

   i = 1
   Do [ 1 ]
     If [ 2 ] Then
       MsgBox i & "は偶数"
     End If
     i = [ 3 ]
   Loop
End Sub
'問題5
Sub quiz5()
   Dim i, n As Long
   Dim sum1, sum2 As Long
   
   n = InputBox("整数を入力して下さい")

   sum1 = 0
   sum2 = 0

   For i = [ 1 ]
     If [ 2 ] Then
       sum1 = [ 3 ]
     Else
       sum2 = [ 3 ]
     End If
   Next i

   MsgBox "偶数の和=" & sum1 & "　奇数の和=" & sum2
End Sub
'問題6
Sub quiz6()
   Dim gankin, yokin As Double
   Dim nensu As Integer
   Dim rishi As Double
    
   gankin = InputBox("預金額を入力")
   rishi = InputBox("利子を入力")
   
   yokin = gankin
   
   nensu = 0
   Do While [ 1 ]
     yokin = [ 2 ]
     nensu = [ 3 ]
   Loop
    
   MsgBox nensu & "年後に元金" & gankin & "の2倍" & Round(yokin, 0) & "になる"
End Sub