select case ran(inti) 这个地方应该是你要输入的判断条件

case 是你所对应的值

所以你的程式要修改成下面这样

<%
dim inti,intj,intfrequency
intfrequency=0
for inti=0 to 4 step 1
  select case ran(inti)
  case 1: intfrequency=intfrequency+1
  case 2: intfrequency=intfrequency+1
  case 3: intfrequency=intfrequency+1
  case 4: intfrequency=intfrequency+1
  case 5: intfrequency=intfrequency+1
  case 6 intfrequency=intfrequency+1
  case 7: intfrequency=intfrequency+1
  case 8: intfrequency=intfrequency+1
  case 9: intfrequency=intfrequency+1
  case 0: intfrequency=intfrequency+1
  end select
next
response.write(intfrequency)
%>