我想将字符转化为数字,这个为什么不对?

Question

Dim Str As String
Str = lstGoods.Text
Dim GID As Integer
GID = 0
For i = 2 To 11
If Mid(Str, i, 1) <> " " Then GID = GID * 10 + Mid(Str, i, 1)
Next这个为什么不对?

Answer 1

Dim Str As String
Str = lstGoods.Text
Dim GID As Integer
GID = 0
For i = 2 To 11
If Mid(Str, i, 1) <> " " Then GID = GID * 10 + Val(Mid(Str, i, 1))
Next

Answer 2

Dim Str As String
Str = lstGoods.Text
Dim GID As IntegerGID=Val(str)　'直接這樣就可以了。

Answer 3

用asc 或者自定义个函数 就可以解决了

Answer 4

如果想转换为数字,最简单的方法就是使用val()函数,CINT()也行