以下说法中正确的是( )
Const n=5
For i=1 To 2
For j=n-1 To i step-1
If a(j)>a(j+1) Then
t=a(j):a(j)=a(j+1):a(j+1)=t
End If
Next j
Next i
数组元素a(1)到a(5)的值依次为“33,24,45,16,77”,经过该程序段“加工”后,数组元素a(1)到a(5)的值依次为( )
Private Sub Command1_Click()
Dim a(1 To 100) As String
Dim i As Integer, j As Integer, m As Integer, n As Integer
Dim ts As String, t As Integer, v As Integer
n = Val(Text1.Text)
v =
t = 1
For m = n To 1 Step -2
For i = 1 To m '向右方向填数
a(t + i - 1) = Chr(Asc("A") + v - 1)
v = v - 1
Next i
t = t + n - 1
For i = 1 To m - 1 '向下方向填数
a(m + t) = Chr(Asc("A") + v - 1)
v = v - 1
Next i
t = t - n
For i = m - 1 To 1 Step -1 '向左方向填数
a(t + i) = Chr(Asc("A") + v - 1)
v = v - 1
Next i
For i = m - 2 To 1 Step -1 '向上方向填数
a(t - n + 1) = Chr(Asc("A") + v - 1)
v = v - 1
t = t - n
Next i
t = t + 2
Next m
For i = 1 To n '在List1 中输出数组数据
ts = ""
For j =To i * n
ts = ts + " " + a(j)
Next j
List1.AddItem ts
Next i
End Sub
import random
list1=[0]*6
i=0
while i < 6:
list1[i] = random. randint(1, 100)
if list1[i] %2!=i % 2:
i+=1
else:
break
运行该程序段,list1[0]~list1[5]各元素值可能的是( )
Dim i As Integer, sum As Integer
Dim a(1 To 10) As Integer
sum=0
For i=1 To 10
a(i) = i+5
If a(i) Mod 3=0 Then sum=sum+a(i)
Next i
Text1. Text = Str(sum)
该程序段运行后,文本框Text1中显示的内容是( )

下列说法不正确的是( )