求以下题目的 V B 编写程序，急、急、急，VB版本要系2003以上的、

答案请注明是哪一题，要通过验证无误先得，谢谢。

急住要噶，唔该大家认识点做噶帮下手啦！！

(1) 输入一批成绩(假设0≤成绩≤100，输入时以负数为结束标志，至少有一个成绩)，求其中的最高分与最低分之差。

(2) 编写计算1+1/2+1/3+1/4+…..1/100的程序，把结果显示出来。

(3) 判断回文。如果一个字符串正反读字符顺序都相同，称之为回文，例如，level,madam。编制一个程序，输入任意一个字符串，判断它是否为回文字符串。

(4）计算1~100之间的偶数之和。

(5) 输入要购买的3种商品的单价和数量，输出所用的总金额。要求输入和输出均使用文本框。

第一题：
Imports System.Text.RegularExpressions

Module module1
Public Sub Main()
Dim s As String
While True
s += Console.ReadLine() + " "
If Array.Find(Of Char)(s, Function(i) i = "-") <> vbNullChar Then
Exit While
End If
End While
s = Regex.Replace(s, "-1.*", " ")
s = Regex.Replace(s, "\s+", " ")
s = s.TrimEnd()
Dim l = s.Split(New Char() {" "})
Dim max = Integer.Parse(l(0))
Dim min = max

For j As Integer = 1 To l.Length - 1
Dim t = Integer.Parse(l(j))
If t > max Then max = t _
Else If t < min Then min = t
Next
Console.WriteLine(vbCrLf & "最高分是:{0} 最低分是:{1}", max, min)
Console.WriteLine("他们之间的差值是:" & max - min)
End Sub
End Module

第二题：
Module module1
Public Sub Main()
Dim s = 0.0
For i As Integer = 1 To 100
s += 1 / i
Next
Console.WriteLine("1+1/2+1/3+1/4+…..1/100=" & s)
End Sub
End Module


第三题：
Module module1
Public Sub Main()
Dim s = Console.ReadLine
Dim ra = s.ToCharArray
Array.Reverse(ra)
Dim r = CStr(ra)
If r = s Then
Console.WriteLine("是回文")
Else
Console.WriteLine("不是回文")
End If
End Sub
End Module

第四题：
Module module1
Public Sub Main()
Dim i = 0
For j = 2 To 100 Step 2
i += j
Next
Console.WriteLine("1~100之间偶数的和是:" & i)
End Sub
End Module


第五题：
Imports System.Windows.Forms

Module module1
Public Sub Main()
Dim s = InputBox("输入第一种商品的单价和数量（空格隔开）")
Dim k = s.Split(New Char() {" "})
Dim p1 = Double.Parse(k(0))
Dim n1 = Integer.Parse(k(1))

s = InputBox("输入第二种商品的单价和数量（空格隔开）")
k = s.Split(New Char() {" "})
Dim p2 = Double.Parse(k(0))
Dim n2 = Integer.Parse(k(1))

s = InputBox("输入第三种商品的单价和数量（空格隔开）")
k = s.Split(New Char() {" "})
Dim p3 = Double.Parse(k(0))
Dim n3 = Integer.Parse(k(1))

MessageBox.Show("总价格是:" & p1 * n1 + p2 * n2 + p3 * n3)
End Sub
End Module