VB中怎么把输出的值，输出到另一个text文本框里
VB中怎么把输出的值，输出到另一个text文本框里要做一个“输入成绩判断等级”的exe，输入成绩在一个text里，输出等级在另一个text里，且要用select做，等级是...
VB中怎么把输出的值，输出到另一个text文本框里要做一个“输入成绩判断等级”的exe，输入成绩在一个text里，输出等级在另一个text里，且要用select做，等级是字符型，成绩是整形
展开
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
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
