Constants In Exponential Notation

Const

Constant

Constant

Const

All capital letters

All lowercase letters

First letter capital and the rest lowercase

Capitals for each new word

Const Gravity = 1.07 * 10 ^ -9 ft^3/lb*sec^2

Const GRAVITY = 1.07E-9

Constant Gravity = -1.07 x 10^9

Const GRAVITY = 1.07 e 9

Const WEIGHTEARTH = 1.315E10^25

WeightEarth Const = 1.315 * 10 ^ -25

Const WEIGHTEARTH = 1.315e25

Constant WeightEarth = 1.315E-25

Ft Radius_Earth = 20,882,400

Const RADIUSEARTH = 20882400

Const RadiusEarth = 20,882,400 ft

Constant RADIUSEARTH = 20882400 FEET

Dim Elevation As Single

Dim Elevation As String

Dim Elevation As Integer

Const Elevation = 20000

Dim Acceleration As Integer

Dim Acceleration As String

Const Acceleration As Single

Dim Acceleration As Single

Acceleration = GRAVITY * WEIGHTEARTH / (RADIUSEARTH + Elevation) ^ 2

A = G * W / R + E ^ 2

Acceleration = Gravity * WeightEarth / RadiusEarth + Elevation ^ 2

Acceleration = (Gravity * WeightEarth / RadiusEarth + Elevation) ^ 2

For Elevation = 1 To 20000

For Elevation = 0 To 1000

For Acceleration = 1 To 1000 Step 20000

For Elevation = 0 To 20000 Step 1000

Dim ResultString As Integer

Dim ResultString As Single

Const ResultString = 32.2

Dim ResultString As String

ResultList.AddItem ResultString

ResultList.Clear ResultString

ResultString.AddItem ResultList

ResultString.AddItem Sum

Next Loop

Next Elevation

End If

End Loop

LblGravity

CmdGravity

MnuGravity

TxtGravity

CmdClear.SetFocus

MnuClear.SetFocus

Clear.SetFocus

CmdClear.Focus