Public Sub qqqqq()Dim i As IntegerDim j As IntegerDim s As IntegerDim C As Booleans = 0For i = 2 To 100C = FalseFor j = 2 To i - 1If i Mod j = 0 ThenC = TrueExit ForElseEnd IfNextIf C = False Thens = ...