VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command3 
      Caption         =   "输入数据提示"
      Height          =   390
      Left            =   165
      TabIndex        =   2
      Top             =   1665
      Width           =   1590
   End
   Begin VB.CommandButton Command2 
      Caption         =   "程序错误警告"
      Height          =   405
      Left            =   210
      TabIndex        =   1
      Top             =   2220
      Width           =   1545
   End
   Begin VB.CommandButton Command1 
      Caption         =   "保存文件提示"
      Height          =   375
      Left            =   120
      TabIndex        =   0
      Top             =   1065
      Width           =   1665
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
    Dim flag As Integer
    flag = MsgBox("文件已改变，是否存储？", vbYesNo + vbQuestion, "提示")
    If flag = vbYes Then
        MsgBox "文件已保存！"
    Else
        MsgBox "文件未保存！"
    End If
End Sub

Private Sub Command3_Click()
    Dim falg As Integer
    flag = MsgBox("输入数据错误，是否重新输入？", vbYesNoCancel + vbInformation, "提示")
    Select Case flag
    Case vbYes
        MsgBox "重新输入"
    Case vbNo
        MsgBox "不重新输入"
    Case vbCancel
        MsgBox "取消输入"
    End Select
End Sub

Private Sub Command2_Click()
    MsgBox "程序发生不可预知的错误！！" + Chr(13) + Chr(10) + "程序退出！", vbOKOnly + vbCritical, "警告"
End Sub
