vb题目:输入一个(0~255)之间的十进制正整数,将其转换为二进制,比如输入7转换为00000111

解： Private Sub Command1_Click() y = Val(InputBox("请输入要转换为二进制的十进制数字：")) If 0 <= y And y <= 255 Then Do m = y Mod 2 '取余数 y = y\ 2 '取整 s = s & m Loop While y 0 s = s & String(8 - Len(s), "0") '不足8位补零 Print