求高手做两个VB编程题！

来源：百度知道 编辑：UC知道 时间：2024/06/19 17:56:21
1。从键盘上输入10个整数，并放入一个一维数组中，然后将其前5个元素与后5个元素对换，即第1个元素与第10个元素，第2个元素与第9个元素互换……第5个元素与第6个元素互换。分别输出数组原来各元素的值和对换后个元素的值。

2。给定三角形的3条边长，计算三角形的面积。编写程序，首先判断给出的3条边长能否构成三角形，如可以构成，则计算并输出该三角形的面积，否则要求重新输入。当输入-1时，结束程序。

1:
option base 1
private sub cmd1_click()
dim a(10) as integer
for i=1 to 10
a(i)=val(inputbox("输入数字"))
print str(a(i))+space(3)
next i
for i=1 to 5
t=a(i)
a(i)=a(11-i)
a(11-i)=t
next i
for i=1 to 10
print str(a(i))+space(3)
next i
End sub
2:
private sub cmd1_ckick()
dim a,b,c as integer
sr:
a=val(inputbox("输入第一条边"))
b=val(inputbox("输入第二条边"))
c=val(inputbox("输入第三条边"))
if a=-1 or b=-1 or c=-1 then exit sub
Goto sr
if a>abs(b-c) and a<b+c then
print "三角形面积是" & 关于a,b,c的面积公式
else
goto sr
end if
end sub