word 单选题答题卡代码

weishi · 发表于 2012-6-9 21:08

我们教师一线几乎每节课都要用到word 与PPT ，有时word 做单选题更来得方便，想做个浮动答题卡，但是代码错误，能否实现我附件里说的四点？期望广大word vba高手解答，也当做对教育的一大奉献吧

选择题答题卡2.rar (16.69 KB, 下载次数: 118) ，谢谢。

sylun · 发表于 2012-6-9 23:45

答题卡是在窗体中，选项按钮不是InlineShape。可试作如下相应改动：

Private Sub CommandButton1_Click()
Dim result()
Dim dann
Dim aControl As Control
Dim msg As String, ans As String
Dim i As Integer, r As Integer, y As Integer, f As Integer
Dim w As Integer
dann = Array("A", "B", "C", "D", "A")
ReDim result(UBound(dann))
i = 0
For Each aControl In Controls
With aControl
If .Name Like "OptionButton*" Then
f = f + 1
If .Object.Value = True Then
result(i) = Trim(.Object.Caption)
i = i + 1
End If
If Int(f / 4) > i Then
result(i) = "无作答"
i = i + 1
End If
End If
End With
Next
'....

复制代码

weishi · 发表于 2012-6-10 08:06

sylun 发表于 2012-6-9 23:45
答题卡是在窗体中，选项按钮不是InlineShape。可试作如下相应改动：

今早一大早就起床，果然让我喜出望外，困惑我多年的问题终于解决，在此感谢Sulun，你为我们教育做出了贡献，祝代代胜出！有了这样的VBA, 教师们有福了。

weishi · 发表于 2012-6-10 08:19

weishi 发表于 2012-6-10 08:06
今早一大早就起床，果然让我喜出望外，困惑我多年的问题终于解决，在此感谢Sulun，你为我们教育做出了贡献 ...

再有一个问题：
如何将“你真的要退出吗？，确定”消息框，改为增多一个“否”按钮的消息框？

weishi · 发表于 2012-6-10 08:21

weishi 发表于 2012-6-10 08:19
再有一个问题：
如何将“你真的要退出吗？，确定”消息框，改为增多一个“否”按钮的消息框？

忘了图片，特附上，请会VBA的不要见笑。

chuhaiou · 发表于 2012-6-10 08:26

weishi 发表于 2012-6-10 08:06
今早一大早就起床，果然让我喜出望外，困惑我多年的问题终于解决，在此感谢Sulun，你为我们教育做出了贡献 ...

你们学校的学生考试都是用WORD作答

chuhaiou · 发表于 2012-6-10 08:27

本帖最后由 chuhaiou 于 2012-6-10 08:28 编辑

我感觉这个程序要是做一对一家教很好，但不知LZ对于多班教学考试是如何使用这一程序的？

weishi · 发表于 2012-6-10 09:07

chuhaiou 发表于 2012-6-10 08:27
我感觉这个程序要是做一对一家教很好，但不知LZ对于多班教学考试是如何使用这一程序的？

我们是堂上上课用于巩固考点训练时用的，可以人机互动，学生上讲台平台操作，增加互动性、趣味性，真的狠好用。

tangqingfu · 发表于 2012-6-10 09:49

本帖最后由 tangqingfu 于 2012-6-10 10:07 编辑

sylun兄在Word VBA方面很有造诣，楼主能得他的指点，真是件幸福的事。
你们学校是如何利用Word上课的，很是好奇，因为很多学校授采是用的是PPT课件，基本忽略Word的运用。
对于学生答题，教师（机）如何了解答题结果？

weishi · 发表于 2012-6-10 10:01

tangqingfu 发表于 2012-6-10 09:49
sylun兄在Word VBA方面很有造诣，楼主能得他的指点，真是件幸福的事。
你们学校是如何利用Word上课的，很是 ...

我们用PPT讲解知识点，用word做单选题、或填空题等，因为word复制、粘贴相对容易。

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

[求助] word 单选题答题卡代码

点评

[求助] word 单选题答题卡 代码

点评

[求助] word 单选题答题卡代码