Why not use the Formula Root Root?
[Users questions | Browse:57 | Favorites]
Users questions: b^2-4*a*c)^(0.5))*2*aX2=(-b+(b^2-4*a*c))^(0.5)*2*aEndIfEndSubPrivateSubCommand1_Click()Print x1= ,X1 Print "x2 =", X2EndSubPrivateSubCommand2_Click () Form1.ClsEndSub I thought that as long as three TEXT text box enter the value of ABC to the root of the equation can be found, but only Display X = Why?
Experts answer: You must be operational only after a value of abc, X1 and X2 of the expression is wrong, the code read as follows: OptionExplicitDimaAsIntegerDimbAsIntegerDimcAsInte gerDimX1AsSingleDimX2AsSinglePrivateSubCommand1_Click() a*X^2+b*x+C=0a=Val(Text1)b=Val(Text2)c=Val(T Print x1= ;X1Print x2= ;X2EndSubPrivateSubCommand2_Click()Form1.ClsEndSubPrivateSubForm_Load()Text1= Val (Text3) Ifb ^ 2-4 * a * c 0ThenMsgBox "equation has no solution!" Else: X1 = (-b + (b ^ 2-4 * a * c) ^ 0.5) * (2 * a) X2 = ( -b-(b ^ 2-4 * a * c) ^ 0.5) * (2 * A) EndIfPrint "x1 ="; X1Print "x2 ="; X2EndSub
Experts answer: You must be operational only after a value of abc, X1 and X2 of the expression is wrong, the code read as follows: OptionExplicitDimaAsIntegerDimbAsIntegerDimcAsInte gerDimX1AsSingleDimX2AsSinglePrivateSubCommand1_Click() a*X^2+b*x+C=0a=Val(Text1)b=Val(Text2)c=Val(T Print x1= ;X1Print x2= ;X2EndSubPrivateSubCommand2_Click()Form1.ClsEndSubPrivateSubForm_Load()Text1= Val (Text3) Ifb ^ 2-4 * a * c 0ThenMsgBox "equation has no solution!" Else: X1 = (-b + (b ^ 2-4 * a * c) ^ 0.5) * (2 * a) X2 = ( -b-(b ^ 2-4 * a * c) ^ 0.5) * (2 * A) EndIfPrint "x1 ="; X1Print "x2 ="; X2EndSub
- The logical operators in vb
- Seek expert help me write a vbs script timed
- VB enrollment management system requirements
- How to do a form in VB
- Score key demand VB way to send analog
- mdiform
- Younger brother to help translate what is really do not understand ah!
- VB datagrid how to set the two parent-child relationship?
- DIR How to use?
- How this code does not match the type of display?
- This information provided by the users.Thanks!
Computer Knowledge Copyright 2005-2015 All Rights Reserved.