问题标题:
vb问题,建立一个工程,在输入框中输入一个正整数(10进制),将其转化成二进制数。
问题描述:
vb问题,建立一个工程,在输入框中输入一个正整数(10进制),将其转化成二进制数。
任国珍回答:
PrivateSubCommand1_Click()
DimshiAsInteger
DimerAsString
DimsAsInteger
shi=Text1
Do
s=shiMod2
er=s&er
shi=shi2
LoopWhileshi0
Print"转换为二进制数为:"&er
EndSub
点击显示
其它推荐