Question

VB编程语言

将一个十进制正整数转化为二进制数可以采用"除二取余法"，主要方法就是将十进制数用2除，保存所得余数，然后将商的整数部分作为下次运算的被除数，重复上述"除二取余"操作，直到商的整数部分为零停止。

程序界面如图VB-1所示，在文本框Text1中输入一个正整数，单击"开始转换"按钮（Command1）后，对应的二进制数在标签Label3中显示出来。

解决此问题的算法流程图如图VB-2所示，相应的Visual Basic程序如下，在程序(1)和(2)划线处，填入适当的语句或表达式，把程序补充完整。

Private Sub Command1_Click()

Dim x As Integer, s As String, r As Integer, t As Integer

_____(1)_____

s = ""

Do While x <> 0

r = x Mod 2

s = Str(r) + s

x = _____(2)_____

Loop

Label3.Caption = s

End Sub

程序中(1)划线处应填入___________________

程序中(2)划线处应填入___________________

图VB－1

Answer 1

程序中(1)划线处应填入 x=val(text1.text)

程序中(2)划线处应填入 x=x\2

转换后二进制是从右往左读的！！！

Answer 2

x = val(text1.text)

x = x \ 2

Answer 3

倒着读不好，不如加Strreverse语句（反转字符串）

Answer 4

x=val(text1.text)
x=x\2