編程寫地球

Ⅰ 地球圍繞太陽轉動，用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;
}