题库 高中信息
题干
输入19，输出的结果为 。
Dim s As String '定义变量s为字符串类型
Dim n As Long
n = InputBox("n")
s = ""
Do While n > 0
a =" n" Mod 2
s =" Str(a)" + s '将数字a转换成字符，连接在字符串s的左边
n =" n" \ 2
Loop
Print s
Dim s As String '定义变量s为字符串类型
Dim n As Long
n = InputBox("n")
s = ""
Do While n > 0
a =" n" Mod 2
s =" Str(a)" + s '将数字a转换成字符，连接在字符串s的左边
n =" n" \ 2
Loop
Print s
答案(点此获取答案解析）
