一道vb程序设计题

关于.输入三角形的3条边长，判断能否构成三角形。若可以，判断它是等边三角形、等腰三角形、直角三角形还是任意三角形，并计算出该三角形的面积。的问题

‘窗体一个按钮(command1),五个文本框,三个表示边长,一个表示三角形形状,一个表示面积;
private sub command1_click()
dim a as single,b as single,c as single,temp as single,s as single,i as single
a=val(text1(0).text)
b=val(text1(1).text)
c=val(text1(2).text)
‘三个数排序
if b =asc(0) and keyascii len(text1(index).text) then exit sub
end if
end if
keyascii = 0
end sub