烟囱的原理:VB编程序实现一个十进制数转换成2进制的数?
来源:百度文库 编辑:杭州交通信息网 时间:2024/06/28 09:24:03
Private Sub Command1_Click()
Print bin(Text1.Text)
End Sub
Function bin(n As Long) As String
Do Until n = 0
bin = (n Mod 2) & bin
n = n \ 2
Loop
End Function
用栈数据结构
杭州交通信息网是一部内容开放、自由的互动网络百科全书
客观、专业、权威的知识性百科全书
来源:百度文库 编辑:杭州交通信息网 时间:2024/06/28 09:24:03
Private Sub Command1_Click()
Print bin(Text1.Text)
End Sub
Function bin(n As Long) As String
Do Until n = 0
bin = (n Mod 2) & bin
n = n \ 2
Loop
End Function
用栈数据结构