Article ID: 178527
Article Last Modified on 12/10/2003
Private Sub Command1_Click()
Dim K0 As Double, K1 As Double, K2 As Double, N As Double
K0 = 0.029204
K1 = -1.0508
K2 = -0.34226
N = 0#
Do While N <= 2.75
N = N + 0.02
Loop
MsgBox -(K1 + 2# * K2 * N) * Exp(K0 + K1 * N + K2 * N ^ 2) - 0.012
End Sub
Private Sub Command2_Click()
Dim D As Double
D = Int(D)
End Sub
Keywords: kbprb KB178527