pro19

selezione con CASE k OF ...SELECT K CASE pascal vba visualbasic excel

PASCAL

program pro19;
(*selezione con CASE k OF *)
uses crt;
var a,b,c,d,k:integer;
begin
clrscr;
a:=10;
b:=20;
c:=30;
d:=40;
k:=1;
case k of
 1:writeln(a*b);
 2:writeln(c*d);
 3:writeln(a+b+c+d);
end;
(* selezione multipla*)
k:=8;
case k of
 1:writeln(a*b);
 2,3,4:writeln(b*d);
 5,6:writeln(a+b+c+d);
  else
   writeln(a*a*a);
end;
readln;
end.

RUN e visualizza

200

1000

ritorna

VBA per EXCEL creare PULSANTE per istruzioni

PULSANTE 
Private Sub CommandButton1_Click()
Dim a, b, c, d, k As Integer
a = Cells(1, 1)
b = Cells(1, 2)
c = Cells(1, 3)
d = Cells(1, 4)
k = 1
Select Case k
Case 1
 Cells(2, 1) = a * b
 Cells(3, 1) = a * a * a
Case 2,3,4
 Cells(4, 2) = a + b
Case 5,6
 Cells(5, 3) = a - b
End Select
End Sub
  A B C D
1 10 20 30 40
2 30      
3 1000      
4        
5        
         

ritorna

VISUAL BASIC creare PULSANTE e inserire istruzioni

PULSANTE 
Private Sub CommandButton_click()
Dim a, b, c, d, k As Integer
label1.caption=10
label2.caption=20
label3.caption=30
label4.caption=40
a=label1.caption
b=label2.caption
c=label3.caption
d=label4.caption
k = 1
Select Case k
Case 1
 label5.caption = a * b
 label6.caption= a * a * a
Case 2,3,4
 label7.caption = a + b
Case 5
 label8.caption = a - b
End Select

End Sub
10...... 20..... 30.... 40.... 200 1000 label7 label8

ritorna

EXCEL
scrivere valori in celle A1,B1,C1,D1,E1

  A B C D E
1 10 20 30 40 1
2 =SE(E1=1;A1+B1;"***")        
3 =SE(E1=2;A1*B1;"***")
       
4 =SE(E1=3;A1-B1;"***")
       
5           






    

         
        A
        B
        C
        D
        E
    

    

        1
        10
        20
        30
        40
        1
    

    

        2
        30
         
         
         
         
    

    

        3
        ***

        		
         
         
         
         
    

    

        4
        ***

        		
         
         
         
         
    







 



ritorna



inizio