求教

Select Case Text1.Text

for 循环 和asc 够不够15个字那

VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 4230
ClientLeft = 60
ClientTop = 435
ClientWidth = 7260
LinkTopic = "Form1"
ScaleHeight = 4230
ScaleWidth = 7260
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton Command1
Caption = "确定"
Height = 495
Left = 3720
TabIndex = 2
Top = 3000
Width = 1935
End
Begin VB.TextBox Text2
Height = 1215
Left = 1320
MultiLine = -1 'True
TabIndex = 1
Top = 1440
Width = 5175
End
Begin VB.TextBox Text1
Height = 855
Left = 1200
TabIndex = 0
Text = "abcdefghijklmnopqrstuvwxyz"
Top = 120
Width = 5415
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim i As Integer
Dim a As String
Dim z As String
Private Sub Command1_Click()
For i = Asc("a") To Asc("z")
Print (i - 96)
Text2 = Text2 & (i - 96) & vbTab
Next
End Sub