求括号里的数字里面应该填的代码！！！

原问题：求括号里的数字里面应该填的代码！！！
分类：编程开发 > 最后更新时间：【2017-07-28 10:08:33】
问题补充：

最佳答案

'依题意完善后的程序。括号中的内容对照获取。

Dim t%

Private Sub Form_Load()

Timer1.Interval = 1000

Command2.Enabled = False

End Sub

Private Sub Command1_Click()

t = Val(InputBox("请输入倒计时(分)"))

Label1.Caption = t

t = t * 60

If t > 0 Then

HScroll1.Max = t - 1

Command2.Enabled = True

End If

End Sub

Private Sub Command2_Click()

Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()

Dim f%, m%

t = t - 1

f = t \ 60

m = t Mod 60

Label1.Caption = f & ":" & m

HScroll1.Value = t

If t = 0 Then

MsgBox "时间到,倒计时结束!"

Timer1.Enabled = False

Command2.Enabled = False

End If

End Sub


追问：
HScroll1.Value = t 无效属性值......
  • 追答：
    "原因是 Timer1.Enabled 默认为True，加一句将其设为False就可以了。Private Sub Form_Load() Timer1.Enabled = False "添加此行 Timer1.Interval = 1000 Command2.Enabled = FalseEnd Sub
    最佳答案由网友  .旧巷.  提供
    • 公告： 为响应国家净网行动，部分内容已经删除，感谢网友理解。
    1

    分享到：

    其他回答

    暂无其它回答!

      推荐