66问答网
所有问题
当前搜索:
vb如何对数组里面的数据排序
求
VB
二维
数组排序
代码
答:
'调用快速
排序
过程,效率比冒泡高许多 Call QuickSort(arr, 0, 25000)'将排序后的
数组
显示成List中,以便验证 For i = 0 To 25000 List1.AddItem Format(arr(i, 0), "0.000") &
vb
Tab & Format(arr(i, 1), "0.000")Next End Sub '二维数组快速排序的算法,如果你的x,y
的数值
类型...
vb
list
排序
答:
As String, tt As Integer) As DoubleDim s() As Strings = Split(Replace(ss, "X", ""), "Y")If tt = 1 Then s2d = Val(s(0)) * 100000 + Val(s(1))Else s2d = Val(s(1)) * 100000 + Val(s(0))End IfEnd FunctionPrivate Sub Command1_Click() 'X
排序
Dim...
用
VB
语言:
给数组
输入N个数,按从大到小
排序
输出各数,并求出最大和最小...
答:
Option Explicit Private Sub Command1_Click()Dim i As Integer, j As Integer, n, temp, item Dim arr1() As Single Dim max As Single, min As Single Do n = InputBox("请输入第" & i + 1 & "个
数值
(输入空值则表示结束):")If n = "" Then Exit Do ReDim Preserve arr1(...
求详细讲解
VB数组
用冒泡法
排序
!
答:
呵呵。 这个不难理解啊,冒泡法就是先取最大的然后依次往下,排完后就是从大到小,比如1,2,3,4,5 外层就是从第一位到第五位,比较第一位。从头到尾的选 5最大,放到第一位,就变成5,1,2,3,4,下一轮,因为5已经选 出来了,第一位就不用比了。只有1.2.3.4,这下就只有四位了...
VB
学生成绩
排序
创建两个
数组
,一个数组放入学生姓名,另一数组放入学生的...
答:
Dim Names(10) As String Dim Scores(10) As Integer '查询,返回-1表示未找到该学生 Public Function GetScoreByName(ByVal name As String) As Integer For i As Integer = 0 To 9 If name = Names(i) Then Return Scores(i)End If Next Return -1 End Function '
排序
,输出名字和分数...
用
VB
排列列表框的
数组
(从小到大排列)
答:
' 将无序列表
中的数据
读入
排序数组中
For i = 1 To MAXPLAYER aryPlayer(i) = lstUnsorted.List(i - 1)Next ' 初始状态下,数组的第1 个元素被看作是有序的部分 ' 从第2 个元素起,依次将其插入到前面的有序部分 For i = 2 To MAXPLAYER ' 将第i 个元素的值赋
给
哨兵 aryPlayer(0)...
VB的
inputbox
怎么
实现连续输入10个整数作为
数组
进行
排序
操作?
答:
a(j) = temp End If Next j Next i For i = 1 To 10 Text2.Text = Text2.Text & a(i) & " "Next iEnd Sub4、运行工程,单击Command按钮,可以看到通过Inputbox输入的原
数组
和
排序
后的数组。
vb
二维
数组排序
(见补充)
答:
Dim a(100) As IntegerDim temp As IntegerPrivate Sub Command1_Click() Print "
排序
前" Randomize For i = 1 To 100 a(i) = Int(Rnd * 901 + 100) Print a(i); If i Mod 10 = 0 Then Print Next i Print "排序后" For i = 1 To 100 For j...
VB
对二维字符串
数组排序
答:
To 4 a(i,j)= InputBox("请输入第"& i & "行"& "第"& j & "列英文单词")k = k + 1:b(k)= a(i,j)'同时将值赋
给
一维
数组
Next j Next i Print "原始数组为:"For i = 1 To 2 For j = 1 To 4 Print a(i,j)& "";Next j Print Next i '将字符串
排序
For ...
VB中数组的
降序排列
答:
Start = LBound(a)Finish = UBound(a)For i = Finish - 1 To 2 Step -1 For j = 1 To i 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 Private Sub Command1_Click()Dim arr()arr =
Array
(Val(Text1....
<涓婁竴椤
1
2
3
4
5
6
7
8
9
10
涓嬩竴椤
灏鹃〉
其他人还搜