会VB的同志帮我做题吧！急！！！！

来源：百度知道 编辑：UC知道 时间：2024/06/01 10:24:47
题目1.设计并完成一个过程Split（ByVal data As Decimal），能将参数data进行按比例拆分，data值的40%送给Label控件Lb1的文本属性，而将data值的60%送给Label1控件的Lb2的文本属性
题目2.设计并完成一个函数Getmin（ByVal x1 As Decimal,ByVal x2 As Decimal),函数的返回值是一个字符串，其内容是两个参数较小ide变量名（x1或x2）
题目3.设计并完成1平方/2+2平方/2+3平方/2......10平方/2的累加值，结果送至变量Sum
是用VB.NET做 谢谢各位高手了 我着急 尽快帮我做出来!

1:
在窗体放两个label和一个button
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim b As Decimal = 1000
xrhigh(b, Label1, Label2)
End Sub
Sub xrhigh(ByVal data As Decimal, ByVal a1 As Label, ByVal a2 As Label)
Dim x As String = CStr(data * 0.4) & " " & CStr(data * 0.6)
Dim y() As String
y = Split(x, " ")
a1.Text = y(0)
a2.Text = y(1)
End Sub

2:
窗体上放一个label和一个button
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Label3.Text = xrhigh2("90", "89")
End Sub
Function xrhigh2(ByVal a As Decimal, ByVal b As Decimal) As Decimal
Return Math.Min(a, b)
End Function

3:
窗体上放一个label和一个button
Private Sub Button1_Click(ByVal sender As Object, ByVal