ASP题目怎么做

<%@ page language="VB" %>
<script runat="server">
sub clsnum(sender as object,e as eventargs)
label1.text=""
end sub
sub bknum(sender as object,e as eventargs)
dim i as integer
i=len(label1.text)
if i>0 then label1.text=left(label1.text,i-1)
end sub
sub calcutlate (byval sender as object, byval e as eventargs)
label1.text=label1.text+ctype(sender,button).commandname
end sub
sub ys_onclick(sender as object,e as eventargs)
dim strop as string
dim i,j as integer
i=len(label1.text)
j=instr(label1.text,"+")+instr(label1.text,"-")+instr(label1.text,"*")+instr(label1.text,"/")
if i>0 then
if j=0 then label1.text=label1.text+ctype(sender,button).commandname
if j=i then label1.text=left(label1.text,i-1)+ctype(sender,button).commandname
end if
end sub
sub