下列两个二进制数进行算术加运算，100001＋111=（　　）。

A.Private Sub Co mmand1＿Click（） Di nt BAs Books Open ＂c ：＼Person ．txt＂For Output As ＃1 B ．Name ＝InputBox（＂输入姓名＂） B ．TelNum＝InputBox（＂输入电话号码＂） Write ＃1，B．Name ，B．TelNum Close ＃1End Sub
B.Private Sub Co mmand1＿Click（）Di m BAs Books Open ＂c ：＼Person ．txt＂For Input As ＃1 B ．Name ＝InputBox（＂输入姓名＂） B ．TelNum＝InputBox（＂输入电话号码＂） Print ＃1，B．Name ，B．TelNum Close ＃1End Sub
C.Private Sub Co mmand1＿Click（）Di m BAs Books Open ＂c ：＼Person ．txt＂For Output As ＃1 Name ＝InputBox（＂输入姓名＂） TelNo m＝InputBox（＂输入电话号码＂） Write ＃1，B Close ＃1End Sub
D.Private Sub Co mmand1＿Click（） Di m BAs BookOpen ＂c ：＼Person ．txt＂For Input As ＃1 Name ＝InputBox（＂输入姓名＂） TelNum－InputBox（＂输入电话号码＂） Print ＃1，B．Name ．B．TelNumClose ＃1End Sub

A.a＝5：b ＝8 Do Print ＂＊＂ a＝a＋1Loop While a＜b
B.a＝5：b ＝8 Do Print ＂＊＂ a＝a＋1 Loop Until a＜b
C.a＝5：b ＝8 DoUntil a－b Print ＂＊＂ b ＝b ＋1Loop
D.a＝5：b ＝8 Do Until a＞b Print ＂＊＂ a＝a＋1Loop