OptionBase 1 Private SubCommand1_Click() Dim a a=Array(45,27,34,24,91,37,11,67,82,63) For i = 1 To 9 For i = i + 1 To 10 If a(i)> a(j)Then a1 = a(i) a(i) = a(j) a(j) = a1 End If Next j Next i For i = 1 To 10 Print a(i) Next i End Sub 程序运行后,单击命令按钮,则窗体上第2行和第3行显示的内容是 A.27和34 B.34和24 C.45和63 D.24和27