'生成6个随机正整数,依次存入数组元素a (1)到a (6)中
For i=1 To 2
For j=6 To i+1 Step-1
If a(j) Mod 2>a(j-1) Mod 2 Then
t=a(j):a(j)=a(j-1):a(j-1)=t
End If
Next j
Next i
执行上述程序段后,a (1)到a (6)各元素值依次为3,1,4,3,7,6,下列选项不是排序前a(1)到a(6)各元素值依次元素值的( )
Const n = 50
Din a(1 To n) As Integer, b(1 To 10) As Integer, k As Integer
k=n\ 10
For i=1 To n
a(i) = Int (Rnd * 10) + 1
Next i
For i=1 To k
For j=I To n Step k
b(i) = b(i) + a(j)
Next j
Next i
执行该程序段后,b(1)~b(5)各元素值不可能的是( )
(提示: OOUNTIF丽数用于统计某个区域满足条件的单元格个数。例如:=OOUNTIF (B4:B20,"<100")表示在数据区域B4:B20中统计数值小于100的单元格个数。)
①在“云”图层第60帧执行插入 (选填:关键帧\空白关键帧\帧):
②在“云”图层第60帧将库中“云”元件应用到舞台,并放置在恰当的位置:。
图a |
Const n=6
Dina(1 To n*n)As Integer
Private Sub Form_Load() ' 产生n*n个数组元素,每行按n个数显示在list1中
Din i As Integer, s As String
For i=2 To n* n
a(i)=Int(Rnd*90)+10
s =s+ Str(a(i))
If i Mod n = 0 Then List1.AddItem s: s =“”
Next i
End Sub
Private Sub Comnand1_ Click()
Dim i As Integer, j As Integer, k As Integer
For i = 1 To n*n
k= i
For j= To i+n step -n
If a(k) > a(j) Then k= j
Next j
If Then t= a(k): a(k) = a(i): a(i) =t
Next i
‘将排序后数组a的元素,每行按n个数显示在list2中.
End Sub
1)查找相邻两个非降序数据段:在未处理的数据区域中,从前往后找出第一个最长非降序数据段。若该数据段后面没有元素,则本轮处理完毕:否则在第1个数据段的后面,从前往后找出数组中第二个最长非降序数据段。
2)合并两个数据段:借助数组tmp.将查找到的两个相邻数据段合并成一个非降序数据段,然后将合并后的数据依次存回到原数组中。
3)若数组中还有未处理的数据,则重复(1)(2)步骤。每一轮数据处理完毕后,重新从数组第1个数据开始进行下一轮处理。若检测到某一轮没有合并处理,则说明n个数据已构成非降序数据段,数据处理结束。
Const n = 10
Dim a(1 To n + 5) As Integer
Din tmp(1 To n + 5) As Integer
'读取n个整数保存到数组a中,并在文本概Text1中显示,代码略。
Private Sub Comnand1_ Click()
Do While True
If Not Merge() Then Exit Do
'在列表概List1中输出这一轮合并后的数据,代码略。
Loop
End Sub
Function Position(low As Integer) As Integer
Din i As Int eger
For i=low To n-1
If Then Exit For
Next i
Position = i
End Function
Function Merge() As Bool ean
Dim i As Integer, flag As Boolean, p1 As Integer, p2 As Integer
Dim low1 As Integer, high1 As Integer, high2 As Integer
flag = False: low1= 1
Do While low1 < n
high1 = Position(low1)
If high1 = n Then Exit Do Else flag = True
high2 = Position(high1 + 1)
p1=low1:p2=high1+1
i = low1
Do While
If p2>high2 Or p1 <= high1 And a(p1) < a(p2) Then
tmp(i)=a(p1):p1=p1+1
Else
tmp(i)=a(p2):p2=p2+1
End If
i =i+1
Loop
For i = low1 To high2
a(i) = tmp(i)
Next i
Loop
Merge = flag
End Function