62,046
社区成员
发帖
与我相关
我的任务
分享这句话该怎么改啊？
<script language ="vb" runat ="server" >
Sub enter_click(ByVal sender As Object, ByVal e As EventArgs)
Dim grade As Integer
If grade >= 85 Then
message.Text = "太不可思议了，你太历害了！"
ElseIf grade >= 70 Then
message.Text = "不错啊．断续努力！"
ElseIf grade >= 60 Then
message.Text = "有点差了，要努力了！"
Else
message.Text = "我无语了！"
End If
End Sub
</script>
<html >
<body >
<TextBox ID="grade" runat ="server" ></TextBox>
<asp:Button ID="enter" Text ="确定" OnClick ="enter_click" runat="server" />
<asp:Label ID="message" runat ="server" />
</body>
</html>
Sub enter_click(ByVal sender As Object, ByVal e As EventArgs)
Dim grade As Integer
If grade >= 85 Then
message.Text = "太不可思议了，你太历害了！"
ElseIf grade >= 70 Then
message.Text = "不错啊．断续努力！"
ElseIf grade >= 60 Then
message.Text = "有点差了，要努力了！"
Else
message.Text = "我无语了！"
End If
End Sub
</script>
<html >
<body >
<TextBox ID="grade" runat ="server" ></TextBox>
<asp:Button ID="enter" Text ="确定" OnClick ="enter_click" runat="server" />
<asp:Label ID="message" runat ="server" />
</body>
</html>
...全文
请发表友善的回复…
发表回复
zkkxy 2007-11-26
- 打赏
- 举报
晕类．你无语什么啊． 能不能帮我改下．
shawn_yang 2007-11-26
- 打赏
- 举报
我无语了
zkkxy 2007-11-26
- 打赏
- 举报
把他给改正确了．就是填上一个数值，然后点确定．，显示提示：
If grade > = 85 Then
message.Text = "太不可思议了，你太历害了！"
ElseIf grade > = 70 Then
message.Text = "不错啊．断续努力！"
ElseIf grade > = 60 Then
message.Text = "有点差了，要努力了！"
Else
message.Text = "我无语了！"
If grade > = 85 Then
message.Text = "太不可思议了，你太历害了！"
ElseIf grade > = 70 Then
message.Text = "不错啊．断续努力！"
ElseIf grade > = 60 Then
message.Text = "有点差了，要努力了！"
Else
message.Text = "我无语了！"
shawn_yang 2007-11-26
- 打赏
- 举报
lz什么意思？
