单项选择题

下面程序功能是在文本框输入一个正整数,转换为7进制后在标签显示结果。在空白处填入合适的表达式,使程序完整。Dim n As IntegerDim s As Stringn = Val(TextBox1.Text)Do While ________    s = n Mod 7 & s    n = n \ 7LoopLabel1.Text = s
A、n > 0
B、n > 7
C、s > 0
D、TextBox1.Text > 0
E、n < 0