vb程序设计烟花代码,VB编程水仙花数

vb程序设计烟花代码,VB编程水仙花数详细介绍

本文目录一览： 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,
' copy the result into code!
Public Const pi = 3.13800979
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制作 放烟花的 程序 大虾给我编个吧

输出10-j个制表符
,也就是相当于按键盘上的
tab建10-j下
在窗体上就是空格了,你看不到的,这才能成三角形

VB编程水仙花数

1、首先双击桌面图标启动 visual basic 6.0。
2、然后新建工程，选择标准EXE。
3、选择完工程后，点击打开，就可以新建一个exe工程了。
4、然后双击 FORM1 窗体，在弹出的代码窗体中复制该代码到 Form_Click() 事件中。
5、代码：If a * 100 + b * 10 + c = a ^ 3 + b ^ 3 + c ^ 3 Thenn = n + 1If (n Mod 5) = 0 Then
Print a & b & cElsePrint a & b & c,End IfEnd IfNext cNext bNext aPrint Chr(13) & Chr(13) & "三位数中水仙花数个数为" &n。最后运行这样就完成了。

VB编程水仙花数

VB实现水仙花数的程序代码如下：
Private Sub Command_Click()
For num = 100 To 999
a = num Mod 10
b = num \ 10 Mod 10
c = num \ 100
If a^3 + b^3 + c^3 = num Then Print num
Next num
End Sub
实现具体步骤如下：
1、启动VB程序，新建一个标准exe工程
2、在窗体上绘制一个命令按钮（名称：Command），双击命令按钮进入代码窗口。
3、接下来开始编写命令按钮的单击事件。点击事件要实现的内容就是上面提供的程序代码。
4、按F5运行程序，点击命令命令按钮，输出的水仙花数共有4个：153，370，371，407。
扩展资料：
C语言实现水仙花数的代码：
#include

#include

void main()

{

int i,j,k,n;

printf("'water flower'number is:");

for(n=100;n<1000;n++)

{i=n/100;/*分解出百位*/

j=n/10%10;/*分解出十位*/

k=n%10;/*分解出个位*/

if(n==i*i*i+j*j*j+k*k*k)

{

printf("%-5d",n);

}

}

printf("\n");

}

参考资料：百度百科-水仙花数

VB编程水仙花数

1、首先双击桌面图标启动 visual basic 6.0。
2、然后新建工程，选择标准EXE。
3、选择完工程后，点击打开，就可以新建一个exe工程了。
4、然后双击 FORM1 窗体，在弹出的代码窗体中复制该代码到 Form_Click() 事件中。
5、代码：If a * 100 + b * 10 + c = a ^ 3 + b ^ 3 + c ^ 3 Thenn = n + 1If (n Mod 5) = 0 Then
Print a & b & cElsePrint a & b & c,End IfEnd IfNext cNext bNext aPrint Chr(13) & Chr(13) & "三位数中水仙花数个数为" &n。最后运行这样就完成了。
VB实现水仙花数的程序代码如下：
Private Sub Command_Click()
For num = 100 To 999
a = num Mod 10
b = num \ 10 Mod 10
c = num \ 100
If a^3 + b^3 + c^3 = num Then Print num
Next num
End Sub
实现具体步骤如下：
1、启动VB程序，新建一个标准exe工程
2、在窗体上绘制一个命令按钮（名称：Command），双击命令按钮进入代码窗口。
3、接下来开始编写命令按钮的单击事件。点击事件要实现的内容就是上面提供的程序代码。
4、按F5运行程序，点击命令命令按钮，输出的水仙花数共有4个：153，370，371，407。
扩展资料：
C语言实现水仙花数的代码：
#include

#include

void main()

{

int i,j,k,n;

printf("'water flower'number is:");

for(n=100;n<1000;n++)

{i=n/100;/*分解出百位*/

j=n/10%10;/*分解出十位*/

k=n%10;/*分解出个位*/

if(n==i*i*i+j*j*j+k*k*k)

{

printf("%-5d",n);

}

}

printf("\n");

}

参考资料：百度百科-水仙花数

两种方法：

1、用三重循环，将三个数连接成一个3位数再进行判断。

2、用一重循环，将所有的三位数逐位分离后再进行判断。

Private Sub Command1_Click()

Cls

Print"第一种方法："

Dim a As Integer,b As Integer,c As Integer,d As Integer

For a=1 To 9

For b=0 To 9

For c=0 To 9

d=100*a+b*10+c

If d=a^3+b^3+c^3 Then Print d

Next c

Next b

Next a

End Sub

Private Sub Command2_Click()

Cls

Print"第二种方法："

For i=100 To 999

ge=i Mod 10

shi=i\10 Mod 10

bai=i\100

If ge^3+shi^3+bai^3=i Then Print i

Next i

End Sub

运行程序效果：

扩展资料：printf函数使用注意事项

1、域宽

%d：按整型数据的实际长度输出。

如果想输出指定宽度可以指定域宽，%md-->，m域宽，打印出来以后，在控制台上，显示m位；

如果要打印的数的位数如果超过我们设定m则原样输出；

如果要打印的数的位数如果小于设定的位数，则补空白，具体如下：

如果m为正数，则左对齐(左侧补空白)；

如果m为负数，则右对齐(右侧补空白)。

2、转义字符

如果想输出字符"%"，则应该在“格式控制”字符串中用连续两个%表示。

如：printf("%f%%",1.0/3)；输出结果：0.333333%。

写个代码（VB.net），参考一下：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim I As Integer

Dim A As Integer, B As Integer, C As Integer '定义几个变量，其中A、B、C用分别作百、十、个位数

Label1.Text = "水仙花数有：" 'Label1先显示一个标题，后面在一行添加水仙数

For I = 100 To 999 '检索所以的三位数，即从100到999

A = Int(I / 100) '提取三位数的百位数

B = Int(I / 10) - A * 10 '提取三位数的十位数

C = I - Int(I / 10) * 10 '提取十位数的个位数

If (I = Math.Pow(A, 3) + Math.Pow(B, 3) + Math.Pow(C, 3)) Then Label1.Text = Label1.Text & I & " " '如果某个数符合水仙数定义，就在Label1里添加它

Next

End Sub

Private Sub Form_Click()

Dim q As Integer

Dim b As Integer

Dim s As Integer

Dim n As Integer

For n = 100 To 999

q = n \ 100

'求出百位数字

b = (n - q * 100) \ 10

'求出十位数字

s = n Mod 10

'求出个位数字

If ((q * q * q + b * b * b + s * s * s) = n) Then

Print n

End If

Next

End Sub

VB实现水仙花数的程序代码如下：

PrivateSubCommand_Click()

Fornum=100To999

a=numMod10

b=num\10Mod10

c=num\100

Ifa^3+b^3+c^3=numThenPrintnum

Nextnum

EndSub

实现具体步骤如下：

1.启动VB程序，新建一个标准的exe项目，如下图。

2.在窗体上绘制命令按钮(名称:命令)，双击命令按钮以进入代码窗口，如下图。

3.接下来，开始为命令按钮编写单击事件。click事件实现了上面提供的程序代码，如下图。

4.按F5运行程序并单击命令按钮。水仙花产量为4:15,370,371,407，如下图。

扩展资料：

C语言实现水仙花数的代码：

#include

#include

voidmain()

{

inti,j,k,n;

printf("'waterflower'numberis:");

for(n=100;n<1000;n++)

{

i=n/100;/*分解出百位*/

j=n/10%10;/*分解出十位*/

k=n%10;/*分解出个位*/

if(n==i*i*i+j*j*j+k*k*k)

{

printf("%-5d",n);

}

}

printf("\n");

}

注意事项：

VB编程的核心思想是组件编程。VB是最早引入组件编程的概念，然后被其他语言采用并成为标准，如vc++、Delphi、PowerBuilder等都采用了组件编程模型，并利用面向对象的编程技术，成为当今程序设计的发展方向之一。

VB编程，由于采用了组件技术，所以不必从底层开始窗体，控制设计，可以由工厂通过各种零件装配生产机器，通过Microsoft或第三方提供的组件，装配成所需的程序。与什么?VB是代码，它像胶水一样，把有限的代码和组件粘合在一起。结果是一个完整的应用程序。

VB有一个图形用户界面(GUI)和快速应用程序开发(RAD)系统，可以很容易地使用daos、RDO、ADO连接到数据库，或者很容易地创建活动的X控件，从而高效地生成类型安全的和面向对象的应用程序。

程序员可以使用VB提供的组件轻松快速地构建应用程序。VB的组件既可以拥有用户界面，也可以没有。这样一来服务器端程序就可以处理增加的模块。

VB使用参数计算的方法来进行垃圾收集，这个方法中包含有大量的对象，提供基本的面向对象支持。因为越来越多组件的出现，程序员可以选用自己需要的扩展库。

vb的简单代码，

'所有控件在Form_Load中，4个text，6个标签，1个按钮
Option Explicit
Dim lngTime As Long, lngNN As Long, lngMax As Long
Private Sub Command1_Click()
Randomize
Timer1.Enabled = True
lngTime = 60
Label3.Caption = "剩余时间：" & lngTime & "秒"
Command1.Enabled = False
initTxt
lngNN = 0
End Sub
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.Locked = True
Text2.Locked = True
Command1.Caption = "开始"
Timer1.Interval = 1000
Label1.Caption = "+"
Label2.Caption = "="
Label3.Caption = ""
Label4.Caption = "加数最大值为："
Label5.Caption = ""
Label6.Caption = ""
Timer1.Enabled = False
lngMax = Val(Text4.Text)
End Sub
Private Sub initTxt()
Text1.Text = Int((lngMax * Rnd) + 1)
Text2.Text = Int((lngMax * Rnd) + 1)
Text3.Text = ""
Text3.SetFocus
End Sub
Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Val(Text1.Text) + Val(Text2.Text) = Val(Text3.Text) Then
lngNN = lngNN + 1
Label5.Caption = "√"
Label6.Caption = "正确" & lngNN & "道"
Else
Label5.Caption = "×"
End If
Open App.Path & "\test.txt" For Append As #1
Print #1, Text1.Text; "+"; Text2.Text; "="; Text3.Text
Close
initTxt
ElseIf KeyAscii < 48 Or KeyAscii > 57 Then
KeyAscii = 0
End If
End Sub
Private Sub Text4_Change()
If Len(Text4) Then
If Not IsNumeric(Text4.Text) Then
lngMax = 100
Text4.Text = lngMax
Else
lngMax = Val(Text4.Text)
End If
End If
End Sub
Private Sub Timer1_Timer()
lngTime = lngTime - 1
Label3.Caption = "剩余时间：" & lngTime & "秒"
If lngTime = 0 Then
Command1.Caption = "继续"
Command1.Enabled = True
Timer1.Enabled = False
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Label5.Caption = ""
Open App.Path & "\test.txt" For Append As #1
Print #1, Label6.Caption
Close
End If
End Sub

vb代码大全

Option Explicit
Function fc(a) As Boolean
Dim i As Long
For i = 2 To Int(a / 2)
If a Mod i = 0 Then
fc = False
Exit For
Else
fc = True
End If
Next i
End Function
Private Sub Form_Click()
Dim i, j, k, m, s, g, f As Integer
j = 0
k = 0
f = 0
Dim a(1 To 80) As Integer
Dim b(1 To 80) As Integer
Dim c(1 To 80) As Integer
Dim d(1 To 80) As Integer
For i = 1 To 80
a(i) = Int(Rnd() * 100)
if a(i)<10 then a(i)=a(i)+10
If a(i) Mod 2 = 0 Then
j = j + 1
b(j) = a(i)
Else
k = k + 1
c(k) = a(i)
End If
Next i
For i = 1 To j
For m = i + 1 To j
If b(i) < b(m) Then
s = b(m)
b(m) = b(i)
b(i) = s
End If
Next m
Next i
For i = 1 To k
For m = i + 1 To k
If b(i) < b(m) Then
s = c(m)
c(m) = c(i)
c(i) = s
End If
Next m
Next i
For i = 1 To 80
If fc(a(i)) = True Then
g = g + 1
d(g) = a(i)
End If
Next i
Print "随机数："
For i = 1 To 80
f = f + 1
If f < 11 Then
Print " " & a(i);
Else
f = 1
Print
Print " " & a(i);
End If
Next i
Print
Print "偶数："
f = 0
For i = 1 To j
f = f + 1
If f < 11 Then
Print " " & b(i);
Else
f = 1
Print
Print " " & b(i);
End If
Next i
Print
Print "奇数:"
f = 0
For i = 1 To k
f = f + 1
If f < 11 Then
Print " " & c(i);
Else
f = 1
Print
Print " " & c(i);
End If
Next i
Print
Print "素数："
f = 0
For i = 1 To g
f = f + 1
If f < 11 Then
Print " " & d(i);
Else
f = 1
Print
Print " " & d(i);
End If
Next i
s = 0
Print
Print "素数个数：" & g
For i = 1 To g
s = s + d(i)
Next i
Print "素数总和：" & s
End Sub

VB怎么制作一个动画啊

简单,什么叫动画?
对于VB程序而言,动画就是让物体或者是颜色不停变化的过程,
人走路还不简单吗?
准备2张jpg图片,出左脚和出右脚的
dim i as integer '全局变量
function zoulu ()
i=i+1 '让程序每次调用的时候加1
if i mod 2 =0 then '成绩偶数变换
image1.picture="1.jpg"
else
image1.picture="2.jpg"
end if
end function
然后再拖个时钟,周期设置为1000
Private Sub Timer1_Timer()
i = 1
Call zoulu
End Sub
走路动画做好了~
以上FISH自创,如果有错误,请各位大牛斧正
hi.baidu.com/4430live
大家都太积极了，我也贴出来好了，新建一个窗体只需要添加下面的代码就可以运行
注：这是CBM666的代码，我不是原创，但是我很欣赏CBM666，简直是崇拜啊。。。。
Option Explicit
Private WithEvents Timer1 As Timer
Dim i%, j%, x1%, y1%, blockw%, blockh%, carX%, carY%, pcolor$
Dim N%, L%, C$
Const Captions As String = "烟花飘飘的小汽车"
Private Sub Form_Load()
Me.AutoRedraw = True
Me.DrawWidth = 2
Me.Width = 5120
Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2
Me.Cls
carY = Me.Height \ 2: blockw = 500: blockh = 200
x1 = 0: y1 = carY - 230
Set Timer1 = Controls.Add("vb.timer", "timer1")
Timer1.Interval = 50
End Sub
Private Sub Timer1_Timer()
Me.Cls
For i = 1 To 12
pcolor = IIf(i Mod 2 = 0, vbBlue, vbRed)
Line (carX - j, carY)-(carX - j + blockw, carY + blockh), pcolor, BF
carX = IIf(carX + 500 >= 6000, 0, carX + 500)
Next i
j = IIf(j + 100 > 900, 0, j + 100)
Line (x1, y1)-(x1 + 500, y1 + 100), , B
Me.Circle (x1 + 100, y1 + 150), 50
Me.Circle (x1 + 380, y1 + 150), 50
x1 = IIf(x1 + 50 >= 5000, -500, x1 + 50)
L = Int(Me.Width / 220)
C = String(L, " ") & Captions & String(L, " ")
N = N + 1
If N > Len(C) - L Then N = 1
Me.Caption = Mid(C, N, L)
End Sub
可以做比较简单的小动画
Dim j%, y%, x1%, y1%, blockw%, blockh%
Private Sub Form_Load()
Me.AutoRedraw = True
Me.DrawWidth = 2
Me.Width = 5120
Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2
Me.Cls
y = Me.Height \ 2: blockw = 500: blockh = 200
x1 = 0: y1 = y - 230
rb = True
Timer1.Interval = 50
End Sub
a
Private Sub Timer1_Timer()
Dim x As Integer
Me.Cls
For I = 1 To 12
If I Mod 2 = 0 Then
Line (x - j, y)-(x - j + blockw, y + blockh), vbBlue, BF
Else
Line (x - j, y)-(x - j + blockw, y + blockh), vbRed, BF
End If
x = x + 500
If x >= 6000 Then x = 0
Next I
j = j + 100
If j > 900 Then j = 0
Line (x1, y1)-(x1 + 500, y1 + 100), , B
Me.Circle (x1 + 100, y1 + 150), 50
Me.Circle (x1 + 380, y1 + 150), 50
x1 = x1 + 50
If x1 >= 5000 Then x1 = -500
End Sub

VB怎么实现鼠标放烟花？

鼠标点火,引爆导火线
不错,牛逼