题目

有如下VB程序段：Dim a（I To 10）As IntegerDim s（1 To 10）As IntegerPrivate Sub Form_Load（）  a（1）=3：a（2）=6：a（3）=8：a（4）=4：a（5）= 9  a（6）=5：a（7）=3：a（8）=3：a（9）=8：a（10）= 6End SubPrivate Sub Command1_Click（）  Dim max As Integer，i As Integer，j As Integer， k As Integer  max=0  For i=1 To 10    k=0    For j=10 Toi Step -1        If a（j）=a（i）Then k=j：Exit For    Next j    If k > 0 And k- i > max Then max=k-i  Next i  Text1.Text=Str（max）End Sub程序运行后，文本框Text1显示的内容是 （  ） A . 5 B . 6 C . 7 D . 8 答案：D

查看本题答案和解析