Question

vb程序设计试题

求助：
已知一个椭圆轨道长轴为3000，短轴为2000，且中心坐标为（4000,3000）。在窗体上绘制一个背景为黑色的图片框，显示一个半径为400的球体，球体颜色为红色，在已知的椭圆上运行的动态效果界面。（黑色背景，上面一个椭圆轨道，有个球沿轨道运动）
用定时器进行编程或Timer函数编程，用Formload对图片框定时器进行初始化，设定动画频率为0.1秒。点击“ 开始” 命令按钮开始动画。
vb,要求写出程序编码。

谢谢！

Answer 1

Option Explicit

Dim PX As Single '中心坐标X
Dim PY As Single '中心坐标Y
Dim Rc As Single '轨道半径
Dim Rb As Single '小球半径

Dim Arg As Single ' 运转角度

Const Stp As Single = 3.14159 / 10 '运转速度

Private Sub Form_Load()
Picture1.Width = 8000
Picture1.Height = 8000
Picture1.BackColor = vbBlack
Timer1.Interval = 200
PX = 4000
PY = 4000
Rc = 3000
Rb = 500
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Dim X As Single, Y As Single
Arg = Arg + Stp
X = PX + Rc * Cos(Arg)
Y = PY - Rc * Sin(Arg)
Picture1.Cls
Picture1.Circle (PX, PY), Rc, vbYellow
Picture1.Circle (X, Y), Rb, vbRed
End Sub

Answer 2

这个程序不难,自已动手吧,不会按下F1自己查,再不会说明你不适合玩VB.