VB编程程序练习题.doc

VB编程练习题1、* 编写程序：输入一元二次方程的系数a,b,c的值，求解一元二次方程的根。Private Sub Command1_Click()Dim a#, b#, c#a = Val(InputBox(参数a=) b = Val(InputBox(参数b=) c = Val(InputBox(参数c=) Call root(a, b, c)End SubPrivate Sub root(x#, y#, z#)Dim t#, x1#, X2#t = y * y - 4 * x * zIf t 0 Thenx1 = (-y + Sqr(t) / (2 * x)X2 = (-y - Sqr(t) / (2 * x)Print 实根; x1=; x1, x2=; X2 Elsex1 = -y / (2 * x): X2 = Sqr(Abs(t) / (2 * x)