一道vb程序设计题.输入三角形的
'窗体一个按钮(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...全部
'窗体一个按钮(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
。收起
