我想用VB做一个闹钟,可运行不了,哪位高手请帮下忙哦

Private Sub Command1_Click()
Dim a As String, b As String, c As String ,d As String
a = "日期(Date函数)：" & Date & vbCrLf
b = "时间(Time函数)：" & Time & vbCrLf
c = "日期+时间(Now函数)" & Now & vbCrLf
d = "系统运行的时间(Timer函数)：" & Timer & "秒"
MsgBox a + b + c +D
另外弄个声音可以用MultiSelectConstants
都是初学者,可是你的代码不简练,干吗弄那么复杂?

这段代码有问题：

Private Sub Timer1_Timer()
If run Then
a = a - 1
a = Text1.Text
If a = 0 Then
msgbox "时间到!", vbOKOnly + vbExclamation, "提醒"
End If

分析：
a = a - 1
a = Text1.Text
a没有初值，a=a-1有误。
a = Text1.Text
因为Text1.text并没有变化，所以a永远等于Text1.text。

可以这样写：
Private Sub Timer1_Timer()
If run Then
a = Text1.Text
a = a - 1
Text1.text = a
If a = 0 Then
msgbox "时间到!", vbOKOnly + vbExclamation, "提醒"
End If

如果还有问题，应该是其他部分的了，那些我不太了解。
你再自己调一下看看。

Beep
msgbox "时间到!", vbOKOnly + vbExclamation, "提醒"

你写的 Timer() 里的代码很奇怪

Private Sub Command1_Click()
Timer1.Enabled = True 1
run = True 2
End Sub 中