在窗体上有两个名称分别为Text1、Text2的文本框和一个名称为Command1的命令按钮。运行后的窗体外观如下图所示。


设有如下的类型和变量声明：
Private Type Person
name As String*8
major As String*20
End Type
Dim p As Person
设文本框中的数据已正确地赋值给Person类型的变量p，当单击"保存"按钮时，能够正确地把变量中的数据写入随机文件Test2.dat中的程序段是______。

A) Do While＜条件＞
循环体
Loop
B) Do
循环体
Loop While＜条件＞
C) Do Until＜条件＞
循环体
Loop
D) While＜条件＞
循环体
Wend

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