Skocz do zawartości
  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • Pełny dostęp do działów i ukrytych treści
    • Możliwość pisania i odpowiadania w tematach
    • System prywatnych wiadomości
    • Zbieranie reputacji i rozwijanie swojego profilu
    • Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

[PROBLEM] Kod


Rekomendowane odpowiedzi

Opublikowano

Select ma taką składnię

        Dim zmienna As Integer = 1

Select Case zmienna

Case 1

MsgBox("jeden")

 

Case 2

MsgBox("dwa")

 

Case 4

MsgBox("cztery")

 

End Select

Poza tym przy 5 masz dopisane "s"
Opublikowano

Dim zmienna As Integer = Rnd() * 10 + 1

Select zmienna

Case 1

txtBox1.Text = "abc"

Case 2

txtBox1.Text = "def"

Case n

txtBox1.Text = "gasgasggsa"

End Select

 

gdzie n to kolejny nr

Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

×
×
  • Dodaj nową pozycję...