Code: Select all
Dim ArrayStr(25) As String
Dim i As Integer
Dim Counter As Integer
Counter = 0
Print "文字列 " ;"変数へのポインタ " ;"文字列ポインタ ";"変数ポインタ ";"変数のアドレス"
Print "String " ;"SAdd " ;"StrPtr ";"VarPtr ";"Address of"
Print
For i = Asc("A") To Asc("Z")-5
Counter = Counter + 1
ArrayStr(Counter) = Chr(i, i+1, i+2, i+3, i+4)
Print ArrayStr(Counter) ,SAdd(ArrayStr(Counter)) ,StrPtr(ArrayStr(Counter)) ,VarPtr(ArrayStr(Counter)) ,@ArrayStr(Counter)
Next i
Sleep