VB字符类型

注意MidB函数与包含在字符串中的字节数据一起使用。其参数不是指定字符数，而是字节数。
例：
M=4100
A1=Mid(M,1,1) A1=4
A2=Mid(M,2,2) A2=10
直接用Val("&H" & "123")这样就将十六进制的123(&H123)转换成了十进制数了。
Private Sub Command1_Click()
MsgBox "数据错"
Exit Sub
End If
Next i
b = 0
For i = 1 To Len(a)
If Mid(a, i, 1) > "9" Then
t = Asc(Mid(a, i, 1)) - 55
Else
t = Asc(Mid(a, i, 1)) - 48
End If
b = b * 16 + t
那么怎么办呢？
text1.text = "10"
text2.text = "11"
text3.text = val(text1.text)+val(text2.text)
这样就返回21了因为这里不是计算"11"+"12"而是计算11+12前者等同于"11" & "12"
如果是字符串或者空格会返回一个0 所以可以利用这一点过滤字符只能输入数字
i = t Mod 2
t = t \ 2
b = i & b
Loop While t > 0
If Len(b) = 2 Then b = "00" & b
If Len(b) = 3 Then b = "0" & b
ch16to2 = b
End Function
Private Sub Command3_Click()
Next i
Print b
End Sub
Private Sub Command5_Click()
'二到十
Dim a As String
Dim b As Integer
Dim i As Integer
Dim t As Integer
a = InputBox("二进制数")
For i = 1 To Len(a)
b = "&H" & b
Print b
End Sub
Function ch16to2(a As String) As String
Dim t As Integer, b As String
If a > "9" Then
t = Asc(a) - 55
Else
t = Asc(a) - 48
End If
Do
If Not ((Mid(a, i, 1) >= "0") Or (Mid(a, i, 1) >= "1")) Then
MsgBox "数据错"
Exit Sub
End If
Next i
b = 0
For i = 1 To Len(a)
t = Asc(Mid(a, i, 1)) - 48
b = b * 2 + t
1.VB语言中的val()函数是什么意思？如何使用？
将一个数据行变量转换成数字长整型变量
如
text1.text = "10"
text2.text = "11"
text3.text = text1.text+text2.text
按道理应该得到10＋11（结果是21），但是返回什么呢？返回的是1011这个是因为运算时候是字符运算所以这样不行
'十到二
Dim i As Integer
Dim a As Integer
Dim b As String
a = InputBox("a")
Do
i = a Mod 2
a = a \ 2
b = i & b
Loop While a > 0
Print b
End Sub
Private Sub Command2_Click()
'十到十六
Dim i As Integer
Dim a As Integer
Dim b As String
a = InputBox("a")
Do
i = a Mod 16
a = a \ 16
If i >= 10 Then
b = Chr(55 + i) & b
Else
b = i & b
End If
Loop While a > 0
Next i
Print b
End Sub
字符串("")。
Length
要返回的字符数。如果省略或length超过文本的字符数（包括start处的字符），将返回字符串中从start到字符串结束的所有字符。
说明
要判断string中字符的数目，可使用Len函数。
下面的示例利用Mid函数返回字符串中从第四个字符开始的六个字符：
Dim MyVar
MyVar = Mid("VB脚本is fun!", 4, 6) 'MyVar包含"Script"。
MsgBox "数据错"
Exit Sub
End If
Next i
For i = 1 To Len(a)
t = ch16to2(Mid(a, i, 1))
b = b & t
Nwk.baidu.comxt i
Print b
End Sub
Private Sub Command4_Click()
'十六到十
Dim a As String
vb mid替换函数的详细用法+例子
MID函数【名称】
Mid
从字符串中返回指定数目的字符。
【类别】
字符串函数
【原形】
Mid(string, start[, length])
【参数】
string
字符串表达式，从中返回字符。如果string包含Null，则返回Null。
Start
string中被提取的字符部分的开始位置。如果start超过了string中字符的数目，Mid将返回零长度
'十六到二
Dim a As String
Dim b As String
Dim i As Integer
a = InputBox("十六进制数")
a = UCase(a)
For i = 1 To Len(a)
If Not ((Mid(a, i, 1) >= "0" And Mid(a, i, 1) <= "9") Or (Mid(a, i, 1) >= "A" And Mid(a, i, 1) <= "F")) Then
Dim b As Integer
Dim i As Integer
Dim t As Integer
a = InputBox("十六进制数")
a = UCase(a)
For i = 1 To Len(a)
If Not ((Mid(a, i, 1) >= "0" And Mid(a, i, 1) <= "9") Or (Mid(a, i, 1) >= "A" And Mid(a, i, 1) <= "F")) Then