'---------------------------------------------------------------
'点数を入力して判定をする: If文
Sub exercise1()
   Dim tokuten As Integer
    
   tokuten = InputBox("点数を入力")
     
   If [ 1 ] Then
     MsgBox "得点：" & tokuten & " -> 評価: S"
   ElseIf [ 2 ] Then
     MsgBox "得点：" & tokuten & " -> 評価: A"
   ElseIf t[ 3 ] Then
     MsgBox "得点：" & tokuten & " -> 評価: B"
   ElseIf [ 4 ] Then
     MsgBox "得点：" & tokuten & " -> 評価: C"
   Else
     MsgBox "得点：" & tokuten & " -> 評価: D"
   End If
     End Sub
'---------------------------------------------------------------
'点数を入力して判定をする: Select case文
Sub exercise2()
End Sub
'---------------------------------------------------------------
'各評価の人数をカウント: For & If文
Sub exercise3()
   Dim i, ninzu As Integer
   Dim tokuten As Integer
   Dim sumS, sumA, sumB, sumC, sumD As Integer
    
   ninzu = InputBox("人数を入力")

   sumS = 0
   sumA = 0
   sumB = 0
   sumC = 0
   sumD = 0

   Randomize
   For i = 1 To ninzu
     tokuten = Int(100 * Rnd + 1)
     If [ 1 ] Then
       sumS = [ 2 ]
     ElseIf [ 3 ] Then
       sumA = [ 4 ]
     ElseIf [ 5 ] Then
       sumB = [ 6 ]
     ElseIf [ 7 ] Then
       sumC = [ 8 ]
     Else
       sumD = [ 9 ]
     End If
   Next i
   
   MsgBox "評価Sの人数 -> " & sumS & vbCrLf & _
          "評価Aの人数 -> " & sumA & vbCrLf & _
          "評価Bの人数 -> " & sumB & vbCrLf & _
          "評価Cの人数 -> " & sumC & vbCrLf & _
          "評価Dの人数 -> " & sumD
   
End Sub
'---------------------------------------------------------------
'最高点と最低点を出力: For & If文
Sub exercise4()
   Dim i, ninzu As Integer
   Dim tokuten As Integer
   Dim max, min As Integer
    
   ninzu = InputBox("人数を入力")

   Randomize
   max = Int(100 * Rnd + 1)
   min = max
  
   For i = [ 1 ]
     tokuten = Int(100 * Rnd + 1)
     If [ 2 ] Then
       max = [ 3 ]
     End If
     If [ 4 ] Then
       min = [ 5 ]
     End If
   Next i
   
   MsgBox "最高点 -> " & max & vbCrLf & "最低点 -> " & min
End Sub
'---------------------------------------------------------------
'Sの人数が20人を超えるまでのデータの得点の生成回数：DO while文
Sub exercise5()
   Dim ninzu As Integer
   Dim count As Integer
   Dim tokuten As Integer
    
   ninzu = 0
   count = 0
   Randomize
   Do While [ 1 ]
     tokuten = Int(100 * Rnd + 1)
     If [ 2 ] Then
       ninzu = [ 3 ]
     End If
     count = [ 4 ]
   Loop
   MsgBox "20人を超えるまでの生成回数 -> " & count
   
End Sub
'---------------------------------------------------------------
'SまたはCの人数が40人を超えるまでのデータの得点の生成回数：DO while文
Sub exercise6()
   Dim ninzu As Integer
   Dim count As Integer
   Dim tokuten As Integer
   Dim sumS, sumC As Integer
    
   ninzu = 0
   count = 0
   sumS = 0
   sumC = 0
   
   Randomize
   Do While [ 1 ]
     tokuten = Int(100 * Rnd + 1)
     If [ 2 ] Then
       ninzu = [ 3 ]
       If [ 4 ] Then
        sumS = [ 5 ]
       Else
        sumC = [ 6 ]
       End If
     End If
     count = [ 7 ]
   Loop
   MsgBox "40人を超えるまでの生成回数 -> " & count & vbCrLf & _
          "Sの人数 -> " & sumS & vbCrLf & _
          "Cの人数 -> " & sumC
End Sub