10.12.08简单的单选题

笨巧果 发表于: 2010-12-08 22:12 来源: 扑奔PPT网

南剑 发表于 2010-12-08 22:37:54

请老师指点。谢谢

幻灯片1.JPG

幻灯片2.JPG

16.3 KB, 下载次数: 50)

朋友们 发表于 2010-12-08 22:40:06

历害，是如何搞出来的呢？

心的 发表于 2010-12-08 22:55:57

谢谢果果老师！

幻灯片1.JPG

幻灯片2.JPG

幻灯片3.JPG

23.9 KB, 下载次数: 36)

633799 发表于 2010-12-08 23:15:06

可可西里滴作业

幻灯片1.JPG

幻灯片2.JPG

幻灯片3.JPG

幻灯片4.JPG

火兔 发表于 2010-12-09 00:22:09

尝试着做了一下多选题，基本功能可以实现，不知道为什么多选框不能恢复未选中状态，请笨巧果老师帮忙检查一下代码。

 

(2010-12-09 00:22:09, Size: 24.5 KB, Downloads: 48)

多选题的代码
Private Sub CheckBox1_Click()
If CheckBox1.Value = False Then
   CheckBox1.Value = True
   a.Caption = ""
Else
   CheckBox1.Value = False
   a.Caption = "A"
End If
End Sub
Private Sub CheckBox2_Click()
If CheckBox2.Value = False Then
   CheckBox2.Value = True
   B.Caption = ""
Else
   CheckBox2.Value = False
   B.Caption = "B"
End If
End Sub
Private Sub CheckBox3_Click()
If CheckBox3.Value = False Then
   CheckBox3.Value = True
   D.Caption = ""
Else
   CheckBox3.Value = False
   D.Caption = "D"
End If
End Sub
Private Sub CheckBox4_Click()
If CheckBox4.Value = False Then
   CheckBox4.Value = True
   C.Caption = ""
Else
   CheckBox4.Value = False
   C.Caption = "C"
End If
End Sub
Private Sub tijiao_Click()
If CheckBox1.Value = True And CheckBox2.Value = False _
   And CheckBox3.Value = False And CheckBox4.Value = False Then
   MsgBox ("恭喜你，答对了！")
Else
   MsgBox ("很遗憾，答错了！")
End If
End Sub
Private Sub qingkong_Click()
CheckBox1.Value = False
CheckBox2.Value = False
CheckBox3.Value = False
CheckBox4.Value = False
a.Caption = ""
B.Caption = ""
C.Caption = ""
D.Caption = ""
End Sub

tanlinhyhy 发表于 2010-12-09 15:11:21

这是我的作业，我的OFFICE 是2007版的

51.4 KB, 下载次数: 44)

springlet2002 发表于 2010-12-09 15:35:01

历害，是如何搞出来的呢？

笨巧果 发表于 2010-12-09 18:31:20

火兔老师，请参考这个选择题的做法～～～

23.6 KB, 下载次数: 28)

卑鄙小人 发表于 2010-12-09 19:40:09

老师辛苦了，谢谢，嘿嘿

(2010-12-09 19:40:09, Size: 17 KB, Downloads: 42)

20101208果果老师单选动画.jpg

火兔 发表于 2010-12-09 21:20:44

谢谢笨巧果老师指导。我的代码出不来正确的结果，是不是因为checkbox的代码会造成计算机内部的混乱啊。麻烦笨巧果老师给说一下到底错在哪里，谢谢。

火兔 发表于 2010-12-10 18:06:01

笨巧果老师，在你做的多选题基础上添加了一个得分效果。增加了一个得分标签。提交按钮的代码如下。
Private Sub tijiao_Click()
If CheckBox1.Value = True And CheckBox2.Value = False And CheckBox3.Value = True And CheckBox4.Value = True Then
   defen.Caption = "40"
   MsgBox ("恭喜你，答对了！")
'以上为完全正确
ElseIf CheckBox2.Value = True Then
   defen.Caption = "0"
   MsgBox ("很遗憾，答错了！")
'以上为错误答案
ElseIf CheckBox1.Value = False And CheckBox2.Value = False And CheckBox3.Value = False And CheckBox4.Value = False Then
   defen.Caption = "0"
   MsgBox ("请进行选择！")
'以上为未进行选择
Else
   If CheckBox1.Value = True Then
      If CheckBox3.Value = True Or CheckBox4.Value = True Then
      defen.Caption = "20"
'以上为选中1、3或1、4，得20分
      Else
      defen.Caption = "10"
'以上为只选中1，得10分
      End If
   Else
      If CheckBox3.Value = True And CheckBox4.Value = True Then
      defen.Caption = "20"
'以上为选中3、4，得20分
      Else
      defen.Caption = "10"
'以上为只选中3或4，得10分
      End If
   End If
   MsgBox ("选择不完整！")
'以上几种情况均弹出选择不完整对话框
End If
End Sub

(2010-12-10 18:06:01, Size: 22 KB, Downloads: 52)

笨巧果 发表于 2010-12-10 22:41:38

QUOTE:

原帖由 火兔 于 2010-12-9 21:20 发表
谢谢笨巧果老师指导。我的代码出不来正确的结果，是不是因为checkbox的代码会造成计算机内部的混乱啊。麻烦笨巧果老师给说一下到底错在哪里，谢谢。

您在checkbox的单击事件中，更改了checkbox的value值，造成了代码错误。

笨巧果 发表于 2010-12-10 22:52:49

仔细看了您的代码，很工整很漂亮！

jack0421 发表于 2011-1-04 23:32:05

QUOTE:

原帖由 火兔 于 2010-12-10 18:06 发表
笨巧果老师，在你做的多选题基础上添加了一个得分效果。增加了一个得分标签。提交按钮的代码如下。
Private Sub tijiao_Click()
If CheckBox1.Value = True And CheckBox2.Value = False And CheckBox3.Value = Tr ...

试试我整理的代码效果

Private Sub tijiao_Click()
    If CheckBox2.Value = True Then
        defen.Caption = "0"
        MsgBox ("很遗憾，答错了！")
    ElseIf CheckBox1.Value = True And CheckBox3.Value = True And CheckBox4.Value = True Then
        defen.Caption = "40"
        MsgBox ("恭喜你，答对了！")
    ElseIf CheckBox1.Value = True And CheckBox3.Value = False And CheckBox4.Value = False Or CheckBox3.Value = True And CheckBox1.Value = False And CheckBox4.Value = False Or CheckBox4.Value = True And CheckBox1.Value = False And CheckBox3.Value = False Then
        defen.Caption = "10"
        MsgBox ("选择不完整！")
    Else
        defen.Caption = "20"
        MsgBox ("选择不完整！")
    End If

End Sub