Přidání evidence počtu pokusů a počtu výher

Pro účel evidence počtu pokusů a počtu výher si můžete definovat dvě pomocné proměnné na úrovni třídy.
Zařaďte do kódu třídy formuláře Form1 (Do konstrukce Public Class Form1 těsně nad první proceduru)
příkaz:
Dim PočetVýher, PočetPokusů As Integer
VB6. Na rozdíl od dřívějších deklaračních pravidel se obě proměnné deklarují jako Integer.
Dříve se první deklarovala jako Variant a jen druhá jako Integer. Mimochodem, datový
typ Variant už není, místo něho se používá obecný typ Object. A ani Integer není to, co
dříve. Odpovídá dřívější deklaraci Long a dřívějšímu typu Integer odpovídá nový datový
typ Short.
Na začátek událostní procedury tlačítka s nápisem Roztočit přidáme potřebné deklarace, připočteme jedničku
k počitadlu počtu pokusů a přiřadíme počet pokusů a procentové vyjádření úspěšnosti do vlastností
Text odpovídajících popisků.
Dim i As Integer
Dim strCislo As String
PočetPokusů += 1
lblPočetPokusů.Text = CStr(PočetPokusů)
lblPočetPokusůVProcentech.Text = FormatPercent(PočetVýher / PočetPokusů, 2)
V třetím řádku shora se využívá nový operátor, který kombinuje přičtení hodnoty a uložení do proměnné
na levé straně. Obdobné operátory jsou k dispozici i pro další základní operace: -=, *=, /=, \=, ^= a &=.