vb.net通过inputbox函数接收若干分数统计出各档次分数的人数，平均分，筛淘滤（不及格/总人数*100%）

Question

vb.net通过inputbox函数接收若干分数统计出各档次分数的人数，平均分，筛淘滤（不及格/总人数*100%），输入负数结束。各档次为不及格0-59，及格60-69，中等70-79，良好80-89，优秀90-99。要在Visual Studio.NET实现的 像图片这样，数据是在哪输入？还是数据库？

Answer 1

Public Class Form1

    Private inputAll() As String = Nothing

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        Dim x As String = InputBox("请输入分数并用 逗号 分隔。" & vbCrLf & vbCrLf & "例：60,99,80.5", "分数录入")

        If (x.Trim() = "") Then

            Exit Sub

        End If

        inputAll = x.Trim.Split(",")

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If inputAll Is Nothing Then

            Exit Sub

        End If

        Dim yx As Int32 = 0     '优秀

        Dim lh As Int32 = 0     '良好

        Dim hg As Int32 = 0     '合格

        Dim jg As Int32 = 0     '及格

        Dim bjg As Int32 = 0    '不及格

        Dim avg As Double = 0   '平均分

        Dim stl As Double = 0   '筛淘率

        For Each tmp As String In inputAll

            Select Case Convert.ToSingle(tmp)

                Case 0 To 59

                    bjg += 1

                Case 60 To 69

                    jg += 1

                Case 70 To 79

                    hg += 1

                Case 80 To 89

                    lh += 1

                Case 90 To 100

                    yx += 1

            End Select

            avg += Convert.ToSingle(tmp)

        Next

        avg = Math.Round(avg / inputAll.Length, 2)

        stl = Math.Round(bjg / inputAll.Length * 100, 2)

        TextBox1.Text = yx.ToString

        TextBox2.Text = lh.ToString

        TextBox3.Text = hg.ToString

        TextBox4.Text = jg.ToString

        TextBox5.Text = bjg.ToString

        TextBox6.Text = avg.ToString

        TextBox7.Text = stl.ToString & "%"

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Close()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        inputAll = Nothing

        TextBox1.Clear()

        TextBox2.Clear()

        TextBox3.Clear()

        TextBox4.Clear()

        TextBox5.Clear()

        TextBox6.Clear()

        TextBox7.Clear()

    End Sub

End Class

就这样了，vb.net 2010下测试通过 

楼主没人品啊！回答了尽然不结贴也不给分。

Answer 2

你的问题描述不清楚，是否可以详细的描述一下你想干什么？追问

通过inputbox函数接收若干分数统计出各档次分数的人数，平均分，筛淘滤（不及格/总人数*100%），输入负数结束。各档次为不及格0-59，及格60-69，中等70-79，良好80-89，优秀90-99。 这是老师给的题。 要用inputbox，那个图是他给的，算出优秀，良好，中等，及格，不及格的人数是多少，平均分时多少，筛淘率那个公式算，我想知道数据在哪输入，是数据库还是什么

追答

全部代码贴不上来……字数显示不全
把你邮箱留下吧，我把全部代码发到你邮箱吧。。。。

追问

[email protected]

追答

源代码已经发送到你邮箱中，请查收……

本回答被提问者采纳