编程实验题

1. vb编程实验题

PrivateSubCommand1_Click()
DimHAsInteger,LAsInteger,nAsInteger
n=0
Cls
Print"符合情况的条件有："
Fori=1To35
Forj=1To35
If4*i+j*2=100Then
Print"兔子的数量是"&i&"只，鸡的数量是"&j&"只"
n=n+1
EndIf
Nextj
Nexti
Print

Print"这样的情况一共有"&n&"种"
EndSub