有没有VB程序设计的大佬会这几道题？急求！万分感谢

Question

1.输入三角形的三边长，根据三边长度判断是否能够成三角形，如果能构造则输出yes，不能则输出no。

2.输入一个整数，计算1至该整数范围内所有整数之平均值并输出。

3.自定义一个函数，使该函数能够计算出传递过来的阶乘（n！），在主程序中调用该函数并输出阶乘结果。

Answer 1

第一题
Private Sub btnTriangle_Click(sender As Object, e As EventArgs) Handles btnTriangle.Click
Dim a As Double, b As Double, c As Double
a = CDbl(txtSideA.Text)
b = CDbl(txtSideB.Text)
c = CDbl(txtSideC.Text)
If a + b > c And a + c > b And b + c > a Then
MessageBox.Show("yes")
Else
MessageBox.Show("no")
End If
End Sub
第二题

Private Sub btnAverage_Click(sender As Object, e As EventArgs) Handles btnAverage.Click
Dim n As Integer
Dim sum As Double
Dim average As Double
n = CInt(txtNumber.Text)
sum = 0
For i As Integer = 1 To n
sum += i
Next
average = sum / n
MessageBox.Show("The average is " & average.ToString("0.00"))
End Sub
第三题
Private Function Factorial(ByVal n As Integer) As Integer
If n = 0 Then
Return 1
Else
Return n * Factorial(n - 1)
End If
End Function
Private Sub btnFactorial_Click(sender As Object, e As EventArgs) Handles btnFactorial.Click
Dim n As Integer = CInt(txtNumber.Text)
Dim result As Integer = Factorial(n)
MessageBox.Show(n & "! = " & result.ToString("N0"))
End Sub