'看下面的汉字说明Private Sub Text1_KeyPress(KeyAscii As Integer) Dim dj As String
 
 If KeyAscii = 13 Then
    n = Val(Text1.Text)
    If n > 150 Then
      MsgBox "请输入正确的分数!"
      Text1.SelStart = 0
      Text1.SelLength = Len(Text1.Text)
    Exit Sub
End IfSelect Case n
  Case Is < 60
     dj = "不及格"
  Case Is < 70
     dj = "及格"
   Case Is < 80
     dj = " 中等"
  Case Is < 70
     dj = "良好"
   Case Is < 90
     dj = "良好"
   Case Else
     dj = "优秀"
End Select'下面这一行有问题,我不知错在哪里,说是缺少语句结束
label1.Caption ="该同学的成绩为:"&n&"分,"&Chr(13)&"等级:"&dj
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End IfEnd Sub

解决方案 »

  1.   

    Label1.Caption = "该同学的成绩为:" & n & "分," & Chr(13) & "等级:" & dj空格
      

  2.   

    label1.Caption ="该同学的成绩为:" & n & "分," & vbcrlf & "等级:" & dj
      

  3.   

    同意 另 labe11 改为label1
      

  4.   

    label1.Caption ="该同学的成绩为:" & n & "分," & vbcrlf & "等级:" & dj
      

  5.   

    如果我没记错,变量后面紧跟&符号表示该变量是Long型,在&前加空格就可以了
      

  6.   

    label1.Caption ="该同学的成绩为:"&n&"分,"&Chr(13)&"等级:"&dj
    缺少空格
      

  7.   

    改为:
    label1.Caption = "该同学的成绩为:" & n & "分," & Chr(13) & "等级:" & dj
      

  8.   

    asp 不会出错 可是 在  vb "&"符号又是long型变量的类型声明字符譬如 :
    dim a& 就是等于 dim a as long所以vb 以为 n& 是一个long型变量 所以少了一个"&"字符