vb.net 计算阶层的代码

Answer 1

我们用一个比较时髦的办法，用面向对象思想把每一行做成一个类。
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
Class Value '声明Value为类
REM 类的公共数据
Public Type As String '类型rb或是rf
Public ValX As Double '表第二列
Public ValY As Double '表第三列
Public Sub New(t As String, x As String, y As String) '构造函数
Type = t '赋值
ValX = x
ValY = y
End Sub
REM 类的静态方法，用来得出结果x=(12.1+12.4)/2+(12.2+12.3)/2
Public Shared Function SolveX(ByRef Values() As Value) As Double '以一个Value数组为参数
Dim result1 As Double = 0 '第一个加数(12.1+12.4)/2
Dim count1 As Integer = 0 'rb的个数
For Each v In Values '遍历这个数组
If v.Type = "rb" Then '若是rb
result1 += v.ValX '先加进去
count1 += 1 '个数加一。也可以写成count1 = count1 + 1
End If
Next
result1 /= count1 '算出第一个加数。也可以写成result1 = result1 / count
Dim result2 As Double = 0 '依此类推，算出第二个加数
Dim count2 As Integer = 0
For Each v In Values
If v.Type = "rf" Then
result2 += v.ValX
count2 += 1
End If
Next
result2 /= count2
Return result1 + result2 '返回两个加数的和
End Function
REM 同样的
Public Shared Function SolveY(ByRef Values() As Value) As Double
Dim result1 As Double = 0
Dim count1 As Integer = 0
For Each v In Values
If v.Type = "rb" Then
result1 += v.ValY
count1 += 1
End If
Next
result1 /= count1
Dim result2 As Double = 0
Dim count2 As Integer = 0
For Each v In Values
If v.Type = "rf" Then
result2 += v.ValY
count2 += 1
End If
Next
result2 /= count2
Return result1 - result2
End Function
End Class
怎么使用这个类呢？
1
2
3
4
5
6
7
8
9
10
11
12
13
Dim values() As Value = {New Value("rb", 12.1, 1.1), _

New Value("rf", 12.2, 1.2), _

New Value("rf", 12.3, 1.3), _

New Value("rb", 12.4, 1.4)} '声明一个数组values并一次放入4个Value对象

Console.WriteLine("X = {0}", Value.SolveX(values)) 'Value.SolveX(数组)表示X结果

Console.WriteLine("Y = {0}", Value.SolveY(values)) 'Value.SolveY(数组)表示Y结果

Console.ReadKey()