Select case - VB (172312)

Формулировка задачи:

Вот код. Можно его написать через Select Case ? я пытался написать но ни как не получается у меня

Dim number As Double
Private Sub Command1_Click()
number = Text1.Text
If number = 1 Then
Text2.Text = "First"
ElseIf number = 2 Then
    Text2.Text = "Second"
 
ElseIf number = 3 Then
    Text2.Text = "Third"

ElseIf number = 4 Then
    Text2.Text = "fourth"
    
ElseIf number = 5 Then
    Text2.Text = "fifth"
    
End If
 
End Sub
 
Private Sub Command2_Click()
Select Case (number)
Case 1

End Sub

Решение задачи: «Select case»

textual
                            Листинг программы 
                        

                            Number = Text1.Text
Select Case Number
Case 1
Text2.Text = "First"
Case 2
Text2.Text = "Second"
Case 3
'и т.д.
End Select
                        

Оцени полезность:

15 голосов , оценка 3.667 из 5

Похожие ответы