如图所示,已知m是一个十进制,以下程序把m转换为一个二进制数。请根据要求,将程序补充完整。操作要求:单击“转换”按钮,在文本框2上显示转换后的十进制数。 Private Sub Command1_Click() Dim m As Integer m = Val(Text1.Text) Do k = m Mod 2 m = _________1_________ mk = _______2_________ Loop Until _____3______ Text2.Text = mk End Sub