题库 高中信息

题干

有如下VB 程序段:
Private Sub Commandl_Click()
Dim d(l To 6) As Integer
Dim t As Integer
d(1)=35:d(2)=18:d(3)=63:d(4)=5:d(5)=85:d(6)=47
For i=1 To 3

For j=i+1 To 6

If d(j)<d(j-1) Then
t=d(j):d(j)=d(j-1):d(j-1)=t
End If

Next j

Textl.Text=Str(d(i))+Text1.Text
Next i
End Sub .
执行该程序段后,文本框 Textl输出的内容是(   )
A.47 63 85B.35 5 18C.85 63 47D.18 5 35
上一题 下一题 0.99难度 选择题 更新时间:2020-03-31 08:08:24

答案(点此获取答案解析)