简单的随机问题验证码

Function getcode()
Dim QuesionNum
QuesionNum=10  '问题的总数,如要添加问题,请先修改这个数值
Dim CodeIndex
CodeIndex=0

Dim QuesionArray(100)
Dim AnswerArray(100)

QuesionArray(0)="请输入fa<font color=red>t</font>mouse中的第三个字母:t"                 '问题列表及答案,可自行修改
AnswerArray(0)="t"
QuesionArray(1)="请输入<font color=red>b</font>lurxx中的第一个字母:b" ‘最好把每个color都设置为不同的值，请输入等也设置成不一样意思差不多的各种文字
AnswerArray(1)="b"
QuesionArray(2)="请输入b<font color=red>l</font>urxx中的第二个字母:l"
AnswerArray(2)="l"
QuesionArray(3)="请输入bl<font color=red>u</font>rxx中的第三个字母:u"
AnswerArray(3)="u"
QuesionArray(4)="请输入blu<font color=red>r</font>xx中的第四个字母:r"
AnswerArray(4)="r"
QuesionArray(5)="请输入blur<font color=red>x</font>x中的第五个字母:x"
AnswerArray(5)="x"
QuesionArray(6)="请输入blurx<font color=red></font>x中的第六个字母:x"
AnswerArray(6)="x"
QuesionArray(7)="21世纪最缺少的是什么？"
AnswerArray(7)="天才"
QuesionArray(8)="请输入我国国歌名，提示：<font color=red>义勇军进行曲</font>"
AnswerArray(8)="义勇军进行曲"
QuesionArray(9)="中国有多少个民族,输入<font color=red>数字</font>即可"
AnswerArray(9)="56"

Randomize
CodeIndex =  Int((QuesionNum * Rnd) + 0)
Session("GetCode") = AnswerArray(CodeIndex)
getcode = "<span style=""margin-right:40px;"">" & QuesionArray(CodeIndex) & "</span>"
End Function