投稿日 | : 2003/02/18(Tue) 15:59 |
投稿者 | : まな |
Eメール | : |
URL | : |
タイトル | : Re^2: Asc関数について |
ありがとうございます。下のソースを実行してみたのですが、稀に、For文で
行うと、後ろにゴミ結果?が付いてしまいます。これを無くすには、どう
処理すればよろしいのでしょうか?
Private Sub Command1_Click()
Dim ans(1 To 7) As Byte
Dim ans2 As Variant
ans(1) = Asc("1")
ans(2) = Asc("1")
ans(3) = Asc("A")
ans(4) = Asc("B")
ans(5) = Asc("C")
ans2 = ans
Text1.Text = ans2
End Sub
Private Sub Command2_Click()
Dim ans(1 To 5) As Byte
Dim ans2 As Variant
Dim s As String
s = "11ABC"
For i = 1 To 5
ans(i) = Asc(Mid(s, i, 1))
Next
ans2 = ans
Text2.Text = ans2
End Sub