transfer.bas

公交调度实例程序

Attribute VB_Name = "transfer"
Public Function b2q(Str1 As String) As String
Dim QJ(30 To 125) As String
Dim I As Integer
Dim Str2 As String
Dim a As Integer

QJ(32) = " "
QJ(33) = "！"
QJ(35) = "＃"
QJ(44) = ","
QJ(&H30) = "０"
QJ(&H31) = "１"
QJ(&H32) = "２"
QJ(&H33) = "３"
QJ(&H34) = "４"
QJ(&H35) = "５"
QJ(&H36) = "６"
QJ(&H37) = "７"
QJ(&H38) = "８"
QJ(&H39) = "９"
QJ(58) = "："
QJ(59) = "；"
QJ(60) = "＜"
QJ(61) = "＝"
QJ(62) = "＞"
QJ(63) = "？"
QJ(64) = "＠"
QJ(65) = "Ａ"
QJ(66) = "Ｂ"
QJ(67) = "Ｃ"
QJ(68) = "Ｄ"
QJ(69) = "Ｅ"
QJ(70) = "Ｆ"
QJ(71) = "Ｇ"
QJ(72) = "Ｈ"
QJ(73) = "Ｉ"
QJ(74) = "Ｊ"
QJ(75) = "Ｋ"
QJ(76) = "Ｌ"
QJ(77) = "Ｍ"
QJ(78) = "Ｎ"
QJ(79) = "Ｏ"
QJ(80) = "Ｐ"
QJ(81) = "Ｑ"
QJ(82) = "Ｒ"
QJ(83) = "Ｓ"
QJ(84) = "Ｔ"
QJ(85) = "Ｕ"
QJ(86) = "Ｖ"
QJ(87) = "Ｗ"
QJ(88) = "Ｘ"
QJ(89) = "Ｙ"
QJ(90) = "Ｚ"
QJ(95) = "－"
QJ(97) = "ａ"
QJ(98) = "ｂ"
QJ(99) = "ｃ"
QJ(100) = "ｄ"
QJ(101) = "ｅ"
QJ(102) = "ｆ"
QJ(103) = "ｇ"
QJ(104) = "ｈ"
QJ(105) = "ｉ"
QJ(106) = "ｊ"
QJ(107) = "ｋ"
QJ(108) = "ｌ"
QJ(109) = "ｍ"
QJ(110) = "n"
QJ(111) = "ｏ"
QJ(112) = "ｐ"
QJ(113) = "ｑ"
QJ(114) = "ｒ"
QJ(115) = "ｓ"
QJ(116) = "ｔ"
QJ(117) = "ｕ"
QJ(118) = "ｖ"
QJ(119) = "ｗ"
QJ(120) = "ｘ"
QJ(121) = "ｙ"
QJ(122) = "ｚ"

Str2 = ""
For I = 1 To Len(Str1)
    a = Asc(Mid$(Str1, I, 1))
    Str2 = Str2 & QJ(a)

Next I

b2q = Str1

End Function