新建 文本文档.txt

一个小小的VB选择题系统希望大家试试看 多多交流

考试系统--选择题(VB6.0源代码编写)Answer = "驻马店"
  If MsgBox("您选择的答案为：   【" + Choose(Option1(Index).Index + 1, "驻马店", "北京", "上海", "大连") + "】   是否确定？", vbQuestion + vbYesNo, "是否确定选项") = vbYes Then
     If CBool(Answer = Choose(Option1(Index).Index + 1, "驻马店", "北京", "上海", "大连")) Then
        MsgBox " 耶---！恭喜你！^-^回答正确加10分", vbInformation, "提示"
     Else
        MsgBox "回答是错误！", vbQuestion, "提示"
        End
     End If
  Else
     i = i + 1
     MsgBox "你考虑的机会共有3次，目前还有" & 3 - i & "次", vbQuestion, "系统提示"
     If i = 3 Then End
  End If
http://download.csdn.net/user/gouyue下载
QQ223857666勾月[e-mail]