66问答网
所有问题
当前搜索:
vb数组从小到大排序
vb 数组排序
编程 不排序
答:
你的程序是完成随机生成10个两位整数,然后按由小
到大排序
,你用的是冒泡排序法。你的程序循环里面的n没有赋值,即在For j = 1 To n - 1这条语句前,给n加一个赋值语句 n=10。程序如下 Private Sub Command1_Click()Dim a(1 To 10) As Integer Dim n As Integer, i As Integer, j As...
vb 数组
多重
排序
求助!
答:
'把
排序
好的
数组
再连成一个字符串 For ii = 0 To nn tmpStr = tmpStr & tmpA(ii)Next '查看这个字符串是否已经记录过 For j = 0 To n If TestR(j) = tmpStr Then '如果记录过,计数加1,并跳出循环 TestN(j) = TestN(j) + 1 Exit For End If Next If j > n Then 'j >...
vb
编写一个能对一维
数组
进行升序排列的子程序过程!
答:
VB编程
题 评分程序界面 c
从小到大排序
正在求助 换一换 回答问题,赢新手礼包 苦等24分钟: 为什么灵魂风暴这么难 回答 苦等36分钟: 为什么实体店受网络冲击这么严重,药店却越开越多 回答 苦等50分钟: 家庭理财的途径都有哪些 应该如何配置资产 回答 苦等51分钟: 男人出门怎么穿才好看 回答 苦等2小...
VB
:对
数组
a进行从大到小的冒泡
排序
答:
a(j - 1)你好楼主,我的一篇回帖~~当时我是这么实现冒泡
排序
的,给你一个参考,你自己再看看该进吧·~Public Sub sort(ByRef arr() As Integer)Dim i As Integer Dim j As Integer For i = LBound(arr) To UBound(arr) - 1 For j = LBound(arr) To UBound(arr) - i - 1 If ...
VB
6个text控件中的数字
从小到大排序
答:
排序
部分应该这样:For i = 1 To 5 For j = i+1 To 6 '这里不是2,应该是i+1 If a(i) > a(j) Then k = a(i)a(i) = a(j)a(j) = k end if '少了这句 Next j Next i
VB
对二维字符串
数组排序
答:
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 i = 1 To 8 For j = 1 To 8 - i If b(j) > b(j + 1) Then t...
vb
选择法
排序
的怎么做?
答:
Private Sub Command1_Click()Dim a(100) As Integer Randomize For i = 1 To 100 a(i) = Rnd * 100 Next i For i = 1 To 99 k = i For j = i + 1 To 100 If a(j) < a(k) Then k = j Next j t = a(i): a(i) = a(k): a(k) = t Next i For i = 1...
...10个100到200之间的整数,将其按从大到小
顺序排列
答:
Dim Number(9) As Integer ' 储存随机数 Dim Temp As Integer ' 缓存 ' 对变量
数组
进行赋值 Randomize For i = 0 To UBound(Number) Number(i) = Int(Rnd * (200 - 100)) + 100 Next i ' 使用冒泡
排序
法排列变量数组 For j = 0 To UBound(Number) -...
vb
生成一个长度为10的随机三位正整数的
数组
,选择任意一个
排序
算法从大...
答:
Dim a(10), temp As Integer Dim str As String str = "" For i = 1 To 10 a(i) = Int(Rnd() * 900) + 100 Next For i = 1 To 10 For j = 1 To 10 - i If a(j) > a(j + 1) Then temp = a(j + 1) a(j + 1) = a(j) ...
VB编程
:选择法及冒泡法
排序数组
答:
'在
数组
剩下后面的数字中选择出最小的数(i到15)For j = i + 1 To 15 If RNDDATA(j) < RNDDATA(iMin) Then iMin = j Next j 'i到15中的最小的数,与第i个元素进行交换 iTemp = RNDDATA(i)RNDDATA(i) = RNDDATA(iMin)RNDDATA(iMin) = iTemp Next i '显示
排序
的结果 txt...
棣栭〉
<涓婁竴椤
4
5
6
7
9
10
8
11
12
13
涓嬩竴椤
灏鹃〉
其他人还搜