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

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

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

我的收件箱(0)

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

共有 541 人关注过本帖

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

只看楼主加入收藏

wangyc2188

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

楼主

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

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

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

qq1023569223

来　自：湖南科技大学
等　级：贵宾
威　望：26
帖　子：2753
专家分：13404
注　册：2010-12-22

第 2 楼

得分:0

Public 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 "时间到!",vbOkOnly,"倒计时"
   Label1.Caption = "请输入计时的分钟数"
   Text1.Text = ""
   Command1.Visible = True
Else
   Text1.Text = m
End If
End Sub

唯实惟新至诚致志

2011-02-14 17:18

Artless

等　级：贵宾
威　望：103
帖　子：4211
专家分：28888
注　册：2009-4-8

第 3 楼

得分:0

LZ结帖率：0%

无知

2011-02-14 20:00

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