VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3090
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3090
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Rem 按照规定的格式输出数据
Private Sub Form_Activate()
  Print 3.14, Format(3.14, "00.00")    '小数点前为一位时高位补0
  Print 3.1, Format(3.1, "00.00")     '小数点后为一位时低位补0，
  Print 2.718, Format(2.718, "00.00")   '小数点后多于两位时按四舍五入保留小数点后两位
  Print Date
  Print Format(Date, "yyyy")      '给出日期函数中的当前年
  Print Format(Date, "mm")        '给出日期函数中的当前月
  Print Format(Date, "dd")        '给出日期函数中的当前日
End Sub

