Private Sub Command1_Click()
Dim ch As String, pos As Integer
= Text1.Text
pos = Asc(ch) – 64
Label2.Caption = "第" + Str(pos) + "个字母"
End Sub
微信扫码预览、分享更方便