Private Sub Form_Click()

n=1

s=0

Do while {#blank#}1{#/blank#}

s={#blank#}2{#/blank#}

n=n+1

Loop

Print s

End sub

Sub mult( )

    Dim Sum As Integer

    Sum=0

    Dim i as integer

    For {#blank#}1{#/blank#} to 50

        If i MOD 2={#blank#}2{#/blank#} Then

            {#blank#}3{#/blank#}

        End if

    Next i

    Print sum

End Sub

s=0

for i in range(1，21) ：

  s=

print (s)

百千白鸡问题是经典的数学问题，原题为“鸡翁一，值钱五；鸡母一，值钱三；鸡雏三，值钱一；百钱买百鸡，则翁、母、雏各几何？”翻译过来，意思是公鸡一个五块钱，母鸡一个三块钱，小鸡三个一块钱，现在要用一百块钱买一百只鸡，问公鸡、母鸡、小鸡各多少只？

import random

while True:

  x=random.randrange(0,20)

  y=random.randrange(0,33)

  z=random.randrange(0,100)

  if 5*x+3*y+z/3==100 and x+y+z==100:

    print('公鸡',x)

  print('母鸡',y)

print('小鸡',z)

s=0

for i in range (1,5):

  s=s+i

print("i=",i,"s=",s)