(VB字符类型.docVIP

VB语言中的val()函数是什么意思？如何使用？将一个数据行变量转换成数字长整型变量 如 text1.text = 10 text2.text = 11 text3.text = text1.text+text2.text 按道理应该得到10＋11（结果是21），但是返回什么呢？返回的是1011 这个是因为运算时候是字符运算 所以这样不行 那么怎么办呢？ text1.text = 10 text2.text = 11 text3.text = val(text1.text)+val(text2.text) 这样就返回21了 因为这里不是计算11+12而是计算11+12 前者等同于11 12 如果是字符串或者空格会返回一个0 所以可以利用这一点过滤字符只能输入数字vb mid替换函数 的详细用法+例子MID函数 【名称】 Mid 从字符串中返回指定数目的字符。 【类别】 字符串函数 【原形】 Mid(string, start[, length]) 【参数】 string 字符串表达式，从中返回字符。如果 string 包含 Null，则返回 Null。 Start string 中被提取的字符部分的开始位置。如果 start 超过了 string 中字符的数目，Mid 将返回零长度 字符串 ()。 Length 要返回的字符数。如果省略或 length 超过文本的字符数（包括 start 处的字符），将返回字符串中从 start 到字符串结束的所有字符。 说明 要判断 string 中字符的数目，可使用 Len 函数。 下面的示例利用 Mid 函数返回字符串中从第四个字符开始的六个字符： Dim MyVar MyVar = Mid(VB脚本is fun!, 4, 6) MyVar 包含 Script。 注意 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() 十到二 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 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 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() 十六到二 Dim a As String Dim b As String Dim i As Integer a = InputBox(十六进制数) a = UCase(a) For i = 1 To Len