設計一個火箭發射程式，要求火箭由慢變快。
uj5u.com熱心網友回復：
一個表單，一個按鈕，一個timer一個像素代表1米
Option Explicit
Dim 火箭質量 As Double
Dim 火箭推力 As Double
Dim S As Double '位移
Dim V As Double
Private Sub Command1_Click()
'根據資料，長征5A 起飛推力8179千牛 起飛質量622.5噸
火箭推力 = 8179 ' 單位：千牛
火箭質量 = 622.5 '單位：千千克
Me.ScaleMode = 3
V = 0 '初始速度和位移均為0
S = 0
Timer1.Interval = 100 '計算時間間隔0.1秒
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Me.Cls
V = V + (火箭推力 - 火箭質量 * 9.8) / 火箭質量 * 0.1
S = S + V * 0.1
'一個像素代表1米高度
Me.Circle (Me.ScaleWidth / 2, Me.ScaleHeight - S), 2, vbRed
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/10445.html
標籤：VB基礎類