2
Rješavanje zadataka u programskom jeziku Vizual Basic
Primjer 1. Fibonačijev niz
Načiniti program koji izračunava sve članove fibonačijevog niza do zadanog broja.
Forma programa:
Slika 1. Fibonacijev Niz
Kod programa:
Public
Class
frmFibNiz
Private
Sub
btnIzracunaj_Click(
ByVal
sender
As
System.
Object
,
ByVal
e
As
System.
EventArgs
)
Handles
btnIzracunaj.Click
Dim
nizN()
As
Integer
, i
As
Integer
, n
As
Integer
n = Val(txtUnos.Text)
If
n < 2
Or
txtUnos.Text =
""
Then
MessageBox
.Show(
"Unijesite vrijednost veću od
broja 1"
)
txtUnos.Clear()
txtUnos.Focus()
Else
4
Primjer 2. Armstrongov broj
Načiniti program koji za uneseni prirodni broj n<1000 provjera da li je Armstrongov broj.
Forma programa:
Slika 2. Armstrongov broj
Kod programa:
Public
Class
Form1
Private
Sub
btnIzracunaj_Click(
ByVal
sender
As
System.
Object
,
ByVal
e
As
System.
EventArgs
)
Handles
btnIzracunaj.Click
Dim
broj, a, b, c, d
As
Integer
broj = Int(TextBox1.Text)
If
broj < 1
Then
MessageBox
.Show(
"Broj koji ste unjeli nije
prirodan"
)
ElseIf
broj > 1000
Then
MessageBox
.Show(
"Najveci broj koji mozete
unijeti je 999"
)
Else
a = (broj - (broj
Mod
100)) / 100
b = ((broj
Mod
100) - (broj
Mod
10)) / 10
5
c = (broj
Mod
10)
d = (a * a * a) + (b * b * b) + (c * c * c)
If
d = broj
Then
MessageBox
.Show(
"Broj koji ste unijeli je
Armstrongov."
)
Else
MessageBox
.Show(
"Broj koji ste unijeli nije
Armstrongov."
)
End
If
End
If
End
Sub
Private
Sub
Label1_Click(
ByVal
sender
As
System.
Object
,
ByVal
e
As
System.
EventArgs
)
Handles
Label1.Click
End
Sub
End
Class
Primjer 3. Determinanta
Načiniti program koji izračunava determinantu.
Forma programa:
Slika 3. Determinanta
7
Kod programa:
Public
Class
Determinanta
Dim
a11
As
Integer
Dim
a12
As
Integer
Dim
a13
As
Integer
Dim
a21
As
Integer
Dim
a22
As
Integer
Dim
a23
As
Integer
Dim
a31
As
Integer
Dim
a32
As
Integer
Dim
a33
As
Integer
Dim
D
As
Double
Private
Sub
Button1_Click(
ByVal
sender
As
System.
Object
,
ByVal
e
As
System.
EventArgs
)
Handles
Button1.Click
a11 = TextBox1.Text
a12 = TextBox2.Text
a13 = TextBox3.Text
a21 = TextBox4.Text
a22 = TextBox5.Text
a23 = TextBox6.Text
a31 = TextBox7.Text
a32 = TextBox8.Text
a33 = TextBox9.Text
D = ((a11 * a22 * a33) + (a12 * a23 * a31) + (a13 *
a21 * a32) - (a13 * a22 * a31) - (a11 * a23 * a32) - (a12 *
a21 * a33))
TextBox10.Text = D
End
Sub
Private
Sub
Button2_Click(
ByVal
sender
As
System.
Object
,
ByVal
e
As
System.
EventArgs
)
Handles
Button2.Click
TextBox1.Text =
""
TextBox2.Text =
""
TextBox3.Text =
""
TextBox4.Text =
""
TextBox5.Text =
""
