VB实现2进制与10进制转换

合集下载
  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。

VB实现2进制与10进制转换
分类:电脑/网络 >> 程序设计 >> 其他编程语言
问题描述:
代码和解释初学者谢谢大家了!
解析:
Private Sub Command1_Click()
Print tenTOo(1000)
End Sub
Private Sub Command2_Click()
Print oTOten("***********")
End Sub
Function tenTOo(n As Integer) As String
Dim S As String
S = ""
Do While n <> 0 '从1至n,按照“逢2进1”法则计算,一直到转换完毕
a = n Mod 2 '可以理解为二进制字符串的最后一位的数字,0或1
n = n \ 2 '这是整除,只取结果的整数部分,小数部分不取。

是求“进1”之后所剩的尚待进行转换的整数部分
S = Chr(48 + a) & S '这里说不清楚了,你意会吧,靠你自己了。

Chr(48)是数字字符0,如果a=1则为Chr(48+1),即数字符1 Loop
tenTOo = S
End Function
Function oTOten(S As String) As Integer
Dim n As Integer
n = Val(Mid(S, 1, 1)) '取出第一位的1以备进入循环第一轮时用
For i = 2 T o Len(S) '从二进制字符串的第二位开始(第一位已取出)至最后一位,分别取出1个数字进行计算
n = n * 2 + Val(Mid(S, i, 1)) '按照“逢2进1”的法则倒转过来计算
Next i
oTOten = n
End Function
分页:123。

相关文档
最新文档