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)
%>