帮忙编个vb的程序吧，我们的期末作业俄

设计一个时钟、闹钟和计时器：
1、要求利用SSTab多选项卡控件，制作三个选项卡，分别为时钟、闹钟和计时器。窗体标题要设置为考生本人的学号和姓名，整个界面布置合理对称。
2、时钟部分要求利用时钟控件每隔0.1秒产生一个Timer1事件，显示系统时间，并根据选项显示12小时制和24小时制，初始设置为24小时制。
3、闹钟部分可以设定闹钟时间和提示，利用时钟控件Timer1事件计数，并检查是否到点。如果闹钟时间到点时，用信息框显示闹钟提示。信息框中的初始值要有考生姓名，如下图所示。
4、计时器部分可以设定计时的时间和计时。开始计时后，利用时钟控件每隔1秒产生一个Timer2事件，显示剩余的秒数，并利用进度条显示计时进度。
5、添加一个状态栏，一共有四个窗格，其中第二窗格动态显示当前选项卡名称，第四窗格要求填写考生的手机号。
追200吧,我学医的，不喜vb...

新建一个工程,添加一个SSTab,两个Timer,一个状态栏,在SSTab第一页上添加一个Label,两个Option,第二页上添加一个Label,三个Text用于设定闹钟时间,代表时分秒,在第三页上添加一个Label,一个Command,三个Text用于设定计时的时间,和一个进度条.名称都不要改,然后复制下面代码到程序里就可以了.

Option Explicit
Private Const SPhone = 13622662266#
Private Sub Command1_Click()
ProgressBar1.Max = Text4.Text * 3600 + Text5.Text * 60 + Text6.Text
ProgressBar1.Value = ProgressBar1.Max
ProgressBar1.Min = 0
Timer2.Enabled = True
End Sub

Private Sub Form_Load()
FormInit
End Sub

Private Sub FormInit()
SSTab1.Tab = 0
SSTab1.Caption = "时钟"
SSTab1.Tab = 1
SSTab1.Caption = "闹钟"
SSTab1.Tab = 2
SSTab1.Caption = "计时器"
SSTab1.Tab = 0
Label1.Caption = Time
Label2.Caption = "XXXXXX"
Label3.Caption = ""
Option1.Caption = "12小时制"
Option2.Caption = "24小时制"