三个数字显示问题
有5、6、7三个数字，每刷新三次至少有一次是7数字出现
程序真不知道怎么写？请大家帮帮忙哦！

------解决方案--------------------
<%
dim n,y,t
application.Lock()
application( "n ")=application( "n ")+1
application.UnLock()
y = application( "n ") mod 3
select case y
case 1
response.Write 5
case 2
response.Write 6
case 0
response.Write 7
t=7
end select
%>

实在不感觉怎么完美,但是我也想不到有什么更好的办法了
------解决方案--------------------
思路：
计数器，默认为0，每次刷新+1；
检查计数器，如果等于2则显示数字7，否则随机显示一个数字，如果数字7出现则重置计数器；


------解决方案--------------------
楼上的方法的确不错
------解决方案--------------------
方法和2楼类似，要用到随机种子和隐藏控件，默认为0，刷新一次控件值加1，当为4时，通过JS自动变为0，当该控件值为3时可以首先做个判断，判断随机数是否等于7，如果不等于7 ，则再刷新一次。直至等于7，再满足以上两种情况下。
------解决方案--------------------
2楼正解
------解决方案--------------------
方法和2楼类似，要用到随机种子和隐藏控件，默认为0，刷新一次控件值加1，当为4时，通过JS自动变为0，当该控件值为3时可以首先做个判断，判断随机数是否等于7，如果不等于7 ，则再刷新一次。直至等于7，再满足以上两种情况下。

默认为0,刷一个次+1,还用JS变0,我看做不到吧,你怎么加到4的,如果不用application的话,