使用公式。在如vba中使用公式ScaleMode等于3Picture即可实现放烟花。VBA（VisualBasicforApplications）是VisualBasic的一种宏语言，是在其桌面应用程序中执行通用的自动化（OLE）任务的编程语言。

AttributeVB_Name="CExplosion"AttributeVB_GlobalNameSpace=FalseAttributeVB_Creatable=TrueAttributeVB_PredeclaredId=FalseAttributeVB_Exposed=False'CExplosion-BasicallyacollectionofCFrags.O

先建立一个图片框，一个时钟控件，Interval属性设为100，代码如下：PrivateSubForm_Click()Picture1.ScaleMode=3Picture1.Scale(-3,3)-(3,-3)Picture1.Line(-0.3,-2)-(0.3,-3),,BFEndSub...

1、首先双击桌面图标启动visualbasic6.0。2、然后新建工程，选择标准EXE。3、选择完工程后，点击打开，就可以新建一个exe工程了。4、然后双击FORM1窗体，在弹出的代码窗体中复制该代码到Form_Click()事件中。

VB实现水仙花数的程序代码如下：PrivateSubCommand_Click()Fornum=100To999a=numMod10b=num\10Mod10c=num\100Ifa^3+b^3+c^3=numThenPrintnumNextnumEnd...

VB实现水仙花数的程序代码如下：PrivateSubCommand_Click()Fornum=100To999a=numMod10b=num\10Mod10c=num\100Ifa^3+b^3+c^3=numThenPrintnumNextnumEndSub实现具体步骤如下：1.启动VB程序，新建一个标准的...

到底是烟花还是写字啊？用pset不是更好？控制移动的坐标而已么.

这个是打印所有三位数的水仙花数的代码：PrivateSubCommand1_Click()Fora=1To9Forb=0To9Forc=0To9Ifa*100+b*10+c=a^3+b^3+c^3Thenprinta...

Print"欢迎使用VB"EndSubPrivateSubCommand3_Click()Form1.FontBold=TruePrint"欢迎使用VB"EndSubPrivateSubCommand4_Click()Form1.FontBold=FalsePrint"欢迎使用VB"EndSubPrivateSubForm_...

vb6.0程式设计问题：水仙花abc=a^3+b^3+c^3(0到999），求所有水仙花数？所谓的水仙花数‘是指在三位整数(100到999之间)中，百位数、十位数、个位数的立方和等于它本身，如153=1^3+5^3+3^3。程式程式码如下...