Predmet:Re: Skola Vb-a za napredne
Evo jos jedan primjer.
U njemu mijenjajte vrijednost z od 1 do 3.
Pokrecite sub PozivR
PreuzmiIzvorni kôd (Visual Basic):Function Izracun(a As Integer, b As Integer, Optional c As Integer = 3)
If c = 1 Then
Izracun = a + b
ElseIf c = 2 Then
Izracun = a * b
Else
Izracun = (a + b) + (a * b)
a = a + b
b = a * b
c = 100
End If
End Function
Sub PozivR()
Dim X As Integer, Y As Integer, Z As Integer, V As Integer
X = 2
Y = 3
Z = 1
V = Izracun(X, Y, Z)
MsgBox "V=" & V & vbCr & "X=" & X & vbCr & "Y=" & Y & vbCr & "Z=" & Z
'vbcr je prelazak u novi red
End Sub
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.