form10.frm

VB和ACCESS作的管理酒店住书软件

VERSION 5.00
Begin VB.Form Form10 
   BackColor       =   &H00FFC0C0&
   Caption         =   "Form10"
   ClientHeight    =   5310
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   6600
   BeginProperty Font 
      Name            =   "宋体"
      Size            =   8.25
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form10"
   Picture         =   "Form10.frx":0000
   ScaleHeight     =   5310
   ScaleWidth      =   6600
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton Command1 
      Caption         =   "关闭"
      Height          =   495
      Left            =   5760
      TabIndex        =   0
      Top             =   4680
      Width           =   615
   End
End
Attribute VB_Name = "Form10"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim snow(1000, 2), amounty As Integer

Private Sub Command1_Click()
Form10.Hide
End Sub

Private Sub Form_Load()
Form10.Show
DoEvents
Randomize
amounty = 325
For j = 1 To amounty
snow(j, 0) = Int(Rnd * Form10.Width)
snow(j, 1) = Int(Rnd * Form10.Height)
snow(j, 2) = 10 + (Rnd * 20)
Next j
Do While Not (DoEvents = 0)
For ls = 1 To 10
For i = 1 To amounty
snow(i, 1) = snow(i, 1) + snow(i, 2)
If snow(i, 1) > Form10.Height Then
snow(i, 1) = 0: snow(i, 2) = 2 + (Rnd * 30)
snow(i, 0) = Int(Rnd * Form10.Width)
End If
Circle (snow(i, 0), snow(i, 1)), 15 * Rnd, RGB(255, 255, 255)
Next i
Cls
Next ls
Loop
End
End Sub