VB，VB，VB！！

显示全部楼层 · 2010-12-30 02:22:43

已知某椭圆长轴为3000，短轴为2400，轨道中心为（4000,3000），现要求在窗体上绘制一背景色为黑色的图片框，显示一个半径为400的球体，球体颜色为红色，要求在已知椭圆轨道上运行的动态画面，要求用定时器进行编程，用FormLoad对图片框进行初始化，动画频率为0.1s，点击命令按钮“开始”便开始运行此程序

千问 · 2010-12-30 02:22:43

1.在窗体上加入PictureBox控件，命名为Pic。BackColor为黑色2.在Pic中加入两个Shape控件,分别命名为Ball和Oval。它们的BorderStyle的属性都为1。Ball的FillColor属性为红色，Shape属性为Circle；OVal控件的Shape为Oval，BorderColor为黄色。3.加入一个时钟控件，设Enable=false,InterVal=1004.加入命令按钮，标题为“开始"代码如下：Const pi As Single = 3.1415926Private Sub Command1_Click()ball.Top = 3000 + pic.Width / 11000

千问 · 2010-12-30 02:22:43

楼上的解答不错