博客

知识点：Msgbox的使用；for语句；

实例：B列为正确答案，C列填写挑战者答案，对一个10分，C12填写最终得分，C13填等级。

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
    
End Sub

MsgBox是Visual Basic的一个函数，功能是弹出一个对话框，等待用户单击按钮，并返回一个Integer值表示用户单击了哪一个按钮。“MsgBox”即为“Message Box”的缩写，在英语中意为“信箱”。

语法：MsgBox (Prompt [,Buttons] [,Title] [,Helpfile,Context])

MsgBox函数参数：

Buttons参数设置值：

常数都是Visual Basic for Applications（


VBA


）指定的。所以，可以在程序代码中使用这些常数名称，而不使用实际数值。

MsgBox函数返回值：

Msgbox百度百科地址：

Msgbox百度百科