pubblica

con Public dichiara pubblica la variabile risposta
che sarà nota in tutte le subroutine

Public risposta As Integer

Private Sub CommandButton1_Click()
Rem con Public dichiara pubblica la variabile risposta
Rem che sarà nota in tutte le subroutine
risposta = 100
End Sub

Private Sub CommandButton2_Click()
Dim n As Integer
n = TextBox1.Text
If n < risposta Then
ListBox1.AddItem (n & " basso")
End If
If n > risposta Then
ListBox1.AddItem (n & " alto")
End If
If n = risposta Then
ListBox1.AddItem (n & " esatto")
End If
End Sub

Private Sub CommandButton3_Click()
TextBox1 = ""
End Sub

vedi pubblica.ppt

variante con inserimento da tastiera per numero da indovinare
dichiarazione pubblica delle tre variabili
conteggio del numero di tentativi per trovare numero richiesto

Public risposta As Integer, n As Integer, k As Integer

Private Sub CommandButton1_Click()
Rem con Public dichiara pubbliche le variabili risposta,n,k
Rem che saranno note in tutte le subroutine
Rem inserire numero da proporre per essere indovinato
Rem memorizzarlo e nasconderlo all'utente
risposta = TextBox2.Text
Rem contatore per tentativi fino alla soluzione
k = 0
End Sub

Private Sub CommandButton2_Click()
Rem inserire numero da confrontare con quello nascosto
Rem riprovare per tentativi
n = TextBox1.Text
If n < risposta Then
ListBox1.AddItem (n & " basso")
End If
If n > risposta Then
ListBox1.AddItem (n & " alto")
End If
If n = risposta Then
ListBox1.AddItem (n & " esatto")
End If
k = k + 1
ListBox1.AddItem ("tentativo = " & k)
End Sub

Private Sub CommandButton3_Click()
TextBox2 = ""
End Sub

Private Sub CommandButton4_Click()
TextBox1 = ""
TextBox1.SetFocus
End Sub

vedi pubblica2.ppt

variante del precedente con generazione casuale del numero da proporre,
sua visualizzazione e successivo nascondimento

Public risposta As Integer, n As Integer, k As Integer

Private Sub CommandButton1_Click()
Rem con Public dichiara pubbliche le variabili risposta,n,k
Rem che saranno note in tutte le subroutine
Rem generare numero casuale da proporre per essere indovinato
Rem memorizzarlo e nasconderlo all'utente
risposta = Int(100 * Rnd())
TextBox2.Text = risposta
Rem contatore per tentativi fino alla soluzione
k = 0
End Sub

Private Sub CommandButton2_Click()
Rem inserire numero da confrontare con quello nascosto
Rem riprovare per tentativi
n = TextBox1.Text
If n < risposta Then
ListBox1.AddItem (n & " basso")
End If
If n > risposta Then
ListBox1.AddItem (n & " alto")
End If
If n = risposta Then
ListBox1.AddItem (n & " esatto")
End If
k = k + 1
ListBox1.AddItem ("tentativo = " & k)
End Sub

Private Sub CommandButton3_Click()
TextBox2 = ""
End Sub

Private Sub CommandButton4_Click()
TextBox1 = ""
TextBox1.SetFocus
End Sub

vedi pubblica3.ppt

variante della precedente : uso di Select Case invece di If

Public risposta As Integer, n As Integer, k As Integer

Private Sub CommandButton1_Click()
Rem con Public dichiara pubbliche le variabili risposta,n,k
Rem che saranno note in tutte le subroutine
Rem generare numero casuale da proporre per essere indovinato
Rem memorizzarlo e nasconderlo all'utente
risposta = Int(100 * Rnd())
TextBox2.Text = risposta
Rem contatore per tentativi fino alla soluzione
k = 0
End Sub

Private Sub CommandButton2_Click()
Rem inserire numero da confrontare con quello nascosto
Rem riprovare per tentativi
n = TextBox1.Text
Select Case n
Case Is < risposta
ListBox1.AddItem (n & " basso")
Case Is > risposta
ListBox1.AddItem (n & " alto")
Case Is = risposta
ListBox1.AddItem (n & " esatto")
End Select
k = k + 1
ListBox1.AddItem ("tentativo = " & k)
End Sub

Private Sub CommandButton3_Click()
TextBox2 = ""
End Sub

Private Sub CommandButton4_Click()
TextBox1 = ""
TextBox1.SetFocus
End Sub