Declare Function Asc Overload ( ByRef str As Const String, ByVal position As Integer = 1 ) As UInteger
Declare Function Asc ( ByVal str As Const ZString Ptr, ByVal position As Integer = 1 ) As UInteger
Declare Function Asc ( ByVal str As Const WString Ptr, ByVal position As Integer = 1 ) As UInteger

result = Asc( str [, position ] )

str
position

Целочисленное представление ASCII или Unicode символа на указанной position в str.

Если str является String или ZString, возвращается значение ASCII кода.

Если str является WString, возвращается значение Unicode кода.

Функция возвращает ноль (0) если строка является строкой нулевой длины, position получается меньше чем (1), или position больше, чем количество символов в str.

Chr выполняет противоположную функцию для ASCII строки, а WChr является противоположностью для строк в Юникоде, то есть возвращают объект string , содержащий символ, представленного кода, переданного в качестве аргумента.

Print "the ascii code of 'a' is:"; Asc("a")
Print "the ascii code of 'b' is:"; Asc("abc", 2)

вывод:

the ascii code of 'a' is: 97
the ascii code of 'b' is: 98

Unicode пример (Примечание для редакторов документации: не кладите внутрь %%(qbasic) маркеры или русский текст исчезнет!)

will produce the output:

dim a as wstring * 11 a = "Привет, мир" print "the Unicode of the second char of " & a & " is: " & asc(a)

the Unicode of the second char of Привет, мир is: 1088