Question

两个VB题,在线等,求高手

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

满分：25 分2.
在窗体Form1上画一个文本框，名称为Text1，内空。再画一个命令按钮，名称为Cmd1，标题为“输入”。要求：
（1）编写适当的程序代码，当单击“输入”时，弹出一个对话框提示输入数值，用户输入一个数值，单击“确定”按钮后，该数值在文本框中显示。程序运行界面如图10所示。
注意：
存盘时保存在以学号或姓名命名的文件夹下，工程文件名为vbxk1-010.vbp，窗体文件名为vbxk1-10.frm，文件夹名为vbxk1-10。
题目下面都有标注注意：存盘时保存在以学号或姓名命名的文件夹下，工程文件名为vbxk1-05.vbp，窗体文件名为vbxk1-05.frm，文件夹名为vbxk1-05。大哥,可以将写好的文件按照题1和题2的要求打包发我油箱吗769196368@qq.com





Answer 1

'第一个程序
'窗体还要增加一个timer1控件，interval设置为200
Dim t
Dim tt
Private Sub Command1_Click()
    t = Timer
    Timer1.Enabled = True
    tt = Val(Text1.Text) * 60
End Sub

Private Sub Form_Load()
    Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
    Text1.Text = Int(tt - (Timer - t))
    If Val(Text1.Text) <= 0 Then
        Timer1.Enabled = False
        MsgBox "时间到", vbOKOnly, "倒计时"
    End If
End Sub

'第二个程序
Private Sub Cmd1_Click()
    n = InputBox("请输入数据", "数据输入")
    Text1.Text = n
End Sub

追问

能不能保存工程文件名为vbxk1-05.vbp，窗体文件名为vbxk1-05.frm，文件夹名为vbxk1-05。打包上传，谢谢大哥

追答

这个事情你自己做