'看下面的汉字说明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
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
解决方案 »
- 求救:vs2008下键盘hook问题.
- VB操作mysql数据库时处理中文的问题
- 穷的没分了,请大家帮忙.如何让datagrid显示行数?比如第一行,在最左边就显示"1"我看到很多表格控件都有.
- 求助:关于在宏中如何使用DataGrid控件
- 怎样实现点击mshflexgird列标头时实现对该列排序
- activereport的终极问题(能解决得我感激一辈子),要多少分都给
- Win200Server启动的问题!高分相送
- 请教关于VB内存释放的问题
- 还有三个小时就再也不能上网了。所有分都给大家!
- 開發過企業會計系統的高手請進,小生有禮了!你要多少份我一定給,(<=我的剩余份)
- [求助]Winsock的问题,高手指点一下吧~~
- 請問:各API函數的功能,有沒有辦法可以查到
缺少空格
label1.Caption = "该同学的成绩为:" & n & "分," & Chr(13) & "等级:" & dj
dim a& 就是等于 dim a as long所以vb 以为 n& 是一个long型变量 所以少了一个"&"字符