题目

有如下VB程序段： Const n=10 Dim a(1 To 10) As Integer m = Int(Rnd( ) *n+ 1) For i=1 To n     a(i)= 0 Next i i=0：j=0：c=1：ans="" Do While c<=3     i=i Mod n+1     If a(i)=0 Then j=j+1     If j=m Then         a(i)=1：c=c+1         j=0： ans = ans+ str(i)     End If Loop Text1．Text = ans 执行上述程序段后，文本框Text1中不可能显示的内容是(     ) A . 2  4  6 B . 7  4  2 C . 5  10  6 D . 6  2  8 答案：D

查看本题答案和解析