Asc

应用示例

'!TITLE "转换成字符编码"
' 在aaa中代入"A"的字符编码
Sub Sample_Asc

  Dim aaa As Integer

  ' 在aaa中代入"A"的字符编码65(&H41)
  aaa = Asc( "A" )

  ' 在讯息输出视窗中显示"A"的字符编码(65)
  PrintDbg aaa

  ' 在aaa中代入"A"的字符编码65(&H41)
  aaa = Asc( "ABCDEFGH" )

  ' 在讯息输出视窗中显示"A"的字符编码(65)
  PrintDbg aaa

End Sub