VB 二级考试题目

Option Base 1
Private Sub Sort(a() As Integer)
Dim Start As Integer, Finish As Integer
Dim i As Integer, j As Integer, t As Integer
Start = LBound(a)
Finish = UBound(a)
For i = Finish To 2 Step -1
For j = 1 To Finish - 1
If a(j) > a(j + 1) Then
t = a(j + 1)
a(j + 1) = a(j)
a(j) = t
End If
Next j
Next i
End Sub
End Sub

Private Sub Cmd1_Click()
Dim arr1
Dim arr2(4) As Integer
arr1 = Array(Val(Text1.Text), Val(Text2.Text), Val(Text3.Text), Val(Text4.Text))
temp = (Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text) + Val(Text4.Text)) / 4
For i = 1 To 4
'?
Next i
Sort arr2()
Text1.Text = arr2(1)
Text2.Text = arr2(2)
Text3.Text = arr2(3)
Text4.Text = arr2(4)
'Form1.Ca

二级VB考试的一道题目 二级vb题目，急！！！！ 二级VB考试? 计算机二级vb考试 全国计算机二级vb考试 二级VB考试教材 vb二级的题目 谢谢 二级vb选择题目，急！！ 关于二级VB的题目 有关全国计算机VB二级考试