编一个倒计时程序，为什么执行时报错“编译错误语法错误” - VB6论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 开发语言 → 『 VB6论坛』 → 编一个倒计时程序，为什么执行时报错“编译错误语法错误”

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 540 人关注过本帖

标题：编一个倒计时程序，为什么执行时报错“编译错误语法错误”

取消只看楼主加入收藏

wangyc2188

等　级：新手上路
帖　子：8
专家分：0
注　册：2010-10-1
结帖率：0

楼主

问题点数：0 回复次数：0

编一个倒计时程序，为什么执行时报错“编译错误语法错误”

Dim m As Long

Option Explicit

Private Sub Command1_Click()
Timer1.Enabled = True
m = Val(Text1.Text) * 60
Label1.Caption = "现在开始倒计时"
Command1.Visible = False

End Sub

Private Sub Timer1_Timer()
m = m - 1
If m < 0 Then
   Timer1.Enabled = False
   msgbox "时间到!";0;"倒计时"
   Label1.Caption = "请输入计时的分钟数"
   Text1.Text = ""
   Command1.Visible = True
Else
   Text1.Text = m

End Sub

搜索更多相关主题的帖子: 时间　

2011-02-14 16:22

快速回复：编一个倒计时程序，为什么执行时报错“编译错误语法错误”