Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
Scribd Logo
Upload

Welcome to Scribd!

  • 44 views

    Rjeseni Zadaci

    Uploaded by

    siljeg.petar
    The document contains 19 code examples that demonstrate various programming concepts in Visual Basic such as: 1. Taking user input, performing calculations, and displaying output messages. 2. Checking for divisibility, primality, and perfect numbers. 3. Looping through arrays and lists, summing values, and finding minimums and maximums. 4. Comparing values, selecting output based on conditions, and calculating averages and factorials. The code snippets show how to write event handlers, use input and output boxes, perform basic math operations, and implement common programming logic using loops and conditional statements.

    Copyright:

    © All Rights Reserved
    Download as PDF, TXT or read online from Scribd

    Rjeseni Zadaci

    Uploaded by

    siljeg.petar
    44 views12 pages
    The document contains 19 code examples that demonstrate various programming concepts in Visual Basic such as: 1. Taking user input, performing calculations, and displaying output messages. 2. Checking for divisibility, primality, and perfect numbers. 3. Looping through arrays and lists, summing values, and finding minimums and maximums. 4. Comparing values, selecting output based on conditions, and calculating averages and factorials. The code snippets show how to write event handlers, use input and output boxes, perform basic math operations, and implement common programming logic using loops and conditional statements.

    Original Description:

    .

    Original Title

    rjeseni zadaci

    Copyright

    © © All Rights Reserved

    Available Formats

    PDF, TXT or read online from Scribd

    Did you find this document useful?

    Is this content inappropriate?

    The document contains 19 code examples that demonstrate various programming concepts in Visual Basic such as: 1. Taking user input, performing calculations, and displaying output messages. 2. Checking for divisibility, primality, and perfect numbers. 3. Looping through arrays and lists, summing values, and finding minimums and maximums. 4. Comparing values, selecting output based on conditions, and calculating averages and factorials. The code snippets show how to write event handlers, use input and output boxes, perform basic math operations, and implement common programming logic using loops and conditional statements.

    Copyright:

    © All Rights Reserved
    Download as PDF, TXT or read online from Scribd
    Download as pdf or txt
    44 views12 pages

    Rjeseni Zadaci

    Uploaded by

    siljeg.petar
    The document contains 19 code examples that demonstrate various programming concepts in Visual Basic such as: 1. Taking user input, performing calculations, and displaying output messages. 2. Checking for divisibility, primality, and perfect numbers. 3. Looping through arrays and lists, summing values, and finding minimums and maximums. 4. Comparing values, selecting output based on conditions, and calculating averages and factorials. The code snippets show how to write event handlers, use input and output boxes, perform basic math operations, and implement common programming logic using loops and conditional statements.

    Copyright:

    © All Rights Reserved
    Download as PDF, TXT or read online from Scribd
    Download as pdf or txt
    of 12

    1.

    Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button1.Click
    Dim n, i As Integer
    n = InputBox("unesi broj n")
    For i = 1 To n ^ 2
    MsgBox(n ^ 3)
    Next
    End Sub
    End Class

    2.

    Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button1.Click
    Dim a, b, c As Integer
    a = InputBox("unesite prvi broj")
    b = InputBox("unesite drugi broj")
    c = a + b
    MsgBox(c)
    End Sub
    End Class

    3.

    Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button1.Click
    Dim a, b, i As Integer
    a = InputBox("unesi broj a")
    b = InputBox("unesi broj b")
    For i = 1 To a
    If a Mod i = 0 And b Mod i = 0 Then
    MsgBox(i)
    End If
    Next
    End Sub
    End Class
    4.

    Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button1.Click
    Dim a, b, i As Integer
    a = InputBox("unesi broj a")
    b = InputBox("unesi broj b")
    If b < 8 Then
    MsgBox(((2 * a) + b) / (a + (2 * b)))
    Else
    For i = 1 To b
    MsgBox(i)
    Next
    End If
    End Sub
    End Class

    5.

    Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button1.Click
    Dim a, i As Integer
    a = TextBox1.Text
    If a = 1 Then
    MsgBox("ponedjeljak")
    ElseIf a = 2 Then
    MsgBox("utorak")
    ElseIf a = 3 Then
    MsgBox("srijeda")
    ElseIf a = 4 Then
    MsgBox("cetvrtak")
    ElseIf a = 5 Then
    MsgBox("petak")
    ElseIf a = 6 Then
    MsgBox("subota")
    ElseIf a = 7 Then
    MsgBox("nedjelja")
    Else
    MsgBox("unijeli ste krivi broj")
    End If

    End Sub
    End Class
    6.

    Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button1.Click
    Dim n, t, p, i As Integer
    n = InputBox("")
    t = Math.Sqrt(n)
    p = 1
    For i = 2 To t
    If n Mod i = 0 Then p = 0

    Next
    If p = 0 Then
    MsgBox("broj nije prost")
    Else
    MsgBox("broj je prost")

    End If
    End Sub
    End Class

    7.

    Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button1.Click
    Dim n, p, t As Integer
    n = InputBox("")
    t = 1
    p = 0
    Do While t < n
    t = 2 * t
    p = p + 1
    Loop
    If t - n < n - t / 2 Then
    MsgBox(t)
    Else
    MsgBox(t / 2)
    End If

    End Sub
    End Class
    8.

    Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button1.Click
    Dim n, s As Integer
    n = InputBox("")
    s = 0
    Do While n > 0
    s = s + n Mod 10
    n = Int(n / 10)
    Loop
    MsgBox(s)

    End Sub
    End Class

    9.
    Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button1.Click
    Dim a(12)
    Dim d1, m1, d2, m2, s, i As Integer
    a(1) = 31
    a(2) = 28
    a(3) = 31
    a(4) = 30
    a(5) = 31
    a(6) = 30
    a(7) = 31
    a(8) = 31
    a(9) = 30
    a(10) = 30
    a(11) = 31
    a(12) = 30
    d1 = TextBox1.Text
    m1 = TextBox2.Text
    d2 = TextBox3.Text
    m2 = TextBox4.Text
    s = 0
    For i = m1 To m2 - 1
    s = s + a(i)
    Next i
    s = s + d2 - d1
    MsgBox(s)
    End Sub
    End Class
    10.

    Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button1.Click
    Dim n, s, i As Integer
    s = 0
    For i = 1 To 5
    n = InputBox("")
    If n < 0 Then
    s = s + 1
    End If
    Next
    MsgBox(s)

    End Sub
    End Class

    11.

    Public Class Form1


    Dim a(100), i As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
    System.EventArgs) Handles Button1.Click
    a(i) = TextBox1.Text
    i = i + 1
    ListBox1.Items.Add(TextBox1.Text)
    TextBox1.Text = ""
    TextBox1.Focus()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button2.Click
    Dim j As Integer
    For j = 0 To i - 1
    If a(j) Mod 3 = 0 Then
    ListBox2.Items.Add(a(j))
    ElseIf a(j) Mod 7 = 0 Then
    ListBox2.Items.Add(a(j))
    End If
    Next

    End Sub
    End Class
    12.

    Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button1.Click
    Dim a, b, c, r As Integer
    a = InputBox("unesi broj a")
    b = InputBox("unesi broj b")
    c = InputBox("unesi broj c")
    If a > b And a > c Then
    r = a - (b + c)
    ElseIf b > a And b > c Then
    r = b - (a + c)
    Else : r = c - (a + b)
    End If
    MsgBox(r)

    End Sub
    End Class

    13.

    Public Class Form1


    Dim a(100), b(100), suma, i As Integer

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button1.Click
    a(i) = TextBox1.Text
    b(i) = TextBox2.Text
    i = i + 1
    ListBox1.Items.Add(TextBox1.Text)
    ListBox1.Items.Add(TextBox2.Text)
    Dim j As Integer
    For j = a(j) To b(j)
    If j Mod 2 = 0 Then
    suma = suma + j
    TextBox3.Text = suma
    End If
    Next

    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 = ""
    ListBox1.Items.Clear()
    i = 0
    suma = 0
    End Sub

    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e


    As System.EventArgs) Handles TextBox2.TextChanged
    5:
    End Sub
    End Class
    14.
    Public Class Form1
    Dim a(100), i As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
    System.EventArgs) Handles Button1.Click
    a(i) = TextBox1.Text
    Dim j As Integer
    j = j + 1
    For j = 2 To 9
    If a(i) Mod j = 0 Then
    ListBox1.Items.add(j)
    End If
    Next

    End Sub
    End Class

    15.
    Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button1.Click
    Dim n, s, i As Integer
    n = TextBox1.Text
    For i = 1 To n
    If n Mod i = 0 Then
    ListBox1.Items.Add(i)
    s = s + i
    End If
    Next i
    If s = 2 * n Then
    MsgBox("broj je savren")
    Else
    MsgBox("Broj nije savren")
    End If
    End Sub
    End Class
    16.
    Public Class Form1
    Dim i, zbroj As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
    System.EventArgs) Handles Button1.Click
    Dim n As Integer
    n = TextBox1.Text
    zbroj = zbroj + n
    i = i + 1
    TextBox2.Text = i
    TextBox1.Text = ""
    TextBox1.Focus()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button2.Click
    Dim sredina As Double
    sredina = zbroj / i
    TextBox3.Text = sredina
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button3.Click
    i = 0
    zbroj = 0
    TextBox1.Text = ""
    TextBox2.Text = ""
    TextBox3.Text = ""
    End Sub
    End Class

    17.

    Public Class Form1


    Dim a(100), b(100), i As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
    System.EventArgs) Handles Button1.Click
    a(i) = TextBox1.Text
    b(i) = TextBox2.Text
    ListBox1.Items.Add(a(i) + b(i))
    ListBox1.Items.Add(a(i) * b(i))
    i = i + 1
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button2.Click
    Dim j As Integer
    For j = (a(j) + b(j)) To (a(j) * b(j))
    If j Mod 2 = 0 Then
    ListBox2.Items.Add(j)
    End If
    Next
    End Sub
    End Class
    18.

    Public Class Form1


    Dim faktorijel, zbroj As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
    System.EventArgs) Handles Button1.Click
    Dim n, i As Integer
    n = TextBox1.Text
    textbox1.text = ""
    If n < 10 Then
    listbox1.items.add(n)
    faktorijel = 1
    For i = 1 To n
    faktorijel = faktorijel * i
    Next
    zbroj = zbroj + faktorijel
    End If
    TextBox2.text = zbroj
    End Sub
    End Class

    19.

    Public Class Form1


    Dim a(100), min, max, i As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
    System.EventArgs) Handles Button1.Click
    i = i + 1
    a(i) = TextBox1.Text
    ListBox1.Items.Add(TextBox1.Text)
    TextBox1.Text = ""
    TextBox1.Focus()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button2.Click
    Dim j As Integer
    min = a(1)
    max = a(1)
    For j = 1 To i
    If a(j) < min Then
    min = a(j)
    ElseIf a(j) > max Then
    max = a(j)
    End If
    Next j
    ListBox2.Items.Add(min)
    ListBox2.Items.Add(max)
    End Sub
    End Class
    20.

    Public Class Form1


    Dim a(100), b(100), i As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
    System.EventArgs) Handles Button1.Click
    i = i + 1
    a(i) = textbox1.text
    ListBox1.Items.Add(TextBox1.Text)
    TextBox1.Text = ""
    TextBox1.Focus()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button2.Click
    Dim j As Integer
    For j = 1 To i
    b(j) = a(i - j + 1)
    ListBox2.Items.Add(b(j))
    Next
    End Sub
    End Class

    21.
    Public Class Form1
    Dim a(100), min, max, i As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
    System.EventArgs) Handles Button1.Click
    i = i + 1
    a(i) = textbox1.text
    listbox1.items.add(textbox1.text)
    textbox1.text = ""
    textbox1.focus()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button2.Click
    Dim j As Integer
    min = a(1)
    max = a(1)
    For j = 1 To i
    If a(j) < min Then
    min = a(j)
    ElseIf a(j) > max Then
    max = a(j)
    End If
    Next j
    listbox2.items.add(min)
    ListBox2.Items.Add(max)
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button3.Click
    Dim razlika As Integer
    razlika = max - min
    razlika = MsgBox(razlika)
    End Sub
    End Class
    22.
    Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button1.Click
    Dim n, i As Integer
    Do
    n = InputBox("")
    If n Mod 5 = 0 Then
    i = i + n
    End If
    Loop While n <> 42
    MsgBox(i)
    End Sub
    End Class

    23.

    Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button1.Click
    Dim n, i, j, poz, neg, nula As Integer
    Dim a(100, 100) As Integer
    n = InputBox("unijeti broj redaka i stupaca kvadratne matrice")
    For i = 1 To n
    For j = 1 To n
    a(i, j) = InputBox("unijeti broj za element u" + CStr(i) +
    "retku" + CStr(j) + "stupcu")
    ListBox1.Items.Add(CStr(i) + "." + CStr(j) + "=" +
    CStr(a(i, j)))
    If a(i, j) > 0 Then
    poz = poz + 1
    ElseIf a(i, j) < 0 Then
    neg = neg + 1
    Else
    nula = nula + 1
    End If
    Next j
    Next i
    TextBox1.Text = poz
    TextBox2.Text = neg
    TextBox3.Text = nula
    End Sub
    End Class

    BLIC-1

    Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button1.Click
    Dim n, i As Integer
    n = TextBox1.Text
    For i = 1 To n Step 2
    ListBox1.Items.Add(i)
    Next
    End Sub
    End Class
    BLIC-2

    Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button1.Click
    Dim m, n, i As Integer
    n = InputBox("")
    m = InputBox("")
    For i = 1 To n
    If m Mod i <> 0 Then
    ListBox1.Items.Add(i)
    End If
    Next
    End Sub
    End Class

    BLIC-3

    Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button1.Click
    Dim n, i, zbroj As Integer
    n = InputBox("")
    For i = 1 To n
    If i Mod 2 <> 0 Then
    ListBox1.Items.Add(i)
    zbroj = zbroj + i
    End If
    MsgBox(zbroj)
    Next
    End Sub

    End Class

    You might also like