题库 高中信息
题干
（加试题）有如下VB程序段：
Dim a(1 To 6) As String
Text1.Text = ""
For i = 1 To 3
For j = 1 To 6 - i
If a(j) < a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = t
Next j
Text1.Text = Text1.Text + a(j)
Next i
数组元素a(1)到a(6)的值依次是“231”，“123”，“12”，“59”，“41”，“33”。若该程序段执 行后，文本框Text1显示的内容是（ ）
Dim a(1 To 6) As String
Text1.Text = ""
For i = 1 To 3
For j = 1 To 6 - i
If a(j) < a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = t
Next j
Text1.Text = Text1.Text + a(j)
Next i
数组元素a(1)到a(6)的值依次是“231”，“123”，“12”，“59”，“41”，“33”。若该程序段执 行后，文本框Text1显示的内容是（ ）
| A．123341 | B．23112359 | C．12123231 | D．594133 |
答案(点此获取答案解析）
