我也不知道

' 答题程序 - 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, "详细结果"