能否用VB编写一段如下程序：

   文本框1.内容为：089083033056082042077082088050045048043077048041039052051087077088064085082080080

要求：文本框2.内容=将“文本框1.内容”取每3个一组转化为字符（取值为33~58内的要求加32，取值为70~89以内的要求减32）。如取到“089”即将 chr(089-32)转化为9,取到“045”即将chr(045+32)转化为M。

这么容易的东西用不着我来写吧？

Option Explicit

Private Sub Command1_Click() Dim i As Integer Dim strTemp As String Dim strOut As String For i = 1 To Len(Text1.Text) Step 3 strTemp = Mid(Text1.Text, i, 3) If Val(strTemp) >= 33 And Val(strTemp) <= 58 Then strOut = strOut & Chr(Val(strTemp) + 32) ElseIf Val(strTemp) >= 70 And Val(strTemp) <= 89 Then strOut = strOut & Chr(Val(strTemp) - 32) End If Next Text2.Text = strOut End Sub

才接触VB，有很多不明白的地方。非常感谢仁兄。