石英钟程序(VB6.0代码编写) 石英钟显示指针，在窗体顶端显示日期和时间。 QQ223857666勾月

石英钟程序,石英钟显示指针，在窗体顶端显示日期和时间。三角函数的应用(VB6.0代码编写) Dim s As Single Dim m As Single Dim h As Single Form1.Caption = Format(Date, "yyyy-mm-dd") & " " & Time s = Second(Time) m = Minute(Time) h = Hour(Time) + m / 60 LineS.X2 = LineS.X1 + Len_S * Sin(PI * s