'問題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 To nensu
     yokin = yokin * (1 + rishi)
     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 i <= nensu
     yokin = yokin * (1 + rishi)
     MsgBox i & "年後の預金額：" & Round(yokin, 0)
     i = i + 1
   Loop
    
End Sub
'問題3
Sub quiz3()
   Dim i, n As Long
   n = InputBox("整数を入力して下さい")
    
   For i = 1 To n
     If i Mod 2 = 0 Then
       MsgBox i & "は偶数"
     End If
   Next i
End Sub
'問題4
Sub quiz4()
   Dim i, n As Integer
   n = InputBox("整数を入力して下さい")

   i = 1
   Do While i <= n
     If i Mod 2 = 0 Then
       MsgBox i & "は偶数"
     End If
     i = i + 1
   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 To n
     If i Mod 2 = 0 Then
       sum1 = sum1 + i
     Else
       sum2 = sum2 + i
     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 yokin <= gankin * 2
     yokin = yokin * (1 + rishi)
     nensu = nensu + 1
   Loop
    
   MsgBox nensu & "年後に元金" & gankin & "の2倍" & Round(yokin, 0) & "になる"
End Sub