UC知道asp.net代码修改,怎样改成输入一个数,确定后输出一个评价
来源：百度知道 编辑：UC知道 时间：2024/06/21 03:52:38
<Script language="VB" runat="server">
Sub Page_Load(obj as object ,e as eventargs)
Dim Grade As String
Grade="B"
Select Case Grade
Case"A"
message.text="太不可思议了，你太厉害了"
Case“B”
message.text="不错"
Case"C"
message.text="youdiancha"
Case Else
message.text="无话"
End Select
End Sub
</Script>
<html>
<body>
<asp:label id="message" runat="server"/>
</body>
</html>
Sub Page_Load(obj as object ,e as eventargs)
Dim Grade As String
Grade="B"
Select Case Grade
Case"A"
message.text="太不可思议了，你太厉害了"
Case“B”
message.text="不错"
Case"C"
message.text="youdiancha"
Case Else
message.text="无话"
End Select
End Sub
</Script>
<html>
<body>
<asp:label id="message" runat="server"/>
</body>
</html>
<Script language="VB" runat="server">
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Dim Grade As String
Grade = TextBox1.Text
Select Case Grade
Case "A"
message.text = "太不可思议了，你太厉害了"
Case "B"
message.text = "不错"
Case "C"
message.text = "youdiancha"
Case Else
message.text = "无话"
End Select
End Sub
</script>
<html>
<body>
<form id="form1" runat="server">
<div>
<asp:TextBox ID="TextBox1" runat="server"></asp:TextBox>
<asp:Button ID="Button1" runat="server" OnClick=&