當前位置:編程學習大全網 - 網站源碼 - 急需!用VB編寫壹個模擬行星繞太陽的程序

急需!用VB編寫壹個模擬行星繞太陽的程序

Dim x,y

Dim k As Single

Private Sub Command1_Click() ‘開始演示

Timer1.Enabled=_____________

End Sub

Private Sub Command2_Click() ‘停止

Timer1.Enabled=_____________

End Sub

Private Sub Form_Load()

ScaleWidth=100

ScaleHeight=100

End Sub

Private Sub Timer1_Timer()

k=k+0.05

x=50+30*Cos(k)

y=50+15*Sin(k)

Form1. ____________

FillStyle=_____________

FillColor=vbRed

Circle(50,50),6,vbRed

FillStyle=_____________

Circle(50,50),30,,,,0.5

FillStyle=0

FillColor=vbBlue

Circle(x,y),2,vbBlue

End Sub

橫線部分不知道該怎麽弄

  • 上一篇:ARms指標的相關信息
  • 下一篇:股市火箭升空是怎樣形態
  • copyright 2024編程學習大全網