Home Page

FOTO

Teacher

  

 On line Il sito Il mio curriculum Ruoli e Crediti Formativi Competenze da acquisire Regole didattiche   Contatore visite (dal 18-10-07) N° Hit Counter

Sito  curato dal prof. Alberti Alberto, attualmente docente di Informatica per le classi   III B SIA / IV B SIA / V B SIA / III A AFM / IV A AFM  dell'ITCG "FErmi" di Vittoria Scrivimi!
Esercitazioni Corsi PON / TIC Album Fotografico Ricreazione

Forum didattico

 Libro degli ospiti Corso per Docenti Progetti Alunni

IIS: Fermi

3° Anno AFM

3° Anno  SIA

4°Anno AFM

4°Anno SIA

5°Anno SIA

Algoritmi fondamentali:

Flow Chart

Codice

Ricordi

Statistiche

Sottoprogrammi con parametri in VISUAL BASIC

Osserva questo frammento di programma:

Dim x As Integer, y As Integer
Sub varia(ByRef a As Integer, ByRef b As Integer)
a = a + 1
b = b + 1
MsgBox a ^ b
End Sub


Private Sub Form_Load()
x = 2
y = 1
varia x, y
End Sub

  1. Cosa verrà stampato?

  2. Qual'è il valore finale di x ?

  3. Qual'è il valore finale di y ?

Osserva questo frammento di programma:

Dim x As Integer, y As Integer
Sub varia2(ByVal a As Integer, ByRef b As Integer)
a = a * 7
b = b + 3
MsgBox a \ b
End Sub


Private Sub Form_Load()
x = 2
y = 0
varia2 x, y
End Sub

  1. Cosa verrà stampato?

  2. Qual'è il valore finale di x ?

  3. Qual'è il valore finale di y ?

 

Osserva questo frammento di programma:

Dim x As String, y As Integer
Sub prendi(ByVal a As String, ByRef n As Integer)
Dim c as string
c = Right(a, 2) & Left(a, 3)
n = n + 1
MsgBox c
End Sub


Private Sub Form_Load()
x = "PROVACI"
y = 2
prendi x, y
End Sub

  1. Cosa verrà stampato?

  2. Qual'è il valore finale di y ?

 

Osserva questo frammento di programma:

Option Explicit
Dim X As Date

Sub somma(ByRef X As Date)
Dim g As Integer, m As Integer, a As Integer
g = Day(X)
m = Month(X)
a = Year(X)
a = a Mod 10
MsgBox g + m + a
X = X + 1
End Sub


Private Sub Form_Load()
X = #11/11/2005#
somma X
End Sub

  1. Cosa verrà stampato?

  2. Qual'è il valore finale di x ?

Soluzioni

1 2 3 4 5 6 7 8 9 10
     

IPC:Professionale per il commercio

Terzo Anno

Quarto Anno

Quinto Anno