弹出“数据类型不匹配”窗口
我建好了几个表,试题库、组卷规则库、组卷库。试题库的字段名有题号、题型、难度、分值、试题内容、标记
组卷规则库的字段名有专业名称、专业代码、总题量、A级题量、B级题量、C级题量、A级应出、B级应出、C级应出
组卷库的字段名有题号、难度、文件名、分值
看一下组卷按钮的Click事件代码:
if then
thisform.label3.caption=trim()+'试卷构成情况:'
b=
d=""
k=0
go b
thisform.label5.caption='A:'+str(a题量,3)+'B:'+str(b题量,3)+'C:'+str(c题量,3)
thisform.label4.caption='A:'+str(a应出,3)+'B:'+str(b应出,3)+'C:'+str(c应出,3)
i=1
n(1)=a题量
n(2)=b题量
n(3)=c题量
m(1)=a应出
m(2)=b应出
m(3)=c应出
do while i<6
j=1
t=int(rand()*n(i)+1)
h(1)=t
d=d+trim(专业代码)+str(i,1)+alltrim(str(t,3))+chr(13)
c=c+str(t,3)+str(i,1)+"*"
do while j<m(i)
u=1
t=int(rand()*n(i))+1
do while u<=j
if t=h(u) then
t=int(rand()*n(i))+1
u=1
else
u=u+1
endif
enddo
d=d+trim(专业代码)+str(i,1)+alltrim(str(t,3))+chr(13)
c=c+str(t,3)+str(i,1)+"*"
k=k+1
j=j+1
enddo
i=i+1
enddo
d=str(year(date()),4)+"年 "+trim(专业名称)+" 工程制图试卷 姓名 班级 学号 成绩"+chr(13)+alltrim(str(k,2))+chr(13)+d
repl 试题内容 with d
copy memo 试题内容 to E:\工程制图题库管理与试卷生成系统设计\cs.txt
thisform.label6.caption=c
endif
其中的代码有随机函数,用来随机抽题,不出现重复,抽出的几题在组卷库里自动生成,并将专业代码、难度和题号生成文件名。
有错误之处请指出来,谢谢!
[[it] 本帖最后由 nxxi86 于 2008-4-27 16:46 编辑 [/it]]