题目

某程序部分代码如下: Dim i As Integer,s As String Dim a(1 To 10)As Integer,b(1 To 10)As Integer a(1)= 82:a(2)= 96:a(3)= 68:a(4)= 93:a(5)=87 a(6)=95:a(7)=84:a(8)=91:a(9)=80:a(10)=98   For i=1 To 10     b(a(i)\10)= b(a(i)\10)+1   Next i   For i=1 To 10     If b(i)> 0 Then       s=s &Str(b(i))&" "     End If   Next i Text1.Text=s 运行该程序后,在文本框Text 1中显示的内容为(  ) A . 5 4 1 B . 1 1 3 5 C . 1 4 5 D . 5 3 1 1 答案:C
信息技术 试题推荐
最近更新