Program kalkulator

Untuk membuat program kalkulator pada VB
Dim angka (1 to 2) as double
dim operator as string
private sub cmdangka_clik(index as integer)
label1.caption = label 1+cmdnagka(index).caption
hapus layar = false
if hapus layar then label1.caption = ""
end sub

private sub cmdclear_click()
label1.caption = ""
operator = ""
end sub

private sub cmdhitung_click()
dim hasil as single
angka(2)=csng(label1.caption)
select case operator
case"+"
hasil=angka(1)+angka(2)
case"-"
hasil=angka(1)-angka(2)
case"*"
hasil=angka(1)*angka(2)
case"/"hasil=angka(1)/angka(2)
case"^"
hasil=angka(1)^angka(2)
case""
msgbox "operatornya belum"
end select
label1.caption=hasil
hapus layar=true
end sub

private sub cmdper_click(index as integer)
if val(label1.caption <> o0 then label1.caption = 1 /val(label1.caption)
ifval(lbllayar.caption)=0 then goto errorhandler
exit sub
erorhandler:
masgbox "hitungan salah"
lbllayar.caption="error"
hapus layar = true
end sub

private sub cmdoperator_click()
if label1.caption='' then exit sub
angka(1)=csng(label1.caption)
operator=cmdoperator(index).caption
label1.caption=""
end sub

private sub cmdpm_click()
label1.caption +-val(label1.caption)
end sub

private sub cmdkom_click()
if val(lbllayar.caption)=0 then lbllayar.caption="0"+"."
if val (lbllayar.caption)<>0 then lbllayar.caption=lbllayar.caption+"."
end sub