Question

求以下题目的 V B 编写程序，急、急、急，VB版本要系2003以上的、拜托各位了 3Q

答案请注明是哪一题，要通过验证无误先得，谢谢。 急住要噶，唔该大家认识点做噶帮下手啦！！ (1) 输入一批成绩(假设0≤成绩≤100，输入时以负数为结束标志，至少有一个成绩)，求其中的最高分与最低分之差。 (2) 编写计算1+1/2+1/3+1/4+…..1/100的程序，把结果显示出来。 (3) 判断回文。如果一个字符串正反读字符顺序都相同，称之为回文，例如，level,madam。编制一个程序，输入任意一个字符串，判断它是否为回文字符串。 (4）计算1~100之间的偶数之和。 (5) 输入要购买的3种商品的单价和数量，输出所用的总金额。要求输入和输出均使用文本框。

Answer 1

第一题： 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