韩国伦理电影好看的

Logo 全站主图
GBA转换为汉字的代码

Admin | 2013-12-16 14:40:13 | TrackRecord: 264 Times | Tag标签:Word教程 打印本页

您当前所处的位置是:〖美女AV 〗→【文章页】

韩国伦理电影好看的 本站提供经典的Excel公式函数实例,Word排版技巧,PPT教程;同时更兼有Flash,PowerPoint,数据库等技术文章。

  Dim f As String

  Dim chkOptn As Boolean

    Dim bArr(0 To 1) As Byte

    Dim sMe As String

    Dim Tile As String

    Dim Message As String

    Dim Default As String

    Default = "B0A1"

    Title = "Enter GBK code"

    Message = "Range 8140 to FEA0"

    Do While Not chkOptn

      f = InputBox(Message, Title, Default)

      f = Trim(f)

      If f = "" Then Exit Sub

    If Len(f) <> 4 Then

      MsgBox "Length of Value Entered must be 4."

    Else

       chkOptn = True

    End If

  Loop

  bArr(0) = CInt("&H" + Mid(f, 1, 2))

  bArr(1) = CInt("&H" + Mid(f, 3, 2))

  sMe = StrConv(bArr, vbUnicode, &H804)

  Selection.TypeText Text:=sMe


EmailNumber

本站仅与内容具备一定的实用价值的原创网站交换友情链接,力争为大众做出更优质的服务!
All Rights Reserved版权所有 本站备案信息:滇ICP备11001339号-2 站长AV视频 方式 Email:

韩国伦理电影好看的