1、界面：两根直线、一个形状、一个标签、一个按钮、一个计时器2、代码：Dim X0 As Integer, Y0 As IntegerDim L As IntegerConst Pi = 3.1415926Private Sub Command1_Click()
Do
h = Int(Val(InputBox("请输入你需要的小时数：", "修改", Hour(Now))))
Loop Until h >= 0 And h < 24
Do
m = Int(Val(InputBox("请输入你需要的分钟数：", "修改", Minute(Now))))
