以下循环语句中在任何情况下至少执行一次循环体的是______。

A) Ptivate Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii=13 Then '回车符的ASCⅡ码是13
a=Val(Text1)
If a＞=0 Or a＜=100 Then
Text2.SetFocus
Else
Text1.SetFocus:MsgBox("分数错")
End If
End If
End Sub
B) Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii=13 Then'回车符的ASCⅡ码是13
a=Val(Text1)
If a＞=0 And a＜=100 Then
Text1.SetFocus
Else
Text2.SetFocus:MsgBox("分数错")
End If
End If
End Sub
C) Ptivate Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii=13 Then'回车符的ASCⅡ码是13
a=Val(Text1)
If a＜0 And a＞100 Then
Text2.SetFocus
Else
Text1.SetFocus：MsgBox("分数错")
End If
End If
End Sub
D) Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii=13 Then'回车符的ASCⅡ码是13
a=Val(Text1)
If a＞=0 And a＜=100 Then
Text2.SetFocus
Else
Text1.SetFocus:MsgBox("分数错")
End If
End If
End Sub

A) 13
B) 26
C) 30
D) 40