【转载】VBA（实验4）msgbox的例子，实际手写别人的例子，挺有意思的

msgbox的实际例子

https://blog.csdn.net/bangemantou/article/details/70146067

 

EXCEL的对应sheet

 

开心辞典	标准答案	应试者答案
1,选A，选B	√	√
2,选A，选B	√	√
3,选A，选B	×	×
4,选A，选B	×	×
5,选A，选B	√	√
6,选A，选B	×	×
7,选A，选B	×	×
8,选A，选B	√	√
9,选A，选B	√	√
10,选A，选B	√	√
得分		100
等级		你最棒

 

 

Sub 开心辞典()
    
    Dim DA As Integer, TM As Integer, FS As Integer
    Dim i As Integer
    For i = 2 To 11
        DA = MsgBox(Range("A" & i).Value, vbYesNo + vbQuestion + vbDefaultButton1, "开心辞典")
        If DA = 6 Then
            Range("C" & i).Value = "√"
        Else
            Range("C" & i).Value = "×"
        End If
        
        If Range("B" & i).Value = "√" Then
            TM = 6
        Else
            TM = 7
        End If
        If TM = DA Then
            FS = FS + 10
        End If
    Next i
    Range("C12").Value = FS
    
    If FS >= 90 Then
        DA = MsgBox("你最棒", vbCritical + vbDefaultButton1, "开心辞典")
        Range("C13").Value = "你最棒"
    Else
        If FS >= 60 Then
            DA = MsgBox("还可以", vbCritical + vbDefaultButton1, "开心辞典")
            Range("C13").Value = "还可以"
        End If
        DA = MsgBox("失败", vbExclamation + vbDefaultButton1, "开心辞典")
        Range("C13").Value = "失败"
    End If