- 958 名前：デフォルトの名無しさん [04/12/07 21:10:45]
- ［Ｔｅｘｔ１］に入力した文字（アルファベット）を
［Ｔｅｘｔ２］（数値）文字分マイナス転置（アスキーコードで）する
プログラムを作っています。
例：cde⇒abc 2文字動かす
下のプログラムだと最初の１文字しか表示されません。
入力した数だけ表示させるにはどうすればいいでしょうか？
お願いします。
Private Sub Command1_Click()
i = Len(Text1.Text)
Text3.Text = Chr(Asc(Mid(Text1.Text, i, 1)) - Val(Text2.Text))
End Sub
