Rem funzioni logicheRem vero OR vero TRUE se almeno una condizione veraPrivate Sub CommandButton1_

OR logica
esercitazione a livello didattico con visual basic su powerpoint sintassi variabili tipo booleano OR
Rem funzioni logiche Rem vero OR vero TRUE se almeno una condizione vera Private Sub CommandButton1_Click() Dim x As Integer Dim y As Integer Dim q As String q = "...." x = -10 y = 20 Lista.AddItem (x & q & y) Lista.AddItem (" vero se almeno una condizione vera") Lista.AddItem (" se segni discordi è vero , se concordi è falso") If verificaOR(x, y) Then Lista.AddItem ("vero " & x * y) Else Lista.AddItem ("falso " & x + y) End If End Sub Private Sub CommandButton2_Click() Dim x As Integer Dim y As Integer Dim q As String q = "...." x = -10 y = -20 Lista.AddItem (x & q & y) If verificaOR(x, y) Then Lista.AddItem ("vero " & x * y) Else Lista.AddItem ("falso " & x + y) End If End Sub Public Function verificaOR(x As Integer, y As Integer) If x > 0 Or y > 0 Then verificaOR = True Else verificaOR = False End If End Function Private Sub UserForm_Click() End Sub
vedi orlogica.ppt

Leggi tutto l'articolo