2024年5月29日发(作者：)

PrivateDeclareFunctionmciSendStringLib""Alias"mciSendStringA"(ByVallpstrCom

mandAsString,ByVallpstrReturnStringAsString,ByValuReturnLengthAsLong,ByValhwndCallbac

kAsLong)AsLong'mcisendstring播放音乐的API函数

PrivateDeclareFunctiontimeGetTimeLib""()AsLong'用于制作延时函数

DimWithEventsimgMGAsImage'申明控件数组

DimiAsInteger'全局变量

DimimgBox(999)AsImage'记录控件数组的数组

DimratioAsDouble

PrivateSubForm_Load()

Style=0

State=2

=0

=0

=20480'图片框宽度等于屏幕宽度

=11510'

ratio=/

(-ratio/2,1)-(ratio/2,-1)

lor=vbWhite

DrawLines0,0

Image1(0).Picture=LoadPicture(&"红玫瑰.gif")

=0

=0

ld=True

lor=vbRed

n=""

e=False

'CallBB

EndSub

PrivateSubLabel2_Click()

mciSendString"closemovie",0&,0,0

UnloadMe'退出程序

EndSub

PrivateSubBB()'本程序主要的函数，功能都在里实现

CallMusicPlay'播放音乐

Forj=1To99

X=Rnd*20480

Y=Rnd*11510

i=i+1

LoadImage1(i)

Image1(i).Picture=Image1(0).Picture

Image1(i).Width=Image1(0).Width

仅供个人学习参考

Image1(i).Height=Image1(0).Height

Image1(i).Top=Y

Image1(i).Left=X

Image1(i).Visible=True

Sleep2200

n=i&"送上99朵玫瑰，代表我的心！"

Nextj

n="我们一起长长久久"'随机“画”出99朵玫瑰

nullMeiGuii'“察”去玫瑰清屏，下同

n=""

MeiGui""

n="你和你的名字在我心中"

Sleep23000

nullMeiGuii'画出桃心

n=""

MeiGui""

n="ILOVEU"

Sleep23000

nullMeiGuii'画出iloveu

n=""

MeiGui""

n="喜欢吗？"

Y=MsgBox("告诉我你喜欢吗？",vbYesNo,"我想知道")

IfY=vbYesThen

nullMeiGuii

MeiGui""

n="你喜欢，我很开心"

&""ForAppendAs#1

Print#1,"我喜欢"

Close#1

Else

nullMeiGuii

MeiGui""

n="你不喜欢，我很难过"

&""ForAppendAs#1

Print#1,"我不喜欢"

Close#1

EndIf

e=True

lor=vbRed

n="点这里退出"

=

=//2

EndSub

PrivateSubMusicPlay()'音乐播放函数

仅供个人学习参考