'programmi iniziali di base

Sub ilmioprimoprogramma()
MsgBox "ciao mondo"
End Sub

Sub chiedi()
Dim nome As String

nome = InputBox("Quale e' il tuo nome?")

MsgBox "Ciao " & nome & "!"

End Sub

Sub convinci()
Dim risp As String

Do
risp = InputBox("Sei daccordo?")
Loop While risp <> "Si"

MsgBox "Lo sapevo"

End Sub

Sub Ex_inc()
Dim num As Integer
Dim ris As Integer

num = InputBox("Scrivere un numero")
ris = Incrementa(num)
MsgBox "Il doppio del numero" & num & " e' : " & ris
End Sub

Function Incrementa(num As Integer) As Integer
Incrementa = num * 2
End Function




'programmi esemplificativi dei costrutti di base

Option Explicit

Sub ExIF()
Dim risposta As String

risposta = InputBox("Scegli:" & vbCrLf & "A" & vbCrLf & "B")

If risposta = "A" Then
MsgBox "Hai scelto la prima"
ElseIf risposta = "B" Then
MsgBox "Hai scelto la seconda"
Else
MsgBox "No devi scegliere o A o B"
End If

End Sub

Sub ExDoWhile()
Dim risposta As String
Dim status As Boolean

Do
risposta = InputBox("Scegli:" & vbCrLf & "A" & vbCrLf & "B")

If risposta = "A" Then
MsgBox "Hai scelto la prima"
status = True
ElseIf risposta = "B" Then
MsgBox "Hai scelto la seconda"
status = True
Else
MsgBox "No devi scegliere o A o B"
status = False
End If

Loop While Not status

End Sub


Sub ExFor()
Dim i As Integer
Dim risposta As String

risposta = ""
For i = 1 To 10
risposta = risposta & i & " "
Next

MsgBox risposta

End Sub

Sub ExArray()
Dim i As Integer
Dim vect(10) As Integer

For i = 1 To 10
vect(i) = i
Next

stampa vect

modifica vect

stampa vect

End Sub

Sub modifica(vect() As Integer)
Dim i As Integer
For i = 1 To 10
vect(i) = vect(i) * 3 + 5
Next
End Sub


Sub stampa(vect() As Integer)
Dim risposta As String
Dim i As Integer

risposta = ""
For i = 1 To 10
risposta = risposta & vect(i) & " "
Next
MsgBox risposta

End Sub



'programmi per la manipolazione delle stringhe

Option Explicit

Sub main()
Dim frase As String
frase = InputBox("Inserire una frase")

Call perLettera(frase)
perLettera frase

End Sub

Sub perLettera(frase As String)
Dim i As Integer
Dim lunghezza As Integer
Dim nuovaFrase As String
Dim lettere() As String

nuovaFrase = ""
lunghezza = Len(frase)
ReDim lettere(lunghezza)

For i = 1 To lunghezza
    lettere(i) = Mid(frase, i, 1)
Next i

For i = 1 To lunghezza
    nuovaFrase = nuovaFrase & vbCrLf & lettere(i)
Next i

MsgBox (nuovaFrase)

End Sub



'programmi per la determinazione del massimo

Option Explicit

Sub Massimo()
Dim x As Integer
Dim y As Integer
Dim d As Integer

x = Val(InputBox("Primo numero"))
y = Val(InputBox("Secondo numero"))

d = x - y

If d > 0 Then
MsgBox ("il massimo è il primo numero: " & x)
Else
MsgBox ("il massimo è il secondo numero: " & y)
End If

End Sub

Function Fmassimo(x As Integer, y As Integer) As Integer
Dim d As Integer

d = x - y

If d > 0 Then
Fmassimo = x
Else
Fmassimo = y
End If

End Function

Sub TrovaMassimo()
Dim x As Integer
Dim y As Integer
Dim ris As Integer

x = Val(InputBox("Primo numero"))
y = Val(InputBox("Secondo numero"))

ris = Fmassimo(x, y)

MsgBox ("il massimo è " & ris)

End Sub

Sub TrovaMassimoN()
Dim x As Integer
Dim ris As Integer
Dim i As Integer
Const tot = 3
ris = 0
For i = 1 To tot
    x = Val(InputBox("Numero " & i & " of " & tot))
    ris = Fmassimo(ris, x)
Next i

MsgBox ("il massimo è " & ris)

End Sub

Sub TrovaMassimoNChiedi()
Dim x As Integer
Dim ris As Integer
Dim i As Integer
Dim tot As Integer

tot = Val(InputBox("Quanti numeri? "))

ris = 0
For i = 1 To tot
    x = Val(InputBox("Numero " & i & " of " & tot))
    ris = Fmassimo(ris, x)
Next i

MsgBox ("il massimo è " & ris)

End Sub

Sub TrovaMassimoNCiclo()
Dim x As Integer
Dim ris As Integer
Dim i As Integer

ris = 0
Do
    x = Val(InputBox("Numero "))
    ris = Fmassimo(ris, x)
Loop While Not x = -1

MsgBox ("il massimo è " & ris)

End Sub