Dim style As Integer
Dim title As String
Dim response As Integer
Dim msg2 As String
msg1 = "两只老虎两只老虎." + Chr(13) + Chr(13) + _
"跑得快,跑得快." + Chr(13) + Chr(13) + _
"一只没有耳朵，一只没有嘴巴" + Chr(13) + Chr(13) + _
"真奇怪真奇怪." + Chr(13) + Chr(13) + Chr(13) + Chr(13) + _
"你喜欢这歌吗?"
style = vbApplicationmdal + vbDefaultButton1 + _
      vbInformation + vbYesNoCancel
title = "歌一首"
response = MsgBox(msg1, style, title)
Select Case response
Case vbYes
msg2 = "你和我想的不一样"
Case vbNo
msg2 = "你和我想的一样"
Case vbCancel
msg2 = "混蛋"
End Select
MsgBox msg2 ' "询问结果:"（为什么对话窗口不是这个询问结果）
End Sub
请帮忙解释一下红色字体的用处..

谢谢了 大致上懂了