تصميم الآلة الحاسبة فى فجوال بيسك

برنامج الآلة الحاسبة
يتم الاعلان عن المتغيرات بصورة عامة فى general كالتالى:
dim 01,02,a as single
dim z as string
الكود الخاص بـ command1:
text1.text= text1.text & "1"
الكود الخاص بـ command2:
text1.text = text1.text & "2"
الكود الخاص بـ command3:
text1.text = text1.text & "3"
الكود الخاص بـ command4:
text1.text = text1.text & "4"
الكود الخاص بـ command5:
text1.text = text1.text & "5"
الكود الخاص بـ command6:
text1.text = text1.text & "6"
الكود الخاص بـ command7:
text1.text = text1.text & "7"
الكود الخاص بـ command8:
text1.text = text1.text & "8"
الكود الخاص بـ command9:
text1.text = text1.text & "9"
الكود الخاص بـ command10:
text1.text = text1.text & "0"
الكود الخاص بـ command11:
text1.text = ""
الكود الخاص بـ command12:
text1.text = text1.text & "."
الكود الخاص بـ command13:
01 = val )text1.text(
text1.text = ""
z= "+"
الكود الخاص بـ command14:
01 = val )text1.text(
text1.text = ""
z = "-"
الكود الخاص بـ command15:
01= val )text1.text(
text1.text = ""
z = "*"
الكود الخاص بـ command16:
01 = val )text1.text(
text1.text = ""
z = "/"
الكود الخاص بـ command17:
01 = val )text1.text(
text1.text = ""
z = "^"
الكود الخاص بـ command18:
02 = val )text1.text(
text1.text = ""
if z = "+" then
a = 01 + 02
text1.text = a
end if
if z = "-" then
a = 01 -02
text1.text = a
end if
if z = "*" then
a = 01*02
text1.text = a
end if
if z = "/" then
a = 01 / 02
text1.text = a
end if
if z = "^" then
a = 01 ^ 02
text1.text = a
end if