Tugas bilangan prima dan fibo

Nama    : Dwi Susanti

Kelas     : TI 11C

NIM       : 11.11.2495

BILANGAN FIBONANCI

Gambar tersebut hanya terdiri dari listbox dan Button.

Berikut ini listing programnya :

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim fibo(0 To 9) As Integer
        Dim x As Integer
        fibo(0) = 1
        fibo(1) = 1
        For x = 2 To 9
            fibo(x) = fibo(x - 2) + fibo(x - 1)
        Next
        For x = 0 To 9
            ListBox1.Items.Add(fibo(x))
        Next


    End Sub
End Class

BILANGAN PRIMA

 

Listing Program Bilangan Prima :

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim tanda(100) As String
        Dim y, z As Integer
        For y = 2 To 100
            If tanda(y) <> "*" Then
                ListBox1.Items.Add(y)
                For z = 2 * y To 100 Step y
                    tanda(z) = "*"
                Next
            End If
        Next

    End Sub
End Class