编程写地球

Ⅰ 地球围绕太阳转动，用Flash怎么设计 VB编程：1加到100 怎么做啊

假设有两影片剪辑:地球,太阳(as链接名)
as3.0 code:
var a地球 = new 地球();
var a太阳 = new 太阳();
var myMC:MovieClip = new MovieClip();

myMC.addChild(a地球);
a地球.x = 50
this.addChild(a太阳);
this.addChild(myMC);
myMC.x = 100;
myMC.y = 100;
a太阳.x = 100;
a太阳.y = 100;

var TimerInstance:Timer = new Timer(100);
TimerInstance.addEventListener(TimerEvent.TIMER, TimerHandler);
TimerInstance.start();

var p:Number = 0;
var q:Number = 0;

function TimerHandler(event:TimerEvent):void
{
p += 1;
q += 2;
myMC.rotation = p;
a地球.rotation = q;
if (p == 360)
{
p = 0;
}
if (q == 360)
{
q = 0;
}
}

VB
code:
#include<stdio.h>

int main()
{
int i,s;
for(i=0,s=0;i<=100;i++)
s+=i;
}