在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：　　Private Sub Command1_Click()　　　n = Val(Text1.Text)　　　For i = 2 To n　　　　For j = 2 To sqr(i)　　　　　If i Mod j = 0 Then Exit For　　　　Next j　　　　If j > Sqr(i) Then Print i　　　Next i　　End Sub　　该事件过程的功能是

A．Right(c1,
B．Left(c1,
C．Mid(c1,i,1)
D．Mid(c1,i,

A．Private Sub Text1_KeyPress(KeyAscii As Intege　　　　If KeyAscii < 65 Or KeyAscii > 90 Then　　　　　　MsgBox "请输入大写字母"　　　　　　KeyAscii = 0　　　　　End If　　　　End Sub
B．Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Intege　　　　If KeyCode < 65 Or KeyCode > 90 Then　　　　　　MsgBox "请输入大写字母"　　　　　　KeyCode = 0　　　　　End If　　　　End Sub
C．Private Sub Text1_MouseDown(Button As Integer,_　　　　　　　Shift As Integer, X As Single, Y As Singl　　　　If Asc(Text1.Tex < 65 Or Asc(Text1.Tex > 90 Then　　　　　　　MsgBox "请输入大写字母"　　　　　End If　　　　End Sub
D．Private Sub Text1_Change()　　　　If Asc(Text1.Tex ＞ 64 And Asc(Text1.Tex ＜ 91 Then　　　　　　MsgBox "请输入大写字母"　　　　　End If　　　　End Sub