' 答题程序 - VBScript实现
Option Explicit
' 定义问题和答案
Dim questions(4), answers(4), userAnswers(4)
Dim score, totalQuestions, i, userName
' 初始化问题和正确答案
questions(0) = "1. 中国的首都是哪里？"
answers(0) = "北京"
questions(1) = "2. 一年有多少个月？"
answers(1) = "12"
questions(2) = "3. 水的化学式是什么？"
answers(2) = "H2O"
questions(3) = "4. 计算机的基本输入设备是什么？"
answers(3) = "键盘"
questions(4) = "5. 太阳系中最大的行星是哪个？"
answers(4) = "木星"
totalQuestions = UBound(questions) + 1
score = 0
' 欢迎信息
userName = InputBox("欢迎参加答题测试！" & vbCrLf & "请输入您的姓名：", "答题程序")
If userName = "" Then userName = "匿名用户"
' 开始答题
For i = 0 To UBound(questions)
userAnswers(i) = InputBox(questions(i), "问题 " & (i+1) & "/" & totalQuestions)
' 检查答案
If StrComp(Trim(userAnswers(i)), answers(i), vbTextCompare) = 0 Then
score = score + 1
End If
Next
' 显示结果
MsgBox "答题结束！" & vbCrLf & vbCrLf & _
"姓名: " & userName & vbCrLf & _
"答对题数: " & score & "/" & totalQuestions & vbCrLf & _
"得分: " & FormatNumber((score / totalQuestions) * 100, 0) & "分", _
vbInformation, "测试结果"
' 显示详细答案
Dim resultDetails
resultDetails = "详细答题结果：" & vbCrLf & vbCrLf
For i = 0 To UBound(questions)
resultDetails = resultDetails & questions(i) & vbCrLf & _
"您的答案: " & userAnswers(i) & vbCrLf & _
"正确答案: " & answers(i) & vbCrLf & vbCrLf
Next
MsgBox resultDetails, vbInformation, "详细结果"
