web网页编程.docxVIP

P73课后习题编程题1(输入密码的)PartialClass_DefaultInheritsSystem.Web.UI.PageProtectedSub Button1_Click(sender AsObject, e AsEventArgs) Handles Button1.ClickIf TextBox2.Text = 666666Then Label1.Text = TextBox1.Text 您好!欢迎登陆北京服装学院校园网!现在的时间是 Now()Else Label1.Text = 密码有误，请重新输入！EndIfEndSubProtectedSub Button2_Click(sender AsObject, e AsEventArgs) Handles Button2.Click TextBox1.Text = TextBox2.Text = Label1.Text = 请重新输入用户名和密码！EndSubEndClassP73课后习题编程题2（成绩优秀良好的）PartialClass_DefaultInheritsSystem.Web.UI.PageProtectedSub Button1_Click(sender AsObject, e AsEventArgs) Handles Button1.ClickDim score AsIntegerscore = Val(TextBox1.Text)If score = 90 Then Label1.Text = 优秀ElseIf score = 80 Then Label1.Text = 良好ElseIf score = 70 Then Label1.Text = 中等ElseIf score = 60 Then Label1.Text = 及格Else Label1.Text = 不及格EndIfEndSubEndClassP73课后习题编程题3（1+2+3+……+n200的最小值n）双击空白处PartialClass_DefaultInheritsSystem.Web.UI.PageProtectedSubButton1(sender AsObject, e AsEventArgs) HandlesMe.LoadDim n, sum AsInteger n = 1sum = 0DoWhile sum = 200sum = sum + n n = n + 1LoopLable1.text=nEndSubEndClass实验二题目2（被3或5整除的和）PartialClass_DefaultInheritsSystem.Web.UI.PageProtectedSub Button1_Click(sender AsObject, e AsEventArgs) Handles Button1.ClickDimiAsInteger, Sum AsInteger Label1.Text = Label2.Text = Fori = 1 To 100IfiMod 3 = 0 OriMod 5 = 0 Then Sum = Sum + i Label1.Text = Label1.Text i EndIfNext Label2.Text = SumEndSubEndClass实验三题目1（插入图片的）双击Label1：PartialClass_DefaultInheritsSystem.Web.UI.PageProtectedSubPage_Load(sender AsObject, e AsEventArgs) HandlesMe.LoadIfNotIsPostBackThen Select1.Items(0).Text = 龙门石窟 Select1.Items.Add(桂林山水) Select1.Items.Add(万里长城)EndIfEndSubProtectedSub button1_serverclick(sender AsObject, e AsEventArgs) Handles Button1.ServerClickDim x AsInteger x = Select1.SelectedIndex Img1.Src = pictures