Dim a!, b!, c! Private Sub Form_Load() a = Round((3 * Log(2) / Log(10)), 3) b = Round(Cos(pi / 3), 3) c = Round(7 ^ (1 / 3), 3) Text1.Text = a: Text2.Text = b: Text3.Text = c End Sub Private Sub Command1_Click() Rem x = Val(Text4.Text) If x > a Then f = Round((Atn(b + x)) + Cos(b), 3) Text5.Text = x: Text7.Text = f ElseIf x = a Then f = Round(Atn(x - b) - (1.3 * x), 3) Text6.Text = x: Text8.Text = f Else z = (1.5 + x) f = Round(Atn(z / (1.3 * a) + (c ^ 3 * b)), 3) Text9.Text = x: Text10.Text = f End If End Sub

The task

The answers that are needed are not obtained, it can be seen in the assignment, is the help that I am doing wrong ??

  • The last formula is wrong - Grundy
  • yes, I did something nagging with the last one, but the two previous ones did not correctly count, either the answer is not correct or I didn’t do it right - spingalet

1 answer 1

Itself nupil, should coincide only one number with X