Question

帮我看这简单的VB代码，有个地方不明白？

Private Sub Command1_Click()

a = Text2.Text
Select Case a
Case a >= 0 And a < 60
t2 = "Poor"
Case a >= 60 And a < 80
t2.Text = "Good"
Case a > 80 And a <= 100
t2.Text = "Very Good"
End Select
Label3.Caption = Text1 & "同学" & Space(3) & "分数为：" & a & Space(3) & "分数线为：" & t2
End Sub

1.为什么“t2”不可以在labea3里显示？

2.select case 和 if 所用的符号表达式是一样的吗？我错在那了？

Answer 1

'要求必须定义每个变量（我觉得还是写一下好）
Option Explicit

Private Sub Command1_Click()
'定义变量，因为有第一句话，所以变量必须要定义
Dim a As Integer
Dim t2 As String

'判定分Text2里的分数是不是一个数字，若不是跳出提示框，进行提示说明，并要求输入数字
If Not IsNumeric(
Text2.Text) Then
MsgBox "您输入的分数必须是一个数字！", vbOKOnly + vbInformation, "提示"
Text2.SetFocus
Exit Sub
End If

'数字字符串转换为数字类型
'VB有时候可以自己自动转换，但是我也遇到过自己转换出错的情况，还是手动转换一下吧
a = CDbl(Text2.Text)
Select Case a
'这里是你用错的地方
Case 0 To 60
t2 = "Poor"
Case 61 To 80
'这里也是你用错的地方，t2是一个字符串
t2 = "Good"
Case 81 To 100
t2 = "Very Good"
End Select
Label3.Caption = Text1.Text & "同学" & Space(3) & "分数为：" & a & Space(3) & "分数线为：" & t2
End Sub

'这样应该是非常详细了吧

Answer 2

t2 后不要跟 .TEXT

Case a 0 TO 60