pro21

gestione variabili indicizzate

PASCAL

program pro21;
uses crt;
var a:integer;
    intero:array[1..5] of integer; (* dichiara vettore 5 interi *)
    lettera:array[1..5] of char;
    testo:array[1..5] of string[10];
    numero:array[1..5] of integer;
begin
clrscr;
(* assegna valore a variabile *)
intero[1]:=10;
intero[2]:=20;
intero[3]:=30;intero[4]:=40;intero[5]:=50;
lettera[1]:= 'a';lettera[2]:= 'b';
lettera[3]:= 'c';lettera[4]:= 'd';
lettera[5]:= 'e';
testo[1]:='rosso';  testo[2]:='verde';testo[3]:='giallo';
testo[4]:='azzurro';testo[5]:='bianco';
(* stampa valori inseriti nelle variabili *)
for a:=1 to 5 do
begin
writeln(intero[a]);
writeln(lettera[a]);
writeln(testo[a]);
end;
(* inserimento valori da tastiera *)
for a:=1 to 5 do
begin
write('scrivi intero=');readln(numero[a]);
end;
(* stampa valori inseriti *)
for a:=1 to 5 do
writeln(numero[a]);
readln;
end.

RUN e visualizza

rosso
10
a
verde
20
b
giallo
30
c
azzurro
40
d
bianco

50

e

scrivi intero=1
scrivi intero=2
scrivi intero=3
scrivi intero=4
scrivi intero=5
1
2
3
4
5

VBA per EXCEL creare PULSANTE per istruzioni

Private Sub CommandButton1_Click()

'crea vettori con 5 elementi '
Dim intero(5) As Integer
Dim testo(5) As String
Dim k As Integer
'assegna valore alle variabili '
intero(1) = Cells(1, 1)
intero(2) = Cells(1, 2)
intero(3) = Cells(1, 3)
intero(4) = Cells(1, 4)
intero(5) = Cells(1, 5)
testo(1) = Cells(3, 1)
testo(2) = Cells(3, 2)
testo(3) = Cells(3, 3)
testo(4) = Cells(3, 4)
testo(5) = Cells(3, 5)
'visualizza valori delle variabili integer'
For k = 1 To 5
 Cells(2, k) = intero(k)
 Next k
'visualizza valori variabili string '
For k = 1 To 5
 Cells(4, k) = testo(k)
 Next k
 
End Sub

scrivi in celle prima riga e terza riga valori indicati

clicca su PULSANTE per vedere risultato

VISUAL BASIC creare PULSANTE per istruzioni e 10 label e 2 textbox

Private Sub CommandButton1_Click()
'crea vettori con 2 elementi '
Dim intero(2) As Integer
Dim testo(2) As String
Dim numero(2) As Integer

'assegna valore alle variabili '
intero(1) = Label1.Caption
intero(2) = Label2.Caption
testo(1) = Label3.Caption
testo(2) = Label4.Caption

'visualizza valori delle variabili integer'
Label5.Caption = intero(1)
Label6.Caption = intero(2)
Label7.Caption = testo(1)
Label8.Caption = testo(2)
'richiede e poi visualizza numeri interi'
numero(1) = TextBox1.Text
numero(2) = TextBox2.Text
Label9.Caption = numero(1)
Label10.Caption = numero(2)
End Sub

inserire i dati in label1,label2,label3,label4 e in textbox1,textbox2:cliccare PULSANTE

inizio