在Text1中输入正整数n，将其转化为二进制数c，通过Text2输出

Private Sub Command1_Click() Dim n As String, h As String, i As Integer, c As String n = Trim(Text1.Text) If Not (IsNumeric(n) And Val(n) > 0 And Int(n) = Val(n)) Then '判断n非数字、非正数、非整数情况 MsgBox "输入数字符n非正整数，请确认退出！",