谁知道在央视春晚上表演激光舞的叫什么名字？

人物简介邓雯心邓雯心（Alisa），籍贯广东，2010年亚运歌手、5.12爱心大使、2009年世界小姐广东亚军及中国区十佳选手、番禺旅游形象大使、激光舞《快乐亚运新视界》原创者；荣获第五届全国少数民族汇演金奖、南方电视台可爱伊人2009电视评选大赛冠军及最高人气奖；参与了“亚运中国行”大型系列晚会主演、5.12汶川大地震周年纪念大型晚会、广东电视台跨年演唱会开场舞、第五届亚洲艺术节开幕式演出、2006“美在花城”广告新星大赛演出、广州亚运会倒数600天活动演出嘉宾，曾与著名歌星宋祖英、韩红、孙楠、赵雅芝、谢霆锋、张卫健、张靓颖、韦唯、许茹芸、陈楚生、谭维维、海鸣威、沙宝亮、凤凰传奇以及著名主持人朱军、朱迅、牛群等在各地合作出席各大型活动的演出。此外，多才多艺的邓雯心还自创作品包括激光舞《快乐亚运新视界》、情景舞蹈《跨越2009》、《LOVE ‘IN YOU》、大型舞蹈《牵手春天》、大型舞蹈《迎春舞》。细数邓雯心演出过的作品：亚运歌曲《美丽花城》、大型舞蹈《激情水鼓》、大型舞蹈《激光舞》、《扇子舞》、歌曲《亚运动起来》、魔术《变装》、魔术《三张牌》。[1] 编辑本段人物档案姓名：邓雯心 英文：Alisa 性别：女 籍贯：广东 语言：国语，粤语，英语 身高：172 体重：48kg 编辑本段获奖经历2010年亚运歌手 5.12爱心大使 激光舞《快乐亚运新视界》原创者 2009年第59届世界小姐广东赛区亚军 第五届全国少数民族汇演金奖 荣获番禺旅游形象大使亚军以及最上镜奖 2009南方电视台可爱伊人2009电视评选大赛冠军及最高人气奖 2009年第七届劲歌王最有前途新人奖 编辑本段演出经历--2009“亚运中国行”大型系列晚会主演演员 --5.12汶川大地震周年纪念大型晚会演出嘉宾 --2009广东电视台跨年演唱会开场舞领舞 --第五届亚洲艺术节开幕式演出 --2006“美在花城”广告新星大赛演出 --广州亚运会倒数600天活动演出嘉宾 --南方电视台《霓裳丽影》栏目担任节目嘉宾 --2009年国庆60周年庆典晚会演出嘉宾 --2010年广州亚运会亚组委授予“亚运歌手” --2010年亚运倒数100天晚会亚运会歌《日出东方》演唱者之一 编辑本段自创作品激光舞《快乐亚运新视界》 情景舞蹈《跨越2009》 《LOVE ‘IN YOU》 大型舞蹈《牵手春天》 大型舞蹈《迎春舞》 亚运歌曲《美丽花城》 编辑本段演出作品亚运歌曲《美丽花城》 大型舞蹈《激情水鼓》 大型舞蹈《激光舞》 《扇子舞》 歌曲《亚运动起来》 魔术《变装》 魔术《三张牌》[2] 亚运会歌备选歌《日出东方》MV（官方国语版）-容祖儿、古巨基、刘亭婷、邓雯心、郑源、储兰兰等。 央视2011跨年晚会节目混搭《非常1+1》

因为这里只能上传一张图片，所以写了一个单张图片的。装载系列图片的我也写了，只是窗体初始化会很麻烦。以下代码是实现单张图片的随意飞舞程序，能做到：

1、碰到窗体边缘时，图片会自动改变飞舞的方向（题意中要求的“返回”，只能是在一条线上来回移动，本程序实现蝴蝶出发位置随意，能在窗体内四处飞舞），而且头部也会跟着改变方向

2、窗体改变大小时，蝴蝶不会消失不见，会立即在新的窗体内继续飞舞

'建一个Picture1控件，在它的属性对话框内设置Appearance=0 AutoRedraw=True AutoSize=True BorderStyle=0，然后在它的Picture中加载蝴蝶图片

'再建一个Picture2控件，在它的属性对话框内设置Appearance=0 AutoRedraw=False AutoSize=False BorderStyle=0，其他默认属性都不得改变

'Form的BackColor设为与蝴蝶图片的背景色一致，本程序中，即&H80000009&

'再加一个Timer1控件

Private Const Pi = 3.1415926535

Private Declare Function SetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long

Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long

Dim x0!, y0!, x1!, x2!, y1!, y2!, foot!, zt% 'x0和y0是图片框长高，(x1,y1)-(x2,y2)是窗体坐标系，foot是蝴蝶移动步长，zt是蝴蝶飞舞的线路标记

Dim k! 'k或1/k是飞行轨迹的斜率

Dim flag As Boolean 'flag判断是顺时针还是逆时针飞舞

Private Sub bmp_rotate(pic1 As PictureBox, pic2 As PictureBox, ByVal theta As Single) '自定义角度旋转图片

Dim c1x As Integer, c1y As Integer

Dim c2x As Integer, c2y As Integer

Dim a As Single

Dim p1x As Integer, p1y As Integer

Dim p2x As Integer, p2y As Integer

Dim n As Integer, r As Integer

c1x = pic1.ScaleWidth / 2

c1y = pic1.ScaleHeight / 2

c2x = pic2.ScaleWidth / 2

c2y = pic2.ScaleHeight / 2

If c2x < c2y Then n = c2y Else n = c2x

n = n - 1

pic1hDC& = pic1.hdc

pic2hDC& = pic2.hdc

For p2x = 0 To n

For p2y = 0 To n

If p2x = 0 Then a = Pi / 2 Else a = Atn(p2y / p2x)

r = Sqr(1& * p2x * p2x + 1& * p2y * p2y)

p1x = r * Cos(a + theta)

p1y = r * Sin(a + theta)

c0& = GetPixel(pic1hDC, c1x + p1x, c1y + p1y)

c1& = GetPixel(pic1hDC, c1x - p1x, c1y - p1y)

c2& = GetPixel(pic1hDC, c1x + p1y, c1y - p1x)

c3& = GetPixel(pic1hDC, c1x - p1y, c1y + p1x)

If c0& <> -1 Then xret& = SetPixel(pic2hDC, c2x + p2x, c2y + p2y, c0&)

If c1& <> -1 Then xret& = SetPixel(pic2hDC, c2x - p2x, c2y - p2y, c1&)

If c2& <> -1 Then xret& = SetPixel(pic2hDC, c2x + p2y, c2y - p2x, c2&)

If c3& <> -1 Then xret& = SetPixel(pic2hDC, c2x - p2y, c2y + p2x, c3&)

Next

t% = DoEvents()

Next

End Sub

Private Sub Place(ByVal picnum As Integer, ByVal x As Single, ByVal y As Single) '控制两个图片框的位置

If picnum = 1 Then

Picture1.Left = x

Picture1.Top = y

Else

Picture2.Left = x

Picture2.Top = y

End If

End Sub

Private Sub Direct(ByVal angle As Integer) '按指定角度旋转图片，angle是角度

angle = angle Mod 360

hudu = (Pi * angle * 1#) / (180 * 1#) '弧度

bmp_rotate Picture1, Picture2, hudu

End Sub

Private Sub Form_Activate()

x1 = 0!

x2 = 10000!

y1 = 0!

y2 = 10000!

Me.Scale (x1, y1)-(x2, y2)

Randomize

Picture1.ScaleMode = 3

Picture2.ScaleMode = 3

x0 = Picture1.Width

Picture2.Width = x0

y0 = Picture1.Height

Picture2.Height = y0

Picture1.Visible = True

Picture2.Visible = False

x = Int(1000 + (x2 - x1 - x0 - 1000) * Rnd) '蝴蝶出发处的横坐标

y = Int(1000 + (y2 - y1 - y0 - 1000) * Rnd) '蝴蝶出发处的纵坐标

k = y / x 'k为撞向水平边框或离开竖直边框的斜率，1/k则为撞向竖直边框或离开水平边框的斜率

Place 1, -x2, y2 - y0 '将图片框的复制源移出窗体的可见范围，但Visible属性又必须是True，否则复制图片会失败

Place 2, x, y '初始化蝴蝶的出发位置

Timer1.Enabled = True

Timer1.Interval = 100 '定义移动周期

zt = 0

End Sub

Private Sub Form_Click()

Timer1.Enabled = Not Timer1.Enabled

End Sub

Private Sub Form_Resize() '窗体改变大小时，坐标系需要重新定义

x1 = 0!

x2 = 10000!

y1 = 0!

y2 = 10000!

Me.Scale (x1, y1)-(x2, y2)

Cls

x0 = Picture1.Width

Picture2.Width = x0

y0 = Picture1.Height

Picture2.Height = y0

'如果蝴蝶在窗体外，则立即召回

If Picture2.Left < x1 Then Place 2, x1, Picture2.Top

If Picture2.Top < y1 Then Place 2, Picture2.Left, y1

If Picture2.Left > x2 - x1 - x0 Then Place 2, x2 - x1 - x0, Picture2.Top

If Picture2.Top > y2 - y1 - y0 Then Place 2, Picture2.Left, y2 - y1 - y0

End Sub

Private Sub Form_Unload(Cancel As Integer)

End

End Sub

'zt=0,1,2,3时，分别表示顺时针向右上（简称顺右上）或逆左下，顺右下或逆左上，顺左下或逆右上，顺左上或逆右下

Private Sub Timer1_Timer()

foot = 100

x = Picture2.Left: y = Picture2.Top

Select Case True

Case (flag = True And zt = 0) Or (flag = False And zt = 2)

Place 2, x + foot, y - k * foot

'Line (x, y)-(x + foot, y - k * foot)

Direct 360

If Picture2.Left > x2 - x1 - x0 - foot Then zt = 1: flag = False '撞到垂直边框，将逆左上

If Picture2.Top < foot Then zt = 1: flag = True '撞到水平边框，将顺右下

Case (flag = True And zt = 1) Or (flag = False And zt = 3)

Place 2, x + foot, y + foot / k

'Line (x, y)-(x + foot, y + foot / k)

Direct 270

If Picture2.Left > x2 - x1 - x0 - foot Then zt = 2: flag = True '撞到垂直边框，将顺左下

If Picture2.Top > y2 - y1 - y0 - foot Then zt = 2: flag = False '撞到水平边框，将逆右上

Case (flag = True And zt = 2) Or (flag = False And zt = 0)

Place 2, x - foot, y + k * foot

'Line (x, y)-(x - foot, y + k * foot)

Direct 180

If Picture2.Left < foot Then zt = 3: flag = False '撞到垂直边框，将逆右下

If Picture2.Top > y2 - y1 - y0 - foot Then zt = 3: flag = True '撞到水平边框，将顺左上

Case (flag = True And zt = 3) Or (flag = False And zt = 1)

Place 2, x - foot, y - foot / k

'Line (x, y)-(x - foot, y - foot / k)

Direct 90

If Picture2.Left < foot Then zt = 0: flag = True '撞到垂直边框，将顺右上

If Picture2.Top < foot Then zt = 0: flag = False '撞到水平边框，将逆左下

End Select

Picture2.Visible = True

End Sub

1、芭蕾舞

芭蕾是最有气质的舞蹈之一。它有专门的芭蕾形体训练，但训练也是非常的辛苦。

2、拉丁舞

拉丁舞属于竞技体育舞蹈的一种。它需要很强的爆发力，有很多的髋部动作，步调也十分曼妙，讲究体态，因而也很提升气质。

3、古典舞

古典舞程序严格，动作规范，也会进行一些形体的训练，所以也能很好的提升气质。

4、尊巴舞

5、肚皮舞

6、萨尔萨舞

萨尔萨舞不亚于伦巴，它的特点是热情奔放，最早出现在古巴。

7、爵士舞

8、华尔兹舞

华尔兹舞主要是旋转，所以也叫圆舞曲，是一种非常优雅的舞蹈。所以也非常的能培养气质。

9、交谊舞

10、踢踏舞

---