Question

VB输入一个学生成绩进行判断

VB输入一个学生成绩进行判断

Answer 1

Dim st As String = "", fenshu As Integer
        fenshu = Val(InputBox("请输入成绩分数"))
        If fenshu > 90 Then
            st = st & "优秀！" & vbCrLf & "请领取奖状"
        End If
        If fenshu < 90 And fenshu >= 60 Then
            st = st & "及格！" & vbCrLf & "您的成绩是" & fenshu.ToString
        End If
        If fenshu < 60 Then
            st = st & "不及格！" & vbCrLf & "请开学后补考"
        End If
        TextBox6.Text = st

追问

给个源文件吧，直接COPY代码错误

追答

我用的是vb 2010 ，你用的是vb 6.0吧？
你直接把textbox6修改为你的就可以了；
加我口口 三。一。四零二一一四六

追问

不知道如何改，你上传过附件到百度云吧