| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > VB .NET > Функция |
| Автор: Alfis 14.12.2008, 11:47 |
| скачал готовую программу в интернете написанной в бейсике для решения квадратного уравнения: Private Sub Command1_Click() Dim a, b, c, D, x1, x2 As Double a = (Text1.Text) b = (Text2.Text) c = (Text3.Text) D = b * b - 4 * a * c If D = 0 Then x1 = -b / (2 * a) x2 = x1 Text4.Text = "x1 = " + Conversion.CStr(x1) + ", x2 = " + Conversion.CStr(x2) End If If D < 0 Then Text4.Text = "Уравнение не имеет корня" End If If D > 0 Then x1 = (-b + Sqr(D)) / (2 * a) x2 = (-b - Sqr(D)) / (2 * a) Text4.Text = "x1 = " + Conversion.CStr(x1) + ", x2 = " + Conversion.CStr(x2) End If End Sub программа работает но я немогу понять что выполняет функция + Conversion.CStr(x1) +. Обьясните пожалуста. |
| Автор: diadiavova 14.12.2008, 18:39 |
| Конвертирует число в строку. |