Visual Basic Не могу понять где в коде ошибка

Question

Вот код: Private Sub CmdZ_Click() x = InputBox("Ââåñòè çíà÷åííÿ x", "Ââîäèìî x") a = 0.45 c = 1.68 If (x >= 0.5) And (x < 2.7) Then z = 1 / Tan(c) / (10 - a) ElseIf (x = 2.7) Then z = (x + c) ^ 5 ElseIf (x > 2.7) And (x <= 4) Then z = 3 End If LstZ.AddItem (z) End Sub И формула: ctg c _____ если 0,5<=x<2,7 10-a z=( (x+c) ^5 если x=2,7 3 если 2,7 z= в фигурных скобках : ctg c _____ если 0,5<=x<2,7 10-a z=( (x+c) ^5 если x=2,7 3 если 2,7. В InputBox это на украинском языке. (поэтому и иероглифы) ? я на Visual basic только пример проверил все работает, а у меня где то что то не так. Если вы не разбераетесь в програмирование, то зачем тогда писать что это не Visual Basic? Вам исходник или сам проект в exe файле скинуть? 3 если 2,7

Uktam Uktam · Accepted Answer

это не вижуал бейсик