編程實驗題

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