简易实用的考试系统，试卷随机生成（考试、模拟单机版）下载

hxh1986122 · 发表于 2016-5-29 16:12

请问您的单机考试软件，打开后题目界面是黑色的？是什么问题，win7+office2003

YZC51 · 发表于 2016-5-30 11:49

2007版
修改代码如下：

Private Sub CommandButton1_Click()
If ComboBox1.Text = "" Then MsgBox "ÇëÑ¡Ôñ×¨Òµ": Exit Sub
MyFile = Dir(ThisWorkbook.Path & "" & ComboBox1.Text & ".xls")
If MyFile <> "" Then
Me.Hide
Application.ScreenUpdating = False
Set wk = GetObject(ThisWorkbook.Path & "" & ComboBox1.Text & ".xls")
ThisWorkbook.Sheets(2).Range("A1:G2000").Value = wk.Sheets(1).Range("A1:G2000").Value
If wk.Sheets(1).Range("A2") <> "A" And wk.Sheets(1).Range("A2") <> "B" And wk.Sheets(1).Range("A2") <> "C" Then
MsgBox "Çë¼ì²é´Ë×¨ÒµÌâ¿âÉèÖÃ£¡"
wk.Close False
Exit Sub
End If
wk.Close False
Application.ScreenUpdating = True
Application.WindowState = xlMinimized
Application.Visible = False
UserForm1.Show
Application.Visible = True
Else
MsgBox ComboBox1.Text & "ÎÄ¼þ²»´æÔÚ"
End If
End Sub

复制代码

YZC51 · 发表于 2016-5-30 11:50

附件

考试复习系统单机版.rar (231.22 KB, 下载次数: 340)

aizaishenqiu · 发表于 2016-5-30 21:30

感谢楼主，学习了

星光漫天 · 发表于 2016-8-25 19:03

很好，谢谢分享

星光漫天 · 发表于 2016-8-26 14:56

wkbu 发表于 2011-1-9 20:44
工作表保护密码：12345321

工作表保护密码不对。

而后如 · 发表于 2016-9-7 22:05

我想知道，带图片的题目怎么录入题库，比如想把驾考的题目录到题库

wgabc327 · 发表于 2016-9-9 21:59

做的很好，谢谢

HJ红色石头 · 发表于 2016-9-21 01:10

多谢高手提供资源。

☆羽枫☆℃ · 发表于 2016-12-4 19:38

您好，考试那个五个选项的，怎么改。能加一下QQ么

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

[分享] 简易实用的考试系统，试卷随机生成（考试、模拟单机版）下载