编程猫钓鱼

‘壹’ vb小猫钓鱼编程怎么写呀

《小猫钓鱼》一天早上，猫妈妈带着小猫到小河边钓鱼。一只蜻蜓飞来了。小猫看了真喜欢，放下鱼竿就去捉蜻蜓。蜻蜓飞走了，小猫空着手回到河边。一看，猫妈妈钓了一条大鱼。一只蝴蝶飞来了。小猫看了真喜欢，放下鱼竿，就去捉蝴蝶。蝴蝶飞走了。小猫空着手回到河边一看，猫妈妈又钓了一条大鱼。小猫说：“真气人，我怎么一条小鱼也钓不着？”猫妈妈说：“钓鱼要一心一意，不能三心二意。”于是，小猫看是一心一意地钓鱼。蜻蜓飞来了，蝴蝶也飞来了，小猫就像没看见一样，一步也没走开。不一会儿，小猫钓到了一条大鱼，高兴地喊了起来：“我钓到大鱼啦！”

‘贰’ vb小猫钓鱼编程

PrivateSubForm_Click()
DimsumAsInteger,xAsInteger
DimtAsInteger
t=1
Do
x=x+1
sum=sum+t
t=t+3
LoopWhilesum<20
Printx

EndSub