早教吧作业答案频道 -->其他-->
vb利用数组排序利用数组排序。按“生成随机数”按钮,在第一个文本框中生成10个10~99之间的随机数,然后按“按大小排序”按钮,将这10个数按从大到小的顺序排列放在第二个文本框中
题目详情
vb 利用数组排序
利用数组排序。按“生成随机数”按钮,在第一个文本框中生成10个10~99之间的随机数,然后按“按大小排序”按钮,将这10个数按从大到小的顺序排列放在第二个文本框中。
(1)两个文本框(Text)、两个按钮(Command)
(2)用比较法完成排序
(3)编辑代码就好
利用数组排序。按“生成随机数”按钮,在第一个文本框中生成10个10~99之间的随机数,然后按“按大小排序”按钮,将这10个数按从大到小的顺序排列放在第二个文本框中。
(1)两个文本框(Text)、两个按钮(Command)
(2)用比较法完成排序
(3)编辑代码就好
▼优质解答
答案和解析
Private Sub Command1_Click()
Text1.Text = ""
Dim i As Integer
For i = 1 To 10
Randomize
Text1.Text = Text1.Text & IIf(Text1.Text = "", "", ",") & Int(Rnd(i) * 89) + 10
Next i
End Sub
Private Sub Command2_Click()
Text2.Text = ""
Dim tmpGrp() As String
tmpGrp = Split(Text1.Text, ",")
ResetOrder tmpGrp, 1
Dim i As Integer
For i = 1 To UBound(tmpGrp)
Text2.Text = Text2.Text & IIf(Text2.Text = "", "", ",") & tmpGrp(i)
Next i
End Sub
Function ResetOrder(ByRef tmpGrp() As String, ByVal sIndex As Integer) As String
'对所有数字排序
Dim i, j As Integer
Dim tmpN As Integer
For i = UBound(tmpGrp) To sIndex Step -1
If Val(tmpGrp(i)) > Val(tmpGrp(i - 1)) Then
'前一个比后一个小,则互换
tmpN = tmpGrp(i)
tmpGrp(i) = tmpGrp(i - 1)
tmpGrp(i - 1) = tmpN
End If
Next i
If sIndex < UBound(tmpGrp) Then
ResetOrder tmpGrp, sIndex + 1
End If
End Function
Text1.Text = ""
Dim i As Integer
For i = 1 To 10
Randomize
Text1.Text = Text1.Text & IIf(Text1.Text = "", "", ",") & Int(Rnd(i) * 89) + 10
Next i
End Sub
Private Sub Command2_Click()
Text2.Text = ""
Dim tmpGrp() As String
tmpGrp = Split(Text1.Text, ",")
ResetOrder tmpGrp, 1
Dim i As Integer
For i = 1 To UBound(tmpGrp)
Text2.Text = Text2.Text & IIf(Text2.Text = "", "", ",") & tmpGrp(i)
Next i
End Sub
Function ResetOrder(ByRef tmpGrp() As String, ByVal sIndex As Integer) As String
'对所有数字排序
Dim i, j As Integer
Dim tmpN As Integer
For i = UBound(tmpGrp) To sIndex Step -1
If Val(tmpGrp(i)) > Val(tmpGrp(i - 1)) Then
'前一个比后一个小,则互换
tmpN = tmpGrp(i)
tmpGrp(i) = tmpGrp(i - 1)
tmpGrp(i - 1) = tmpN
End If
Next i
If sIndex < UBound(tmpGrp) Then
ResetOrder tmpGrp, sIndex + 1
End If
End Function
看了 vb利用数组排序利用数组排序...的网友还看了以下:
将自然数的平方数从小到大排列成一串有序数列1491625364964.第11个位置上的数字是9,第 2020-06-12 …
如图,将从2开始的偶数从小到大排列成一个顺时针方向的直角螺旋,4,6,10,14,20,26,34 2020-06-22 …
如图,将从2开始的偶数从小到大排列成一个顺时针方向的直角螺旋,4,6,10,14,20,26,34 2020-06-22 …
1234是个四位数,将这个数的各位数码从大到小及从小到大排列成两个数,并以大减小得到(4321-1 2020-06-23 …
总人数一定,每排站的人数和站的排数成比例. 2020-06-25 …
将下列分数由小到大排列成一列不等式:三分之二八分之五二十三分之五十七分之十十九分之十二将下列分数由 2020-07-16 …
将5个不同的质数从小到大排列成组成一个多位数M,其中,从小到大排列的5个质数满足:任意两个相邻质数 2020-07-31 …
从集合{1,2,4,8,16,32,64}的所有非空真子集中等可能地取出一个.(I)求所取的子集中 2020-08-01 …
(本小题满分12分)从集合的所有非空真子集中等可能地取出一个.(1)求所取的子集中元素从小到大排列成 2020-11-03 …
·······29A规律12-急~自然数的平方按从小到大排列成1491625364964811001 2020-12-02 …