下面的vb程序代码有什么错误

Option Explicit

Private Sub Command1_Click()
Dim x As String, n As Integer
Dim y As String
x = Text1.Text
x = UCase(x)
For i = 1 To Len(x)
k = Mid(x, i, 1)
If Asc(k) >= 65 And Asc(k) <= 90 Then
If Asc(k) <= 85 Then
y = y & Chr(Asc(k) + 6)
Else
y = y & Chr(Asc(k) - 20)
End If
Else
MsgBox "输入出错"
End If
Next i
Text2.Text = y
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End Sub

Private Sub Command3_Click()
End
End Sub
msgbox?

有什么简单的新闻发布程序代码 vb程序代码 VB程序代码 下面的代码有什么错误呢? 下面的java代码有什么错误？ VB程序代码?看看有没有误? VB简单的计算机制作加法程序代码 求热心的朋友添加vb程序代码 请教VB保密程序代码的问题 帮忙解释一段VB的程序代码