关于VB的问题。。。
PrivateSubLabel1_Click()DimxAsIntegerx=Val(InputBox("请输入学生成绩:"))Ifx<60ThenPrint"不及格"E...
Private Sub Label1_Click()
Dim x As Integer
x = Val(InputBox("请输入学生成绩:"))
If x < 60 Then
Print "不及格"
Else
If x < 80 Then
Print "一般"
Else
Print "优秀"
End If
End If
End Sub
大侠们帮我看看 我把代码输到 Form 程序一点反应都没有
然后我输入到 Label 的时候就出现这个问题,请问是为什么啊!!
要怎么把请点击窗口那去掉啊!! 展开
Dim x As Integer
x = Val(InputBox("请输入学生成绩:"))
If x < 60 Then
Print "不及格"
Else
If x < 80 Then
Print "一般"
Else
Print "优秀"
End If
End If
End Sub
大侠们帮我看看 我把代码输到 Form 程序一点反应都没有
然后我输入到 Label 的时候就出现这个问题,请问是为什么啊!!
要怎么把请点击窗口那去掉啊!! 展开
展开全部
Private Sub Label1_Click()
Dim x As Integer
x = Val(InputBox("请输入学生成绩:"))
If x < 60 Then Print "不及格"
If x < 80 and x>=60 Then Print "一般"
if x>=80 and x=<100 then Print "优秀"
End Sub
Dim x As Integer
x = Val(InputBox("请输入学生成绩:"))
If x < 60 Then Print "不及格"
If x < 80 and x>=60 Then Print "一般"
if x>=80 and x=<100 then Print "优秀"
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
先添加一个Label
Private Sub Form_Click()
Dim x As Integer
x = Val(InputBox("请输入学生成绩:"))
If x < 60 Then
Label1.Caption = "不及格"
Else
If x < 80 Then
Label1.Caption = "一般"
Else
Label1.Caption = "优秀"
End If
End If
End Sub
Private Sub Form_Click()
Dim x As Integer
x = Val(InputBox("请输入学生成绩:"))
If x < 60 Then
Label1.Caption = "不及格"
Else
If x < 80 Then
Label1.Caption = "一般"
Else
Label1.Caption = "优秀"
End If
End If
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询