vb编程的代码问题

青蛙道人

1. Private Sub Command1_Click()
   
2. Dim x$, n%
   
3. n = 20
   
4. x = ""
   
5. Do While n <> 0
   
6. a = n Mod 2
   
7. n = n \ 2
   
8. x = Chr(48 + a) & x
   
9. Loop
   
10. Print x
    
11. End Sub

复制代码

程序运行结果是？ 该程序功能是？ 请求给点详细的说明谢谢！

夜神月

程序的结果是10100
功能是将20转化为二进制表示，也就是10100

青蛙道人

哈哈，原来如此，谢啦。