Form Variabel dan Konstanta (VB I)

1. Design form dibawah ini dengan nama form variabel, gunakan button pada toolbox

Listing Code :

Public x As Single
Public y As Single
Public z As Single

Sub nilai1()
x = 10
y = 15
z = x * y
Fvar.Print "X dalam Nilai 1 :", x
Fvar.Print "Y dalam Nilai 1 :", y
Fvar.Print "Z dalam Nilai 1 :", z
Fvar.Print ""
End Sub

Sub nilai2()
Dim a As Integer, b As Integer
a = InputBox("Ketik Nilai :", "Input")
b = InputBox("Ketik Nilai :", "Input")
c = a * b
Fvar.Print "A dalam nilai2 :", a
Fvar.Print "B dalam nilai2 :", b
Fvar.Print "C dalam nilai2 :", c
Fvar.Print
End Sub

Private Sub bkeluar_Click()
Unload Me
End Sub

Private Sub bkonstanta_Click()
nilai1
End Sub

Private Sub bvariabel_Click()
nilai2
End Sub

Keterangan :
pada form ini diajarkan supaya mahasiswa dapat membedakan didalam penggunaan fungsi variabel dan konstanta, yang mana variabel adalah nilai yang dapat berubah2. sedangkan konstanta adalah nilai tetap yang tidak bisa diubah