vb代码樱花

Ⅰ vb小游戏源代码

Rem 窗体创建三个单选框按钮，Option1、Option2、Option3。

小游戏是一个较模糊的概念，它是相对于体积庞大的单机游戏及网络游戏而言的，泛指所有体积较小、玩法简单的游戏，通常这类游戏以休闲益智类为主，有单机版有网页版，在网页上嵌入的多为FLASH格式。

当下小游戏主要是指在线玩的flash版本游戏，统称小游戏，其实小游戏还包含单机游戏，小型游戏机等。一般游戏大小小于10m的游戏都统称为小游戏，一些街机类小游戏。因其游戏安装简便，耐玩性强，无依赖性而广受白领及小朋友的喜爱。

小游戏”这个词的型含义其实很简单，它不是一些大的游戏，不必花费更多的时间和精力。

小游戏是原始的游戏娱乐方式，小游戏本身是为了叫人们在工作，学习后的一种娱乐、休闲的一种方式，不是为了叫玩家为之花费金钱、花费精力，更不是叫玩家为他痴迷。

小游戏也可以理解为“Flash游戏”，是以SWF为后缀的游戏的总称.这些游戏是通过Flash软件和 Flash 编程语言 Flash ActionScript 制作而成。

由于Flash是矢量软件，所以小游戏放大后几乎不影响画面效果。Flash小游戏是一种新兴起的游戏形式，以游戏简单，操作方便，绿色，无需安装，文件体积小等优点渐渐被广大网友喜爱。

Ⅱ vb怎样做礼花绽放的效果，求程序代码。

用记事本生成以下四个文件，再到VB中新建一个工程，加入这4个文件，就可以看到礼花绽放效果。
CExplosion.cls文件内容：
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
END
Attribute VB_Name = "CExplosion"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
' CExplosion - Basically a collection of CFrags.

Option Explicit

Private m_Col As Collection
Private m_hDC As Long

' X and Y are the start position.
' How many frags do you want?
Public Sub Setup(x As Single, y As Single, FragCount As Integer, Gravity As Single, hDC As Long)
Dim i As Integer
Dim frag As CFrag
Dim Direction As Single, vel As Single

Set m_Col = New Collection

For i = 1 To FragCount
Set frag = New CFrag

Direction = Rnd * (2 * pi)
vel = (Rnd * 20) + 10

frag.Init x, y, Direction, vel, Gravity

m_Col.Add frag
Next i

m_hDC = hDC
End Sub

' Move and draw the frags.
Public Function Move() As Boolean
Dim frag As CFrag
Dim DeadCount As Integer

For Each frag In m_Col
With frag
If Not .Move Then DeadCount = DeadCount + 1
Ellipse m_hDC, .x - 2, .y - 2, .x + 1, .y + 1
End With
Next frag

Move = Not (DeadCount = m_Col.Count)
End Function

CFrag.cls文件内容：
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
END
Attribute VB_Name = "CFrag"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
' CFrag - Represents a flying object with velocity and direction.
' From this it can work out a path of co-ordinates.
' Basic trigonometry is used.

Option Explicit

Private m_Direction As Single ' In Radians.
Private m_Velocity As Single
Private m_Gravity As Single ' Make it fall towards bottom of screen.

Private m_X As Single, m_Y As Single

' Setup the object.
Public Sub Init(XStart As Single, YStart As Single, Direction As Single, Velocity As Single, Gravity As Single)
m_Direction = Direction
m_Velocity = Velocity
m_Gravity = Gravity
m_X = XStart
m_Y = YStart
End Sub

' Move the object along its path.
Public Function Move() As Boolean
m_Velocity = m_Velocity - 1 ' Decrease speed.

If m_Velocity > 0 Then
m_X = m_X + (m_Velocity * Cos(m_Direction))
m_Y = m_Y + (m_Velocity * Sin(m_Direction)) + m_Gravity
Move = True
' Else it has stopped.
End If
End Function

Public Property Get x() As Single
x = m_X
End Property

Public Property Get y() As Single
y = m_Y
End Property

CTrail.cls文件内容：
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
END
Attribute VB_Name = "CTrail"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
' CTrail - Display a trail of dots for a set length.

Option Explicit

Private m_Direction As Single
Private m_Length As Integer
Private m_hDC As Long
Private m_X As Single, m_Y As Single

Public Sub Init(x As Single, y As Single, Direction As Single, Length As Integer, hDC As Long)
m_X = x
m_Y = y
m_Direction = Direction
m_Length = Length
m_hDC = hDC
End Sub

Public Function Move() As Boolean
If m_Length > 0 Then
m_Length = m_Length - 1

m_X = m_X + 10 * Cos(m_Direction)
m_Y = m_Y + 10 * Sin(m_Direction)

Sparkle m_X, m_Y
Move = True
Else
Move = False
End If
End Function

' Draw a random splatter of dots about x,y.
Private Sub Sparkle(x As Single, y As Single)
Dim i As Byte
Dim nX As Single, nY As Single
Dim angle As Single

For i = 1 To (Rnd * 5) + 3
angle = Rnd * (2 * pi)
nX = x + (3 * Cos(angle))
nY = y + (3 * Sin(angle))
Ellipse m_hDC, nX - 1, nY - 1, nX + 1, nY + 1
Next i
End Sub

Public Property Get x() As Single
x = m_X
End Property

Public Property Get y() As Single
y = m_Y
End Property

frmExplode.frm文件内容：
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
VERSION 5.00
Begin VB.Form frmExplode
Caption = "Form1"
ClientHeight = 3195
ClientLeft = 60
ClientTop = 345
ClientWidth = 4680
FillStyle = 0 'Solid
LinkTopic = "Form1"
ScaleHeight = 213
ScaleMode = 3 'Pixel
ScaleWidth = 312
StartUpPosition = 3 'Windows Default
WindowState = 2 'Maximized
Begin VB.CommandButton cmdExit
Caption = "E&xit"
Height = 375
Left = 3000
TabIndex = 2
Top = 2520
Width = 1215
End
Begin VB.CommandButton cmdClear
Caption = "&Clear"
Height = 375
Left = 1680
TabIndex = 1
Top = 2520
Width = 1215
End
Begin VB.PictureBox Picture1
BackColor = &H00000000&
FillStyle = 0 'Solid
Height = 2295
Left = 120
ScaleHeight = 149
ScaleMode = 3 'Pixel
ScaleWidth = 301
TabIndex = 0
Top = 120
Width = 4575
End
Begin VB.Timer tmrMove
Enabled = 0 'False
Interval = 10
Left = 4080
Top = 120
End
End
Attribute VB_Name = "frmExplode"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' Explosion - Simulate fireworks on your PC. Just click on the black box!

Option Explicit

Private explosion As CExplosion
Private trail As CTrail
Private bExplode As Boolean

Private Sub cmdClear_Click()
Picture1.Cls
End Sub

Private Sub cmdExit_Click()
Unload Me
End Sub

Private Sub Form_Resize()
' Keep everything looking good.
Dim h As Single
On Error Resume Next

h = ScaleHeight - cmdClear.Height

Picture1.Move 0, 0, ScaleWidth, h
cmdClear.Move 0, h
cmdExit.Move 0 + cmdClear.Width, h
End Sub

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Not tmrMove.Enabled Then
' Create a new trail...

' Choose a color from a list.
Picture1.ForeColor = Choose(Int(Rnd * 5) + 1, vbRed, vbWhite, vbCyan, vbGreen, vbYellow)
Picture1.FillColor = Me.ForeColor

Set trail = New CTrail
' Choose random direction from 255 to 344
trail.Init x, y, Radians(Int(Rnd * 90) + 225), Int(Rnd * 30) + 20, Picture1.hDC

tmrMove.Enabled = True ' Timer will handle drawing.
End If
End Sub

Private Sub tmrMove_Timer()
' Note that the move functions also draw.
' They return false when the object no longer is moving.

If trail.Move = False And bExplode = False Then
' The trail has stopped so explode.
bExplode = True
Set explosion = New CExplosion
explosion.Setup trail.x, trail.y, Int(Rnd * 30) + 10, 9, Picture1.hDC
End If

If bExplode Then
If explosion.Move = False Then
' Reset for a new explosion!
tmrMove.Enabled = False
bExplode = False
End If
End If
End Sub

' Simple function to convert degrees to radians.
Private Function Radians(sngDegrees As Single) As Single
Radians = sngDegrees * pi / 180
End Function

modStuff.bas文件内容：
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Attribute VB_Name = "modStuff"
Option Explicit

' To get Pi type "? 4 * Atn(1)" in the immediate window,
' the result into code!
Public Const pi = 3.14159265358979

Public Declare Function Ellipse Lib "gdi32" (ByVal hDC As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long

Ⅲ VB 代码怎么写

对控件双击，进入代码编辑器，进行对该控件代码的编辑！

Ⅳ 怎样编写【樱花.exe】这样的软件

樱花简介】
Prunus serrulata
拉丁名Prunus subhirtella（Miq.）Sok.，英文名Flowering Cherry，中文名樱花。
山樱花，福岛樱，青肤樱等。
原产北半球温带，中国长江流域。以中国西南山区各类最为丰富，华北各地均有栽培。现栽培的樱花以日本樱花最为著名。

蔷薇科，李属。

1、日本樱花（P.yedoensis Mats.），干皮暗灰色，叶椭圆形，先端渐尖或尾尖，缘具芒状细尖重锯齿，齿端具腺，叶柄上端有2腺体，托叶条形，具腺齿，花多重瓣，白、粉或玫瑰红色，核果球形，径约1厘米，熟时紫黑色，本种有两变种：①彩霞日本樱花（var.shojo Wils.），重瓣，大型，玫瑰红色；②粉红日本樱花（var.taizanfukus Wils.），重瓣，中型，粉红色。

2、山樱（P.serrulata Lindl.），又名青肤樱。干皮粟褐色，叶多为椭圆状披针形，先端常尾状，缘具尖细单锯齿或重锯齿，齿端有腺质刺芒，叶表苍绿光滑，背面微被白粉有中脉有毛，幼叶常为褐色。叶柄有2-4腺体，花单瓣或重瓣，白或粉红，果卵状球形，熟时黑色，为中国原产种，华北山地多见野生，生长快速，萌芽力强，抗烟尘，常作樱桃之砧木，核仁可入药。

树冠卵圆形至圆形形，单叶互生，具腺状锯齿，花单生枝顶或3-6簇生呈伞形或伞房状花序，与叶同时生出或先叶后花，萼筒钟状或筒状，栽培品种多为重瓣；果红色或黑色，5-6月成熟。

性喜阳光，喜温暖湿润的气候环境，对土壤的要求不严，但以疏松肥沃、排水良好的砂质壤土生长最好，不耐盐碱土。根系较浅，忌积水低洼地。有一定的耐寒和耐旱力，但对烟及风抗力弱。

1、樱花（P.serreulata），为落叶乔木。高5-25米。树皮暗栗褐色，光滑而有光泽，具横纹。小枝无毛。叶卵形至卵状椭圆形，边缘具芒半成熟齿，两面无毛。伞房状或总状花序，花白色或淡粉红色。径2.5-4cm，花期4月-5月。棱果球形，黑色，7月果熟。

2、日本晚樱（P.lannesiana），高约10m，树皮淡灰色。叶倒卵形，缘具长芒状齿；花单或重瓣、下垂，粉红或近白色，芳香，2-5朵聚生，花期4月。

3、日本早樱（P.subhirtella），为小乔木，高约5m，树皮横纹状，老树皮缏。小枝褐色，叶倒卵形至卵状披针形。花粉红色，径2-2.5cm，2-5朵呈伞形花序，春季叶前开花。

4、大山樱（P.sargentii），高12-20m,树皮褐色，小枝紫褐色，叶椭圆状卵形。花粉红色，2-4朵簇生，径3-5cm，花期3-4月。

5、云南樱花（P.cerosoides），高约10m，树皮褐色，小枝紫褐色，叶椭圆状卵形或倒卵形，缘具重齿。花粉红色至深红色，2-5朵簇生，花期2-3月。

6、科樱花（P.majestica），高约25m，树皮浅褐色，小枝绿色，叶长椭圆形至披针形，花粉红色，花期1月至翌年1月。

以播种、扦插和嫁接繁育为主。以播种方式繁殖樱花，注意勿使种胚干燥，应随采随播或湿沙层积后翌年春播。嫁接繁殖可用樱桃、山樱桃的实生苗作砧木。在3月下旬切接或8月下旬芽接，接活后经3年到4年培育，可出圃栽种。栽种时，每坑槽施腐熟堆肥15公斤-25公斤，7月每株施硫酸铵1公斤-2公斤。花后和早春发芽前，需剪去枯枝、病弱枝、徒长枝，尽量避免粗枝的修剪，以保持树冠圆满。

1．土壤要求及改良措施

樱花在含腐殖质较多的沙质壤土和粘质壤土中（pH5.5至6.5）都能很好地生长。在南方土壤粘重的地方，一般混合自制腐叶土（收集树叶及酸性土、鸡粪、木炭粉沤制而成的土壤）。注意，混合前必须将原有粘土块全部打碎，否则起不到改土作用。在地下水位不足1米的地方采用高栽法，即把整个栽植穴垫平后，再在上面堆土栽苗。北方碱性土，需要施硫磺粉或硫酸亚铁等调节pH值至6左右。每平方米施硫磺粉2克，有效期1至2年，同时每年测定，使pH值不超过7。山樱、染井吉野等品种树干通直，树体较大，是强阳性树种，要求避风向阳，通风透光。成片栽植时，要使每株树都能接受到阳光。

2．栽植措施

定植时间在早春土壤解冻后立即栽植，一般为二三月份。栽植前仔细整地。在平地栽植可挖直径1米，深0.8米的穴。穴内先填约一半深的改良土壤，把苗放入穴中央，使苗根向四方伸展。少量填土后，微向上提苗，使根系充分伸展，再行轻踩。栽苗深度要使最上层的苗根距地面5厘米。栽好后做一积水窝，并充分灌水，最后用跟苗差不多高的竹片支撑，以防刮风吹倒。

3．管理措施

防旱：定植后苗木易受旱害，除定植时充分灌水外，以后8至10天灌水一次，保持土壤潮湿但无积水。灌后及时松土，最好用草将地表薄薄覆盖，减少水分蒸发。在定植后2至3年内，为防止树干干燥，可用稻草包裹。但2至3年后，树苗长出新根，对环境的适应性逐渐增强，则不必再包草。

生长期管理：樱花每年施肥两次，以酸性肥料为好。一次是冬肥，在冬季或早春施用豆饼、鸡粪和腐熟肥料等有机肥；另一次在落花后，施用硫酸铵、硫酸亚铁、过磷酸钙等速效肥料。一般大樱花树施肥，可采取穴施的方法，即在树冠：正投影线的边缘，挖一条深约10厘米的环形沟，将肥料施入。此法既简便又利于根系吸收，以后随着树的生长，施肥的环形沟直径和深度也随之增加。樱花根系分布浅，要求排水透气良好，因此在树周围特别是根系分布范围内，切忌人畜、车辆踏实土壤。行人践踏会使树势衰弱，寿命缩短，甚至造成烂根死亡。

修剪养护：修剪主要是剪去枯萎枝、徒长枝、重叠枝及病虫枝。另外，一般大樱花树干上长出许多枝条时，应保留若干长势健壮的枝条，其余全部从基部剪掉，以利通风透光。修剪后的枝条要及时用药物消毒伤口，防止雨淋后病菌侵入，导致腐烂。樱花经太阳长时期的暴晒，树皮易老化损伤，造成腐烂，应及时将其除掉并进行消毒处理。之后，用腐叶土及炭粉包扎腐烂部位，促其恢复正常生理机能。

樱花主要应预防流胶病和根瘤病，以及蚜虫、红蜘蛛、介壳虫等虫害。流胶病为蛾类钻入树干产卵所致，可以用尖刀挖出虫卵，同时改良土壤，加强水肥管理。根瘤病会导致病树的根无法正常生长，不管怎样施肥，树还是不健壮。要及时切除肿瘤，进行土壤消毒处理，利用腐叶土、木炭粉及微生物改良土壤。对于蚜虫、红蜘蛛、介壳虫等病虫害应以预防为主，每年喷药3至4次，第一次在花前，第二次在花后，第三次在7至8月。

樱花花朵极其美丽，为早春重要的观花树种，常用于园林观赏，盛开时节花繁艳丽，满树烂漫，如云似霞，极为壮观。可大片栽植造成“花海”景观，可三五成丛点缀于绿地形成锦团，也可孤植形成“万绿丛中一点红”之画意。樱花还可作小路行道树、绿篱或制作盆景。另外树皮和新鲜嫩叶可药用。

花语：生命、幸福
山樱:向你微笑、精神美
西洋樱花：善良的教育
冬樱花：东方的神秘
重瓣樱花：文静
樱花草:青春
山樱花：纯洁/高尚/淡薄
樱花热烈、纯洁、高尚，代表命运的法则就是循环。严冬过后是它最先把春天的气息带给日本人民，每年3月15
日至4月15日为日本的“樱花节”。日本人认为人生短暂，活着就要像樱花一样灿烂，即使死，也该果断离去。
樱花凋落时，不污不染，很干脆，被尊为日本精神的象征。
樱花花语有幸福、热烈、纯洁、高尚、淡薄等。冬樱花的花语为东方的神秘，重瓣樱花花语为文静，西洋樱花的花语为善良的教育，樱花草的花语为青春。

樱花原生中国，后从中国传到日本。《樱大鉴》说，日本樱花最早是从中国的喜马拉雅山脉传过去的。樱花的传播像所有生物一样呈放射性传播。云南与喜马拉雅地域相近，自是最早受惠地区之一。所以，滇樱花自古以来就闻名天下。这使日本有另一种传说，称日本樱花的祖本，是由僧人从云南带回去的，这与有的日本人坚称他们的祖先是云南白族人一样具有探索性。然而，樱花是从喜马拉雅山脉传往日本，这更有可信性。

《樱大鉴》还说，喜马拉雅的樱花传往日本后，在精心培育下，在日本不断增加品种，成为一个丰富的樱家族。成为日本国花后，它更受关爱，也更受培养，出现观赏性更强的高等品种。然而，至今几种原生于喜马拉雅的樱花还在日本生长，如乔木樱、绯寒樱等。云南樱花与日本樱花同属，它是由原生腾冲、龙陵一带的苦樱桃演变而来，是一个变种，花由单瓣变重瓣，色由淡粉红色变深粉红色。这颜色便是与同为观赏度很高的日本樱花的区别，日本樱花的花多为淡粉红色。

至于常见有文章称中国樱花来自日本，这实为误讹。这也与樱花这个名谓在中国典籍中记载不多有关。因樱花和樱桃外观很像，古人记述颇为含混，古代樱花便不似别的名花那么被人熟悉，但是在古老籍册仍可觅到它的点点芳踪。白居易有诗“小园新种红樱树，闲绕花枝便当游”，便是描述了樱花盛开的景况。明代于若瀛的诗中提到樱花：“三月雨声细，樱花疑杏花”。而日本植樱特盛，其名声盖过中国樱花，便有了原生的假象。

日本被誉为“樱花之国”。每逢春光明媚之时遍植整个日本列岛的樱花树，花团锦簇，五彩绚丽，人们便会成群结队地来到樱花林中欣赏烂漫的樱花，享受日本所独有的樱花所带来的那种文化氛围。人们身着和服，微笑面对，享受的不仅仅是大自然的春天，也享受着生命的春天。

在日本比新年更热闹的时节在4月，因为4月是樱花盛开的时节。一进入3月，几乎所有的日本人就开始盼望着樱花的盛开。等到天气转暖，第一朵樱花终于在料峭的春风中绽开笑脸，一年一度的赏樱活动便从此拉开了序幕。报纸上，电视里，不断传出“某地樱花盛开”、“某日举办樱花祭”的消息，欢天喜地的日本人装扮一新外出赏樱，女人们穿上和服，小孩子花枝招展，连宠物们也穿红著绿，喜气洋洋。随着樱花由南向北次第开放，整个日本列岛便沉浸在一片花的海洋和节日的喜庆之中。一树树的樱花，彷佛一团团粉红的云，飘在山坡上，马路边，公园里，庭院中，甚至田野的沟沟壑壑间。4月的日本充满了樱花的味道，无论是公园或是街道，都遍布盛开的樱花树，使得如盆景般精致的日本越发显得娇美了。

樱花作为一种风景，一种象征，甚至一种精神，已成为日本特有的文化。日本语中，“樱时”就是指樱花盛开的时节，也就是春天。樱花热烈、纯洁、高尚，严冬过后是它最先把春天的气息带给日本人民，日本政府把每年的3月15日至4月15日定为“樱花节”。在这个赏花季节，人们带上亲属，邀上友人，携酒带肴在樱花树下席地而坐，边赏樱、边畅饮，真是人生一大乐趣。在春天樱花盛开的时候，到樱花开得最灿烂的地方，一边吃着寿司，喝着日本酒，一边陶醉在漫天飞舞的“花吹雪（はなふぶき）”中，是日本人一年里最重要的事情。

樱花在日本已有1000多年的历史。在奈良时代（710－794年）说到花就是指梅花，到了平安时代（794－1192年）樱花成了主角，咏樱花的歌比咏梅花的歌要多五倍。赏樱花是日本独特的赏花方式，日语写作“花见”，每当春天樱花季节展开之际，群聚于各地赏樱名所，席坐粉白花树下，大家举杯高歌，谈笑春日，尽情捕捉烂漫春光。“花见”一词甚至被纳为英文专有名词，拼写为Hanami，意为日人赏樱盛宴。

日本很早就有了赏樱花的活动，七世纪持统天皇特别喜爱樱花，多次到奈良的吉野山观赏樱花。另外据说日本历史上的第一次赏樱大会是九世纪嵯峨天皇主持举行的。日本人赏樱的习俗则一般认为源于平安时代在宫中举行的樱花宴，当初赏樱只是在权贵间盛行。庆长三年（公元1598年）3月15日，丰臣秀吉在京都醍醐寺举行的赏花会（历史上称“醍醐の花见”），以其豪侈华丽而名标史册。

而花见普及到平民百姓中，成为日本平民百姓的年中行事则是江户时代（1603－1867年）以后的事情，江户时代是日本历史上的鼎盛时期，可谓“国泰民安”，老百姓丰衣足食以后，便开始关注精神享受，盛开于早春的樱花从此成为日本人心目中的靓点，于是从江户时代开始，赏樱发展为春季的民间活动，并最终形成传统的民间风俗。

作为日本的国花，樱花深受日本人与游客的喜爱，目前日本的樱花种类共有300多种，多为红、白两色。樱花由南往北依次盛开，就如一片粉色的云彩由南往北飘过整个日本，最早可以观赏到樱花的是冲绳岛，而最姗姗来迟的樱花则是全日本最寒冷的北海道。

春季的日本，从三月初的九州开始，直到五月中旬的北海道为止，一路由南而北，这一条“樱花前线”推进到哪里，樱花就轮番张扬到哪里，热闹的樱花宴也由南而北蔓延。樱花的花期不长，盛开的时间一般为10天，由全绽到花谢只有三五天，一旦遇到下雨，灿烂樱花可能翌日就划下句点，虽然花期短暂，日本人还是热热闹闹地设宴庆祝，宛如一场快乐的樱花嘉年华会。

樱花绽放时，在公园及街道的赏花处，便可闻到淡淡的花香和欣赏到红色、粉红色和白色的樱花。每当这时，日本各地都会举行大大小小的“樱花祭”，亲朋好友围坐在樱花树下，取出各自准备的便当（饭盒），饮着香槟或是日本清酒，谈笑风生，身边还不时有花瓣随清风掠过，赏花的人群无论是认识或是不认识的，都会不时点头打招呼，甚至交换食品。与其说是赏花，不如说是赏花让大家有了一个真正的“家庭日”和“友谊日”，难怪日本人乐此不疲，甚至有些公司将赏樱花列为公司的“指定项目”。

日本人赏樱很少有“天马行空”、“走马观花”的，大多是成群结队，停车坐爱。他们一改平日独来独往、忙忙碌碌的常态，亲朋好友，同学同事，抑或四邻五舍相约一起，少则数人，多则几十人，事先准备好吃的喝的用的，占好赏樱之地，聚集于樱花树下，充分享乐。正规的赏樱会有组织者的致词等一定程序，家庭亲友式的赏樱活动则比较随便，没有固定模式。

人们在樱花树下吃菜喝酒，高谈阔论，唱歌跳舞，不亦乐乎！喜欢音乐的年轻人当然忘不了带上音响设备和心爱的乐器，他们在麦克风前引吭高歌，在乐曲声中翩翩起舞，欢快的空气充满着每一个角落。一向以环境宁静著称的日本，在这季节却一片欢腾；一向追求高效、快捷的日本人，也只有在这个时候，可以尽情地放松身心，缓解精神的压力，增进彼此的交流。在这种“好花共赏”的全民共同参与的活动中，人人皆欢乐。

樱花谢世时节，一阵风吹来满树的樱花纷纷飘落，树下便响起一阵欢呼声。日本人称这种缤纷落英为“花雨”。眼看著心爱的花儿随风飘逝，他们不仅没有黛玉葬花的伤感，还以沐浴在这种花雨中为幸福快乐。日本人欣赏的正是樱花这种轰轰烈烈而生，从从容容而去”的生命态度，这也与日本人拼命实现自身价值的人生观不谋而合。

在日本赏樱花最有特色的地方当属箱根了。在这个风光明媚的旅游胜地里，不但可以一边泡温泉一边赏樱花，还可以远眺沉静优美的富士山。 箱根位于东京西面90公里处，是日本最具代表性的旅游胜地之一，周围群峰环绕。而箱根本身早在40万年前就曾有过几次火山爆发，形成一座与富士山相似的圆锥形火山——箱根山，后由于中央部分沉降，形成了一个大火山喷口，在火山口积存的水就形成了明眸皓齿的芦之湖。现在在箱根山的中央，游客仍可望到冒出蒸汽和硫烟的景色。而箱根作为日本指定的国立公园，还有不少的名胜古迹值得游客观赏。

4月，当春色降临箱根的时候，樱花由箱根山脚、山腰及山顶相继开放。由于花期较长，游客有一段相当长的时间可以观赏樱花，加上箱根随处可见的热气腾腾、烟雾弥漫的日式露天温泉和小巧玲珑、古色古香的日式旅馆，因此每年都吸引大量游客到此观光度假。

樱花花开时绚丽无比，但花期短暂，给人展示了自己的所有美丽之后很快便凋谢了，在日本有一民谚说“樱花七日”，就是一朵樱花从开放到凋谢大约为7天，整棵樱树从开花到全谢大约16天左右，形成樱花边开边落的特点，也正是这一特点才使樱花有这么大的魅力。被尊为国花，不仅是因为它的妩媚娇艳，更重要的是它经历短暂的灿烂后随即凋谢的“壮烈”。“欲问大和魂，朝阳底下看山樱”，日本人很欣赏樱花这种壮烈的性格，认为人生短暂，活着就要像樱花一样灿烂，即使死，也该果断离去。樱花凋落时，不污不染，很干脆，被尊为日本精神，白雪似的樱花象征日本武士道绚烂而短暂的美学。

在日本古典文学作品中关于樱花的描述比比皆是，历代文人墨客留下了不计其数的咏樱之作。日本古代文学经典《古今集·春歌》中咏樱的诗词就有70首，占了文集的绝大部分篇幅；江户时代著名诗人松尾芭蕉的不少俳句也都是以咏樱为题的。

基本个性：你就像是盛开的樱花一样充满魅力，令人无法忽视你的存在。不管到哪里你都是众所瞩目的焦点。你喜欢照顾别人，朋友多得数不清。你很受欢迎，大家有事都喜欢找你帮忙。遇到困难你也会乐观地应对。你超强的行动力总能让你跨越难关。

恋爱倾向：属樱花的女生向来都是与众不同，很有异性缘。就算不开口也很有人缘。但你却充满热情，只要喜欢上一个人，那对其他事都会视而不见。你会完全配合对方的时间和喜好。男生喜欢你的热情，但小心过度的热情反而会成为一种负担有时要试着退一步冷静一下，给彼此一点空间，爱情才能长久。

小心花刺：你有时会很自我中心，不要忘记保持谦虚和一颗感恩的心。你的专情会显出你的占有欲和嫉妒心，这样只会让你得不到爱情，请要相信你所爱的人。

樱花花语：命运的法则就是循环不已。所以要快乐地接纳对方。

计算机病毒Worm.Mail.Sleepless，又名樱花，警惕程度★★★☆，蠕虫病毒，通过邮件传播，依赖系统为WIN9X/NT/2000/XP。

病毒采用VB语言编写，一旦运行，会把多个病毒文件释放到中毒电脑的不同目录下，其中C盘根目录下会有一个名为“精彩公文包”的可执行文件，修改注册表实现随系统启动。

病毒会在后台隐蔽运行，每隔一段时间就会搜索杀毒软件的实时监控窗口，并将其关闭。然后弹出对话框，如果是瑞星杀毒软件，则提示“瑞星提示：查病毒请按确定，卖红薯请按取消”；如果是金山毒霸，则提示“毒霸提示：要毒霸请按确定，要波霸请按取消”；如果是江民KV2004，则提示“江民提示：别让学生不停搬寝室，我老江都看不下去了”，如果是诺顿，则提示“诺顿提示：我不行了，要关闭了！”。

病毒会在中毒电脑的Outlook地址列表里面查找电子邮件地址，向其发送带毒邮件，邮件的题目是“浪漫樱花”，内容为“理科生的浪漫，告诉全世界——我爱你！”，附件“I love you.exe”和“I love you.doc”就是病毒。该病毒运行会大量占用电脑的资源，同时由于该病毒大量发送病毒邮件，会引起网络速度变慢。

さくらさくら
弥生の空は见渡すかぎり
霞か云か匂いぞ出ずる
いざやいざや见にゆかん
さくらさくら
野山も里も见わたす限り
かすみか云か朝日ににおう
さくらさくら 花ざかり

粉红色的面容
带上些许慵懒
在早春三月起床
便不停地梳妆打扮
把嘴唇描得腥红
漂泊的春情漫过富士山
在盛唐的土地上泛滥
妩媚中藏着妖冶
多情地绽放着笑靥
这位东瀛来的红衣女子
沿着杨玉环的低吟浅唱
在中国水墨画中
舞动水袖
这风中透明的女子
流连在三月的五线谱上
忘情的嬉戏
把春天荡成秋千
召来采花酿蜜的蜂蝶
她躲在枝头叶缝中
调皮地抛着媚眼
演绎着聊斋故事
多少怀春的少男少女
徜徉在粉红色的梦里
春风细雨的打理
让公园在一夜间返老还童
那条落满花瓣的石径
要用整个青春期来清扫
樱花 一段短暂的甜蜜
惊醒在你美丽的记忆里
在一场倒春寒后你感冒发烧
抒情的嘴唇燎起火泡
细软的身躯从枝头落下
从化作尘埃的那一刻才警醒
悲剧起源于浅薄
三月的春风
能剪出绿丝绦
也可剪碎粉红色的梦

Ⅳ 求VB6.0代码大全

高手死光了就有人帮你干这个苦力了。
如果你还在设置窗体属性这么低等的层次找人帮你整理资料，那你不如买块豆腐撞死更容易。
如果你真的想学好VB而不是哗众取宠，先找本VB6.0基础教程之类的书把语法吃透了再提问。
如果你就是这样张口要代码的浮躁态度，就算我真的帮你贴出来你也看不下去，所以，孩子，洗洗睡吧。或者去下本教材好好看看。
当你学到能比较熟练地用API解决问题的时候，你再回头看看你这个提问，你会笑的。

Ⅵ 在桌面上显示很多玫瑰花的一个vb小程序代码

桌面涂鸦VB程序代码
Option Explicit
Public Type POINTAPI
x As Long
y As Long
End Type
Public nXn As Long
Public gfqw As Long
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Public sbsb As POINTAPI
Public Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Public Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
Public Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal nCode As Long, ByVal wParam As Long, lparam As Any) As Long
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (lpvDest As Any, ByVal lpvSource As Long, ByVal cbCopy As Long)
Public Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long
Public Type MOUSEMSGS
x As Long 'x座标
y As Long 'y座标
a As Long
b As Long
time As Long 'Window运行时间
End Type
Public Const WH_MOUSE_LL = 14
Public Const MB_OK = &H0&
Public Const MB_ICONASTERISK = &H40&
Public Type MSLLHOOKSTRUCT
pt As POINTAPI
mouseData As Long
Flags As Long
time As Long
dwExtraInfo As Long
End Type
Public hHook As Long
'-----------------------------------------
'消息
Public Const HC_ACTION = 0
Public Const HC_SYSMODALOFF = 5
Public Const HC_SYSMODALON = 4
'鼠标消息
Public Const WM_MOUSEMOVE = &H200
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_LBUTTONUP = &H202
Public Const WM_LBUTTONDBLCLK = &H203
Public Const WM_RBUTTONDOWN = &H204
Public Const WM_RBUTTONUP = &H205
Public Const WM_RBUTTONDBLCLK = &H206
Public Const WM_MBUTTONDOWN = &H207
Public Const WM_MBUTTONUP = &H208
Public Const WM_MBUTTONDBLCLK = &H209
Public Const WM_MOUSEACTIVATE = &H21
Public Const WM_MOUSEFIRST = &H200
Public Const WM_MOUSELAST = &H209
Public Const WM_MOUSEWHEEL = &H20A
Public Declare Function GetActiveWindow Lib "user32" () As Long
Public MouseMsg As MOUSEMSGS '鼠标消息结构体
Public lHook As Long '勾子句柄
Public sbss As POINTAPI
'鼠标钩子函数
Public Function HookProc(ByVal nCode As Long, ByVal wParam As Long, ByVal lparam As Long) As Long
Dim typMHS As MSLLHOOKSTRUCT, pt As POINTAPI
If wParam = WM_MOUSEMOVE Then
Call CopyMemory(typMHS, ByVal lparam, LenB(typMHS))
pt = typMHS.pt
Debug.Print "mouse Cursor at " + CStr(pt.x) + "," + CStr(pt.y)
GetCursorPos sbsb
End If
If wParam = WM_LBUTTONDOWN Then
Form1.Timer2.Enabled = True
nXn = 2
GetCursorPos sbss
End If
If wParam = WM_RBUTTONDOWN Then
End If
If wParam = WM_LBUTTONUP Then '按下中间记下这个值，然后调用一个过程，我的鼠标没有中键，自己测试一下
Form1.Timer2.Enabled = False
HookProc = CallNextHookEx(hHook, nCode, wParam, lparam)
End If
End Function

'卸载勾子
Public Sub StopHook()
If lHook <> 0 Then lHook = UnhookWindowsHookEx(lHook)
End Sub

'===================== 模块结束 ========================
Public Sub FreeHook()
If hHook <> 0 Then
Call UnhookWindowsHookEx(hHook)
hHook = 0
End If
End Sub

Public Sub EnableHook()
If hHook = 0 Then
hHook = SetWindowsHookEx(WH_MOUSE_LL, AddressOf HookProc, App.hInstance, 0)
End If
End Sub

Ⅶ vb基础代码

form1.show打开窗口1

form2.hide隐藏窗口2

unloadform2关闭窗口2

MsgBox(prompt[,buttons][,title][,helpfile,context])对话框

prompt为内容

buttons（看下面的图）

title消息框标题

Helpfile可选的。字符串表达式，识别用来向对话框提供上下文相关帮助的帮助文件。如果提供了helpfile，则也必须提供context。

Context可选的。数值表达式，由帮助文件的作者指定给适当的帮助主题的帮助上下文编号。如果提供了context，则也必须提供helpfile。

Ⅷ vb写一段下雪花的代码怎么做

DimSnow(1000,2),AmountyAsInteger
PrivateSubForm_Load()
Form1.Show
DoEvents
Randomize
Amounty=325
ForJ=1ToAmounty
Snow(J,0)=Int(Rnd*Form1.Width)
Snow(J,1)=Int(Rnd*Form1.Height)
Snow(J,2)=10+(Rnd*20)
NextJ
DoWhileNot(DoEvents=0)
ForLS=1To10
ForI=1ToAmounty
OldX=Snow(I,0):OldY=Snow(I,1)
Snow(I,1)=Snow(I,1)+Snow(I,2)
IfSnow(I,1)>Form1.HeightThen
Snow(I,1)=0:Snow(I,2)=5+(Rnd*30)
Snow(I,0)=Int(Rnd*Form1.Width)
OldX=0:OldY=0
EndIf
Coloury=8*(Snow(I,2)-10):Coloury=60+Coloury
PSet(OldX,OldY),QBColor(0)
PSet(Snow(I,0),Snow(I,1)),RGB(Coloury,Coloury,Coloury)
NextI
NextLS
Loop
End
EndSub