各们大侠,请帮帮忙,将下面的题目用vb程序写出来,万分感谢!

private sub command1_click（)
dim aa as boolean
aa = true
a = val（text1.text)
b = val（text2.text)
c = val（text3.text)
if a + b < c or a + c < b or c + b < a then aa = false
if aa = false then
    msgbox "输入的三条边不能组成三角形"
else

d = （a + b + c) / 2
s = sqr（d * （d - a) * （d - b) * （d - c))
msgbox "能组成三角形,其面积为" & s
end if
end sub

private sub form_load（)
text1 = ""
text2 = ""
text3 = ""
end sub

private sub command1_click（)
a = 100
for i = 1 to 10
b = a / 2
s = s + b + a
a = b
print "第" & i & "次弹起高度为" & a & "米  弹到最高点时总经过" & s & "米"
next i
print "第10次落地时总经过" & s + b & "米"
end sub

private sub command1_click（)
dim a as string
a = "abcdefg"
for i = len（a) to 1 step -1
b = b & mid（a, i, 1)
next i
print b
end sub

private sub command1_click（)
dim i as long
for i = val（text1.text) to val（text1.text) * 2
    if zhishu（i) = true then
        msgbox "next zhishu=" & i
        exit for
    end if
next
end sub

private sub form_load（)
text1 = ""
command1.caption = "显示下个>=该数的质数"
end sub

function zhishu（byval n as long) as boolean    '判断是否为质数的函数 可以收藏   
 zhishu = true
 for ii = 2 to int（sqr（n))
      if n mod ii = 0 then
         zhishu = false
         exit for
       end if
   next ii
end function