UC知道vb 十进制 二进制
来源：百度知道 编辑：UC知道 时间：2024/05/25 05:09:51
在VB中怎样把十进制转为二进制啊?
我是初学者,请各位帮帮忙,(重新写一下也行)
我写到一半,不知道怎么写了
private sub command1_click()
do
r=m mod 2
s=m\2
m=s
loop until s=0
我想知道,怎样把每次r得到的值保存起来啊.
我是初学者,请各位帮帮忙,(重新写一下也行)
我写到一半,不知道怎么写了
private sub command1_click()
do
r=m mod 2
s=m\2
m=s
loop until s=0
我想知道,怎样把每次r得到的值保存起来啊.
Private Function TenturnTwo(ByVal varNum As Long)
Dim returnString As String, ModNum As Integer
Do While varNum > 0
ModNum = varNum Mod 2
varNum = varNum \ 2
returnString = Trim(Str(ModNum)) + returnString
Loop
TenturnTwo = returnString
End Function
Private Sub Command1_Click()
Print TenturnTwo(8)
End Sub
在DO前面加上r=""。然后把r=m mod 2改为r=r+trim(str(m mod 2))就行了
Private Sub command1_click()
m = InputBox("请输入数字:")
Do
r = r & CStr(m Mod 2)
s = m \ 2
m = s
Loop Until s = 0
Print "十进制数"m;"的二进制数是:";r
End Sub