Visual Basic 6.0在一元三次方程式之實數解的程式應用
Visual Basic 6.0 在一元三次方程式之實數解的程式應用 5 h = (3 * a * c - b ^ 2) / (3 * a ^ 2) K = (27 * a * a * d - 9 * a * b * c + 2 * b ^ 3) / (27 * a ^ 3) 平移1.Text = h 平移2.Text = K If d = 0 Then GoTo 一元二次方程式 r = (2 / (3 ^ 0.5)) * Sqr(-h)
www.shs.edu.tw |