VB十进制转换为二进制-VB十进制转换为二进制

AID:
CID:
视频图片:
作者头像:
弹幕地址:
视频描述:

热门回复:

  • 小橘白-:Private Sub Command1_Click() Dim n, r As Integer Dim s As String n = Val(Text1.Text) Do While n > 0 r = n Mod 2 s = Str(r) + s n = n \ 2 Loop Text2.Text = s End Sub
  • nbody编程菌:我又来支持UP了哇~