| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1279 人关注过本帖
标题:弹出“数据类型不匹配”窗口
只看楼主 加入收藏
nxxi86
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2008-4-27
收藏
 问题点数:0 回复次数:2 
弹出“数据类型不匹配”窗口
我建好了几个表,试题库、组卷规则库、组卷库。
试题库的字段名有题号、题型、难度、分值、试题内容、标记
组卷规则库的字段名有专业名称、专业代码、总题量、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]]
搜索更多相关主题的帖子: 题量 thisform 窗口 类型 数据 
2008-04-27 16:19
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:0 
出现错误提示后,你按“挂起”就能看到是哪个语句出现问题。

感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2008-04-28 11:23
qjbzjp
Rank: 13Rank: 13Rank: 13Rank: 13
来 自:尧的故乡
等 级:贵宾
威 望:48
帖 子:1914
专家分:4397
注 册:2007-3-14
收藏
得分:0 
h(1)=t
h(1)=.t.
2008-05-06 10:13
快速回复:弹出“数据类型不匹配”窗口
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.017305 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved