搜集的考试系统软件大全【只适合选择题】

随机出题201405182157.rar (63.37 KB, 下载次数: 1080)

补充内容 (2017-3-13 11:05):
10楼有更新，可以下载

补充内容 (2017-3-23 12:41):
新版本或想批量下载在www.15161218108.ys168.com

补充内容 (2017-11-1 21:10):
最新版的考试软件到此下载
http://club.excelhome.net/thread-1369486-1-1.html

补充内容 (2018-3-10 11:30):
最新版下载地址
http://club.excelhome.net/thread-1397357-1-1.html

考试加油站 · 发表于 2018-3-10 11:33

本帖最后由考试加油站于 2018-3-10 11:34 编辑

最新版下载地址，完全免费

http://club.excelhome.net/thread-1397357-1-1.html

TB2n2a0aKSSBuNjy0FlXXbBpVXa_!!78936332.png

TB2fo51aQyWBuNjy0FpXXassXXa_!!78936332.png

lsc900707 · 发表于 2017-1-8 20:09

收集整理这么多与考试有关的帖子不容易，点赞！

chxw68 · 发表于 2017-1-8 20:55

楼主是个有心人，收集了这么多的考试系统，把我写的文件也收入其中了，感谢楼主为大家做了件好事！

考试加油站 · 发表于 2017-1-19 11:50

chxw68 发表于 2017-1-8 20:55
楼主是个有心人，收集了这么多的考试系统，把我写的文件也收入其中了，感谢楼主为大家做了件好事！

能给看一下这个考试软件：（VB+ACCESS)只能读取第一段落方案，如题干中有2段，则只显示1段。
题干内容如下：
借：现金 500
代：银行存款 500
用VB读取时只显示第一行借：现金 500

Public Function RichStr(TMRichText As String, xxRichText As String) As String
If TMRichText = "" Then
RichStr = ""
Exit Function
End If
If xxRichText = "" Then
RichStr = ""
Exit Function
End If
Dim TMlen As Long
Dim XXlen As Long
Dim TMStra As String
Dim XXStr As String
TMlen = Val(rFind(TMRichText, "lang2052\f0\fs", " "))
XXlen = Val(rFind(xxRichText, "lang2052\f0\fs", " "))
TMStra = rFind(TMRichText, "lang2052\f0\fs" & TMlen, "\par")
XXStr = rFind(xxRichText, "lang2052\f0\fs" & XXlen, "\par")
'开始拼接编码
Dim RichStr1 As String
RichStr1 = TMStra & "\par \par" & XXStr
Dim Str1 As String
Str1 = "{\rtf1\ansi\ansicpg936\deff0\deflang1033\deflangfe2052{\fonttbl{\f0\fnil\fcharset134 \'cb\'ce\'cc\'e5;}}" & vbCrLf & "\viewkind4\uc1\pard\lang2052\f0\fs" & TMlen + xxsstr & RichStr1 & "\par }"
RichStr = Str1
End Function

复制代码

chxw68 · 发表于 2017-1-20 17:21

考试加油站发表于 2017-1-19 11:50
能给看一下这个考试软件：（VB+ACCESS)只能读取第一段落方案，如题干中有2段，则只显示1段。
题干内容如 ...

这样看不出来出错的原因。

考试加油站 · 发表于 2017-2-3 17:21

本帖最后由考试加油站于 2017-2-3 17:23 编辑

chxw68 发表于 2017-1-20 17:21
这样看不出来出错的原因。

其中引用了这个RFIND，能给解释一下这个函数每句意思吗

Public Function rFind(ByVal txt As String, ByVal code1 As String, Optional ByVal code2 As String = """", Optional ByVal rev As Boolean = False)
On Error Resume Next
Dim tmp As String, i1 As Long, i2 As Long
tmp = txt
If InStr(tmp, code1) = 0 Then rFind = "": Exit Function
i1 = InStr(tmp, code1) + Len(code1)
tmp = Mid(tmp, i1)
If InStr(tmp, code2) = 0 Then rFind = "": Exit Function
If rev Then
i2 = InStrRev(tmp, code2)
Else
i2 = InStr(tmp, code2)
End If
rFind = Mid(tmp, 1, i2 - 1)
End Function

复制代码

特别是TMP,CODE1,2,I1,I2，及最后的RFIND都是得到什么结果，什么意思，最好能解释每句话意思，拜托

juniortiger · 发表于 2017-3-10 23:22

谢谢，好东东，学习学习。

ghoob · 发表于 2017-3-10 23:54

一个字强，要是数据多呢，能不能也生成
楼主有心了

天道酬勤y · 发表于 2017-3-11 07:50

考试加油站发表于 2017-1-19 11:50
能给看一下这个考试软件：（VB+ACCESS)只能读取第一段落方案，如题干中有2段，则只显示1段。
题干内容如 ...

哪个是vb+access的

考试加油站 · 发表于 2017-3-13 11:03

本帖最后由考试加油站于 2017-4-1 15:09 编辑

天道酬勤y 发表于 2017-3-11 07:50
哪个是vb+access的

VB+ACCSESS版本
考试软件制作工具通用精华版9.0.part3.rar (470.63 KB, 下载次数: 267)

2017-4-1 15:09 上传
点击文件名下载附件

考试软件制作工具通用精华版9.0.part2.rar (1.8 MB, 下载次数: 355)

2017-4-1 15:09 上传
点击文件名下载附件

考试软件制作工具通用精华版9.0.part1.rar (1.8 MB, 下载次数: 395)

2017-4-1 15:09 上传
点击文件名下载附件

		自动登录	找回密码
密码			免费注册

[分享] 搜集的考试系统软件大全【只适合选择题】

评分

最新热点 /1