Question

VB中怎么把输出的值，输出到另一个text文本框里

VB中怎么把输出的值，输出到另一个text文本框里要做一个“输入成绩判断等级”的exe，输入成绩在一个text里，输出等级在另一个text里，且要用select做，等级是字符型，成绩是整形

Answer 1

假定输入成绩的文本框是Text1，输出结果的文本框是Text2，查询按钮是Command1。学分由于没有给出计算方法，这里就不考虑了。

Private Sub Command1_Click()
Dim cj As Integer, dj As String
cj = Val(Text1.Text)
If CStr(cj) <> Text1.Text Then
    dj = "不存在"
Else
    Select Case cj
    Case 85 To 100
        dj = "优秀"
    Case 75 To 84
        dj = "良好"
    Case 60 To 74
        dj = "及格"
    Case 0 To 59
        dj = "不及格"
    Case Else
        dj = "不存在"
    End Select
End If
Text2.Text = dj
End Sub