Сократить код, содержащий множество условий - Visual Basic .NET
Формулировка задачи:
Подскажите, как можно сократить данный код, чтобы не писать 8 раз почти одно тоже (только с сдвигом)? С каждым разом увеличивается номер комбобокса на 1 и текстовые поля на 5
Я так понимаю тут надо циклом, но не пойму как его прикрутить
Решение задачи: «Сократить код, содержащий множество условий»
textual
Листинг программы
'не знаю какой у Вас тип должен быть Dim alf(4) As String : alf(0) = halphaSiO2 : alf(1) = salphaSiO2 : alf(2) = aalphaSiO2 : alf(3) = balphaSiO2 : alf(4) = calphaSiO2 Dim s As String() = {"SiO2 (ОІ-кварц)", "SiO2 (О±-кварц)", "SiO2 (О±-тридимит)", "SiO2 (ОІ-кристобалит)", "SiO2(к) кварц", "SiO2(к) тридимит", "SiO2(к) кристобалит", "SiO2 (полиморф.)"} If z > 846.15 Then For i As Integer = 1 To 8 For j As Integer = 0 To s.Length - 1 If Me.Controls("ComboBox" & i).Text = s(j) Then For k As Integer = 1 To 5 Me.Controls("TextBox" & ((i - 1) * 5 + k)).Text = alf(k - 1) Next Exit For End If Next j Next End If
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д