verifica1

verifica condizioni con If...End If

per vedere ppt

verifica1
creare due pulsanti(inserire testo)
creare una listbox (nome automatico)
creare una label (inserire testo)

programma:si confrontano con If due numeri
se a>b si esegue il prodotto e si stampa
se a<b si esegue la somma e si stampa


codice da copiare e incollare

Private Sub commandbutton1_Click()
Dim a, b, c, somma, prodotto As Integer
a = 20
b = 40
prodotto = a * b
somma = a + b
Rem se a>b stampa il prodotto
If a > b Then
ListBox1.AddItem (prodotto)
End If
Rem se a<b stampa la somma
If a < b Then
ListBox1.AddItem ("a = 20 < b=40  :somma = " & somma)
End If
End Sub

Private Sub commandbutton2_Click()
Dim a, b, c, somma, prodotto As Integer
a = 40
b = 20
prodotto = a * b
somma = a + b
Rem se a>b stampa il prodotto
If a > b Then
ListBox1.AddItem (" a=40  > b=20 : prodotto = " & prodotto)
End If
Rem se a<b stampa la somma
If a < b Then
ListBox1.AddItem ("a < b :" & somma)
End If
End Sub

verifica con uso di If..Then..Else

per vedere ppt

verifica2
uso di If ..then .else
creare due pulsanti(inserire testo)
creare una listbox(nome automatico)
creare una label(inserire testo)

programma:confronta due numeri a,b
se a> b esegue e stampa la somma
altrimenti (se a<b)
esegue e stampa il prodotto

codice da copiare e incollare

Private Sub commandbutton1_Click()
Dim a, b, prodotto, somma As Integer
a = 10
b = 20
somma = a + b
prodotto = a * b
If a > b Then
ListBox1.AddItem (somma)
Else
ListBox1.AddItem ("a=10 < b=20 : prodotto=" & prodotto)
End If
End Sub

Private Sub CommandButton2_click()
Dim a, b, prodotto, somma As Integer
a = 20
b = 10
somma = a + b
prodotto = a * b
If a > b Then
ListBox1.AddItem ("a=20 >b = 10 :somma=" & somma)
Else
ListBox1.AddItem (prodotto)
End If
End Sub

uso di Select case...case k..end select

per vedere ppt

verifica3
uso di Select case...end select
creare tre pulsanti(inserire testo)
creare una listbox (nome automatico)
un textbox (nome automatico)
una label(inserire testo)

programma:inserire un numero intero 1,2,3,4,5
il programma esegue le istruzioni in funzione
della scelta indicata

codice da copiare e incollare

Private Sub commandbutton1_Click()
Dim intero As Integer
TextBox1.SetFocus
intero = TextBox1
Select Case intero
Case 1
ListBox1.AddItem ("hai premuto 1:unica istruzione")
Case 2
ListBox1.AddItem ("hai premuto 2")
ListBox1.AddItem ("prima istruzione")
Case 3, 4, 5
ListBox1.AddItem ("hai premuto 3 o 4 o 5")
ListBox1.AddItem ("prima istruzione")
ListBox1.AddItem ("seconda istruzione")
End Select
ListBox1.AddItem ("-----------------")
End Sub

Private Sub commandbutton2_Click() 'cancella scelta inserita
TextBox1 = ""
TextBox1.SetFocus
End Sub

Private Sub commandbutton3_Click() 'cancella tutto
ListBox1.Clear
TextBox1 = ""
TextBox1.SetFocus
End Sub

uso di IF..Then...Else e confronto di stringhe con inserimento stringa richiesta

per vedere ppt

verifica4
uso di IF..ELSE e confronto tra due stringhe
creare 2 pulsanti(inserire testo)
creare una listbox(nome automatico)
creare una textbox(nome automatico)
creare una label(inserire testo)

programma:chiede capitale di nazione indicata
confronta con valore memorizzato
risponde esatto o visualizza risposta esatta memorizzata

codice da copiare e incollare


Private Sub commandbutton1_Click()
Rem confronta stringa in entrata con valore memorizzato
Dim r, capitale As String
r = TextBox1 ' stringa da inserire'
capitale = "parigi" 'valore memorizzato'
If r = capitale Then 'confronta stringhe'
ListBox1.AddItem ("esatto")
Else
ListBox1.AddItem ("errato:era = " & capitale)
End If
End Sub

Private Sub commandbutton2_Click() 'cancella dati inseriti'
ListBox1.Clear
TextBox1 = ""
End Sub