編程貓釣魚

『壹』 vb小貓釣魚編程怎麼寫呀

《小貓釣魚》一天早上，貓媽媽帶著小貓到小河邊釣魚。一隻蜻蜓飛來了。小貓看了真喜歡，放下魚竿就去捉蜻蜓。蜻蜓飛走了，小貓空著手回到河邊。一看，貓媽媽釣了一條大魚。一隻蝴蝶飛來了。小貓看了真喜歡，放下魚竿，就去捉蝴蝶。蝴蝶飛走了。小貓空著手回到河邊一看，貓媽媽又釣了一條大魚。小貓說：「真氣人，我怎麼一條小魚也釣不著？」貓媽媽說：「釣魚要一心一意，不能三心二意。」於是，小貓看是一心一意地釣魚。蜻蜓飛來了，蝴蝶也飛來了，小貓就像沒看見一樣，一步也沒走開。不一會兒，小貓釣到了一條大魚，高興地喊了起來：「我釣到大魚啦！」

『貳』 vb小貓釣魚編程

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

EndSub