<html>
<head>
<title></title>
</head>
<body>
<SCRIPT language=vbscript>
<!--
dim sstr, iasc
start
sub start()
sstr="A"
iasc=asc(sstr)
document.write (sstr & " - " & iasc)
end sub
-->
</script>
</body>
</html>
Convert 10
KodLine=KodLine1
<SCRIPT LANGUAGE=VBSCRIPT>
<!--
Sub Convert(A)
KodLine1="01" 'Двоичная
KodLine2="01234567" 'Восмиричная
KodLine3="0123456789ABCDEF" 'Шеснадцатиричная
KodLine=KodLine1
Answer=""
WHILE int(A/len(KodLine)) <>0
F = A mod len(KodLine)+1
Answer=Mid(KodLine,F ,1)+Answer
A=int(A/len(KodLine))
WEND
F = A mod len(KodLine)+1
Answer=Mid(KodLine,F,1)+Answer
Msgbox Answer
End Sub
-->
</SCRIPT>
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 11