问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

vb题目 将十进制转化为二进制???

发布网友 发布时间:2022-05-01 08:03

我来回答

3个回答

热心网友 时间:2022-06-26 11:47

以下是我自己编写的程序,不管text1有多少位数,都可以转换成二进制!

Private Sub Command1_Click()
a = Text1.Text
b = DtoB(a)
Text2.Text = b
End Sub

Function Two(s)
p = Mid(s, Len(s), 1)
Two = CDbl(p Mod 2)
End Function

Function Cf(s)
For i = 1 To Len(s) Step 1
p = Mid(s, i, 1)
m = m & CDbl(o & p) \ 2
o = CDbl(o & p) Mod 2
Next
Cf = m
End Function

Function DtoB(s)
a = s
Do
i = Two(a)
n = i & n
a = Cf(a)
Loop Until CDbl(a) = 0
DtoB = n
End Function

热心网友 时间:2022-06-26 11:47

首先你犯了两个错误……
第一,Private Function DtoB(ByVal n As Long) As String传递时应该按值传递,而不是地址来传递的

第二,你已经定义了ByVal n As Long,在下面就不应该在定义了。

改过后的程序
Private Sub Command1_Click()
Dim a, b As Long
a = Val(Text1.Text)

d = DtoB(a)
Text2.Text = d

End Sub

Private Function DtoB(ByVal n As Long) As String

Dim b As Variant

c = ""
Do While n > 0
b = n Mod 2
c = b & c
n = Int(n / 2)

Loop
DtoB = c

End Function

热心网友 时间:2022-06-26 11:48

Private Sub Command1_Click()
Dim a, b As Long
a = Val(Text1.Text)
d = DtoB(a)
Text2.Text = d
End Sub
Private Function DtoB(ByVal n As Long) As String
Dim b As Variant
c = ""
Do While n > 0
b = n Mod 2
c = b & c
n = Int(n / 2)
Loop
DtoB = c
End Function
声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
莲花冬天发芽好吗 过冬荷花什么时候发芽 一个手机号怎样登陆两个孩子的长沙市中小学生人人通云平台 人人通怎么进入学校 人人通电脑版学生怎样登录 名侦探柯南真人版3为什么要换人? 真人版柯南,你最喜欢小栗旬还是沟端淳平? 央企中国稀土集团落户江西,衷心希望江西摆脱“环江西经济带”地位_百度... 来天津的央企有哪些 东丽区的央企有哪些 VB程序设计:将十进制数转换成二进制或十六进制 vb讲十进制数转为二进制数的函数是什么? 用VB,输入一个十进制正整数,将其转换为二进制数 vb中把十进制转换为二进制的程序怎么写 急求 T_T VB 十进制转二进制 vb实现一个十进制转换二进制的功能,求代码,控件已添加,如图 vb中如何十进制转换为二进制?? 怎样在vb上将十进制数转换为二进制字符串 求在vb中十进制转换为二进制的代码(附带每一句的意思) VB 十进制转二进制 代码问题 急!! 用VB编程序实现十进制与二进制之间的相互转化. VB编程序实现一个十进制数转换成2进制的数? vb中怎么从十进制转换成二进制? 用VB编程序实现十进制与二进制之间的相互转化。 vb中十进制转换成二进制 VB中十进制转换为二进制的函数是什么? vb 十进制转化为二进制! sqlPrompt5里面没有格式化SQL的功能 在间接代理中,什么是委托人的介入权?什么是第三人的选择权 使用sql prompt时怎么刷新库结构 VB程序十进制转化为八进制、二进制、十六进制(同一个程序里) 明基W1080ST 投影仪怎么样 明基投影仪es7287北京中关村在线,有这个型号吗?多少钱? 如果我卸载钉钉,把手机进行重置。再安装钉钉,那之前数据会在吗? 逸这个字什么意思 逸字什么意思 win10+sql2016 +SQLPrompt7,但是菜单help里没有 Enter Serial Number,这咋破解? 逸是什么含义 我的钉钉年前卸载了,现在重新下载后,里面的信息为什么会没有了? 为什么说逸字不能取名 逸字取名的寓意男孩 逸,这个字代表什么意思? 男孩逸字取名的寓意是什么? 逸的含义是什么 逸字作名字好不好 逸字的含义和解析是什么? 逸字的含义是什么 名字中的(逸)字是什么意思 葡萄酒跟爱情有什么关系? 葡萄的含义是什么