精选优质文档-倾情为你奉上新手用VB做的钟表小程序Dim pi!, m!, f!, s!通用变量时针绘制Function sz(s1 As Single)Picture1.DrawWidth = 3R = 1000Picture1.Line (0, 0)-(R * Cos(s), R * Sin(s), RGB(0, 0, 255)End Function分针绘制Function fz(f1 As Single)Picture1.DrawWidth = 3R = 1200Picture1.Line (0, 0)-(R * Cos(f), R * Sin(f), RGB(0, 0, 0)End Function秒针绘制Function mz(m1 As Single)Picture1.DrawWidth = 3R = 1400Picture1.Line (0, 0)-(R * Cos(m), R * Sin(m), RGB(255, 0, 0)End Function
