请问在vbscript 中将字符串“100010”转为二进制100010？？

[nicle_yang]

大侠帮帮啊！！！！！！

[tfront]

等我想想……

[tfront]

VBS中有二进制数据类型么?我咋记得没有阿~(看书也没有。)

[danielinbiti]

能说说你要干嘛吗？

[danielinbiti]

Private Sub Command1_Click()
Dim res
res = "100010" And "100000"
Print res
End Sub

那这样就成了，用逻辑与

[tank2508416]

?

如何将字符串 "011110110" 转换成十进制数值？

[rainstormmaster]

2进制数100010的10进制表示为34


Private Sub Command1_Click()
Dim s As String
s = "100010"
Dim i As Long
Dim num As Long
num = 0
For i = 1 To Len(s)
num = CLng(Mid(s, i, 1)) * 2 ^ (Len(s) - i) + num
Next
Debug.Print num
End Sub

[tfront]

这个字符串是２进制的？
用循环，取出每一位的数字，然后乘以位权就OK。

[danielinbiti]

dim i="011110110"
dim j as integer
dim res as integer '十进制结果
for j=1 to len(i)
res=mid(i,j,1)*2^(len(i)-j)
next j

[rainstormmaster]

to danielinbiti:
有必要修正一下:)

dim i="011110110"
dim j as integer
dim res as integer '十进制结果
res=0
for j=1 to len(i)
res=mid(i,j,1)*2^(len(i)-j)+res
next j

[danielinbiti]

谢谢rainstormmaster(rainstormmaster）提醒，
下次我一定注意先调试一下
Private command1_click()
Dim i As String
Dim j As Integer
Dim res As Integer '十进制结果
res = 0
i = "011110110"
For j = 1 To Len(i)
res = Mid(i, j, 1) * 2 ^ (Len(i) - j) + res
Next j
End Sub

[bbgbianbaogui]

我编过c语言版的各种进制转换，楼上very good!

[doudou8090]

这个到少懂一点儿，
上楼说的行

[aiur2000]

我靠，金太潸了，顶他。