asp曲线图汇总，包含很多asp曲线的代码

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