新建 文本文档.txt
来自「一个小小的VB选择题系统希望大家试试看 多多交流」· 文本 代码 · 共 15 行
TXT
15 行
考试系统--选择题(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勾月guocan@msn.cn
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?