Question

Visual Basic6.0 跪求高手解答

设计一个简单的倒计时程序，要求：
（1）在文本框中输入倒计时的分钟数后，单击开始按纽就开始倒计时，倒计时结束时，弹出“时间到”的信息框。程序运行界面如图5所示：
（2）将应用程序打包，并安装运行。
注意：存盘时保存在以学号或姓名命名的文件夹下，工程文件名为vbxk1-05.vbp，窗体文件名为vbxk1-05.frm，文件夹名为vbxk1-05。

Answer 1

只要在窗体中加入一个标签、一个命令按钮和一个计时器控件，粘贴以下代码，就可以运行了。

Dim n As Integer

Private Sub Command1_Click()

  n = 60 * Text1.Text

  Timer1.Enabled = True

  Timer1.Interval = 1000

  Text1.Text = n

End Sub

Private Sub Form_Load()

   Label1.Caption = "请倒计时的分钟数"

   Text1.Text = ""

   Text1.Alignment = 2

   Command1.Caption = "开始"

End Sub

Private Sub Timer1_Timer()

  n = n - 1

  Text1.Text = n

  If n = 0 Then

    MsgBox "时间到！", , "倒计时"

  End If

End Sub

Answer 2

我可以帮你写写一个这样的程序、