完成一个行星程序的设计，一个蓝色的小圆围绕红色大圆沿椭圆轨道运行。椭圆方程为：x=x0+rx*cos（alfa），y=y0+ry*sin（alfa），其中X0，Y0为椭圆圆心坐标，RX为水平半径，RY为垂直半径，ALFA为圆心角。具体要求如下：
1）在窗体中引入一个合适大小的形状控件SHAPE2，将SHAPE2的SHAPE属性设置为圆形、蓝色。
2）TIMER的时间间隔为0.1秒。
3）代码窗口中的内容填充完整。
效果如图所示。
您可能感兴趣的试卷
你可能感兴趣的试题
画出下列各段程序运行的结果。
写出下列各段程序运行的结果。
A.ScaleWidth
B.Width
C.Height
D.DrawMode
A.
B.Picture1.Picture=""
C.
D.killPicture1.Picture
A.
B.
C.
D.
A.运行时输出的文字和图形
B.设计时放置的控件
C.Picture属性设置的背景图案
D.以上三项
最新试题
数组默认下标政界为（），假如希望下标从1开始，则应通过（）语句来设置。
当重新分配动态数组的内容时，数组中的内容将被清除，如果在redim语句使用了（），则会保留数组中的内容。
（）运算符用来比较两个对象的引用变量。
局部变量只有声明它们的过程中才能被识别，又被称（）。
逻辑运算符从高到低顺序为（）、（）、（）、Xor、Eqv、Imp。
在声明一个变量后，VB会自动将数值型的变量赋初值为（），将字符串或Variant数据类型的变量赋初值为（），将布尔型赋初值为（），将日期型的变量赋初值为00：00：00。
在VB中，数组的维数最为（）数组维数增加将使内存急剧增加。
如果希望在过程结束之后还能保持过程中局部变量的值，则应该使用（）来声明为静态变量。
模块级变量使用（）或（）来声明，全局变量使用（）声明。
在VB中，可以使用（）语句来调用过程。