有趣的vb小程序

小球四壁碰撞程序、弹球游戏程序之类的，或者是人工智能【比如问“年龄”，就回答几岁】之类，这些简单、实用、有趣

PrivateWithEventsTimer1AsTimer
Dimr&,r1&,t&,a1!,a2!,xb!,yb!,s!,b#
PrivateSubForm_Load()
Me.Width=4500:Me.Height=4500
Me.Move(Screen.Width-Me.Width)\2,(Screen.Height-Me.Height)\2
Me.AutoRedraw=True
Me.Caption="CBM666的万花筒"
SetTimer1=Controls.Add("vb.timer","Timer1")
Timer1.Interval=10
EndSub
PrivateSubTimer1_Timer()
Randomize
r=340*Rnd
Ifr<>0Then
r1=500
s=r*Rnd
b=RGB(256*Rnd,256*Rnd,256*Rnd)
Fort=1To10000
a1=t*3.1415926/180
a2=(r1/r)*a1
xb=500+(-(r1-r)*Cos(a1)-s*Cos(a2-a1)+420)*4
yb=500+((r1-r)*Sin(a1)-s*Sin(a2-a1)+380)*4
Me.PSet(xb,yb),b
Nextt
EndIf
EndSub

一些手机上有的游戏，比如猜数字