Perkalian Bilangan Ganjil & Genap

Perkalian dan Membuat Bilangan Ganjil & Genap Dengan menggunakan Module 

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Call tampilnama()

        TextBox1.Text = nama

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        h = TextBox2.Text

        b = TextBox3.Text

        Call hitung()

        TextBox4.Text = hasil

    End Sub

End Class

Jangan lupa tambahkan module,berikut isinya :

Module ary

    'variablepublic

    Public nama As String, hasil, h, b As Integer

    Sub tampilnama()

        nama = "sandhy aryardhana"

    End Sub

    Sub hitung()

        hasil = Val(h)* Val(b)

    End Sub

   

End Module

Dan berikutnya Bilangan Ganjil dan Genap

Kita buat dulu desainnya :