中科新闻网东莞特殊上门服务微信:求教VB编程问题
来源：百度文库 编辑：中科新闻网 时间：2024/04/29 17:02:35
通过InputBox对话框接受一个二进制数，并把它转化成一个十进制数，结果显示在窗体中。
Private Sub Form_Click()
b = InputBox("请输入一个二进制数")
m = Len(b)
for j=___!___
dec = dec * 2+___!__(Mid(b,j,1))
Next j
Print b; "转换后的十进制数为"; dec
End Sub
Private Sub Form_Click()
b = InputBox("请输入一个二进制数")
m = Len(b)
for j=___!___
dec = dec * 2+___!__(Mid(b,j,1))
Next j
Print b; "转换后的十进制数为"; dec
End Sub
上面是否写错了,StrToInt是什么?
Private Sub Form_Click()
b = InputBox("请输入一个二进制数")
m = Len(b)
for j=1 to m
dec = dec * 2+cint(Mid(b,j,1))
Next j
Print b; "转换后的十进制数为"; dec
End Sub
Private Sub Form_Click()
b = InputBox("请输入一个二进制数")
m = Len(b)
for j=1 to m
dec = dec * 2+StrToInt(Mid(b,j,1))
Next j
Print b; "转换后的十进制数为"; dec
End Sub
上面是否写错了,StrToInt是什么?
Private Sub Form_Click()
b = InputBox("请输入一个二进制数")
m = Len(b)
for j=1 to m
dec = dec * 2+cint(Mid(b,j,1))
Next j
Print b; "转换后的十进制数为"; dec
End Sub