网上找了几道vb单选题，做成的vb单选题

laose

网上找了几道vb单选题，做成如下小课件~

Admin

   

很遗憾通知楼上朋友，您的帖子在24小时之内没有任何回复！

通常情况下，本论坛发布的主题帖会在8小时被回复或处理。您的帖子在24小时之内未被回复，其中的原因可能是：

1、问题表述不清、模棱两可，难以理解，帮助者被搞晕了，夺帖而出；
2、没有上传必要的附件，或附件被遗忘在某个角落；
3、发帖提问时，语气带棱角、带挑衅，不幸被列入不受欢迎的帖子；
4、所提问题不成立，或提不合理的要求，乐于助人者使出“走为上”之计；
5、话题较偏、较冷或者发布到了不合适的版块，暂时无人问津，顾影自怜。


为了提高您的问题解决效率，我们推荐您阅读以下文章：
* 如何发表新话题和上传附件：http://club.excelhome.net/thread-45649-1-1.html
* 发帖的技巧：http://club.excelhome.net/thread-176339-1-1.html
* EH技术论坛的最佳学习方法：http://club.excelhome.net/thread-117862-1-1.html

jack0421

好东西啊

一笔书天地

谢谢分享，学习了

petercc833

没有看懂！

petercc833

哪位大神给解释一下，题目存在哪里呀！

petercc833

能不能解释一下，题目、选项等数据存放在哪里？能否进行修改？

yangqianming

看不懂，也没有看到题目放在哪儿？

petercc833

'读取图形标记数据
Public Const q = 20
Public p(q) As Integer
Public s As Integer
Public sum As Integer

Sub shpQues()    '出题按钮
    With ActivePresentation.Slides(2)
        Set shp1 = .Shapes("stems")    '题干
        Set shp2 = .Shapes("opta")  '四个选项
        Set shp3 = .Shapes("optb")
        Set shp4 = .Shapes("optc")
        Set shp5 = .Shapes("optd")
    End With
    s = s + 1
   
    If s <= q Then
        shp1.TextFrame.TextRange.Text = s & "、" & shp1.Tags.Value(p(s))
        shp2.TextFrame.TextRange.Text = shp2.Tags.Value(p(s))
        shp3.TextFrame.TextRange.Text = shp3.Tags.Value(p(s))
        shp4.TextFrame.TextRange.Text = shp4.Tags.Value(p(s))
        shp5.TextFrame.TextRange.Text = shp5.Tags.Value(p(s))
    End If
    If s > q Then
        MsgBox "答题完毕，您共得：" & sum & "分"
    End If
End Sub

Sub shpJudge(shp As Shape)    '判断按钮
    With ActivePresentation.Slides(2)
        Set shp6 = .Shapes("QueType")    '将答案存放在“题型”对象中
        Set shp7 = .Shapes("Points")    '判分
    End With
    If Left(shp.TextFrame.TextRange.Text, 1) = shp6.Tags.Value(p(s)) Then
        sum = sum + 5
    End If
    shp7.TextFrame.TextRange.Text = "分数：" & sum
End Sub

Sub mySort(m As Integer)
    Randomize
    Dim i As Integer, j As Integer
    For i = 1 To m
        p(i) = 1 + (m - 1) * Rnd
        k = i
        For j = 1 To k - 1
            If p(j) = p(i) Then i = i - 1
        Next
    Next
End Sub

Sub exitApp()
    ActivePresentation.SlideShowWindow.View.Exit
End Sub

petercc833

'读取图形标记数据
Public Const q = 20
Public p(q) As Integer
Public s As Integer
Public sum As Integer

Sub shpQues()    '出题按钮
    With ActivePresentation.Slides(2)
        Set shp1 = .Shapes("stems")    '题干
        Set shp2 = .Shapes("opta")  '四个选项
        Set shp3 = .Shapes("optb")
        Set shp4 = .Shapes("optc")
        Set shp5 = .Shapes("optd")
    End With
    s = s + 1
   
    If s <= q Then
        shp1.TextFrame.TextRange.Text = s & "、" & shp1.Tags.Value(p(s))
        shp2.TextFrame.TextRange.Text = shp2.Tags.Value(p(s))
        shp3.TextFrame.TextRange.Text = shp3.Tags.Value(p(s))
        shp4.TextFrame.TextRange.Text = shp4.Tags.Value(p(s))
        shp5.TextFrame.TextRange.Text = shp5.Tags.Value(p(s))
    End If
    If s > q Then
        MsgBox "答题完毕，您共得：" & sum & "分"
    End If
End Sub

Sub shpJudge(shp As Shape)    '判断按钮
    With ActivePresentation.Slides(2)
        Set shp6 = .Shapes("QueType")    '将答案存放在“题型”对象中
        Set shp7 = .Shapes("Points")    '判分
    End With
    If Left(shp.TextFrame.TextRange.Text, 1) = shp6.Tags.Value(p(s)) Then
        sum = sum + 5
    End If
    shp7.TextFrame.TextRange.Text = "分数：" & sum
End Sub

Sub mySort(m As Integer)  
    Randomize
    Dim i As Integer, j As Integer
    For i = 1 To m
        p(i) = 1 + (m - 1) * Rnd
        k = i
        For j = 1 To k - 1
            If p(j) = p(i) Then i = i - 1
        Next
    Next
End Sub

Sub exitApp()
    ActivePresentation.SlideShowWindow.View.Exit
End Sub