66问答网
所有问题
当前搜索:
vb如何对数组里面的数据排序
vb怎样
生成一个1到10的
数组
按
顺序排列
?
答:
实现这个功能的代码段:Dim a(10) as integer for i=1 to 10 a(i)=i print a(i);next i
用
vb
把输入的10个数 从小到大
排序
答:
在
VB中
演示过程冒泡法
排序
要求把代码输入后能直接在VB环境中运行 在窗体中添加三个标签,一个按钮,一个框架在框架中添加一个文本框 Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)If KeyCode < 48 Or KeyCode > 57 And KeyCode < 96 Or KeyCode > 150 And KeyCode <> 109 And...
求助
VB 怎么
改成用函数
对数组排序
并输出结果?
答:
Function sa(ByRef b()) as string Dim s as string s = ""t = UBound(b)For i = 1 To t - 1 For j = 1 To t - i If b(j) < b(j + 1) Then s = b(j): b(j) = b(j + 1): b(j + 1) = s Next j Next i For i = 1 To t s = s & b(i)If i ...
VB
从键盘输入10到
数组中
,然后按照
数值
由大到小的顺序输出
答:
Dim a(1 To 10) As Integer, i As Integer, j As Integer For i = 1 To 10 '输入十个数 a(i) = InputBox("enter data 10个数")Print a(i);Next i Print For i = 10 To 2 Step -1 '用冒泡
排序
法对这十个数进行排序 For j = 1 To i - 1 If a(j) > a(j +...
VB数组排序
题
答:
I = 2 To J For K = 1 To I If b(K) > b(I) Then b(0) = b(K)b(K) = b(I)b(I) = b(0)End If Next K Next I For I = 1 To J Print b(I);If I Mod 10 = 0 Then Print Next I End Sub 更多
VB
代码请参阅我的博客:http://hi.baidu.com/zgmg/blog ...
VB排序
问题
答:
你对照一下就可以了 Private Sub Form_Click()Randomize '最好加这个语句,否则每次执行的结果都量一样的 Dim a(1 To 10) As Integer, iMin%, n%, j%, t%, i Picture1.Print "产生的随机数为:"Picture2.Print "按降序排列为:"For i = 1 To 10 a(i) = Int(Rnd * 90 + 10...
...排好序的
数组中
插入一个数,并按着原来
的顺序排列
写出代码,谢谢了...
答:
function NumInsert(num,numindex,source_
array
(),source_array_count) as integer()rem //num =要插入
的数据
rem //numindex =要插入的位置 rem //source_array(),原始队列 rem //source_array_count=原始队列数据数量 dim abc(source_array_count+1) as integer '新建队列 dim i as integer...
VB
给
一个
数组
ax() 个数不定 让数组最后从大到小排列
答:
按钮是为了测试
数据
的,跟过程没关系 只要传入2个
数组
进去,就会
排序
的 Private Sub Command1_Click()Dim ax(5) As Integer, bx(5) As String For i = 1 To 5 ax(i) = Rnd * 20 bx(i) = CStr(Rnd * 20 + 65)Debug.Print ax(i), bx(i)Next i Debug.Print "---"Call mySort(...
vb数组中
颠倒数字顺序
答:
for i = 0 to 4 temp = A( 10 - i ) 'A( 10 - i ) 赋给中间变量 temp A( 10 - i ) = A( 1 + i ) 'A( 10 - i ) 等于 A( 1 + i )A( 1 + i ) = temp ' A( 1 + i ) 等于中间变量 temp next
在
VB中
,
如何
将一个
数组中的
值按逆序重新存放。例如:原来8、6、5、4...
答:
Dim a(1 To 5)Private Sub Command1_Click()For i = 1 To 5 a(i) = Val(InputBox("a(" + Str(i) + ")="))Next i For i = 1 To 5/2 n = a(i)a(i) = a(6 - i)a(6 - i) = n Next i For i = 1 To 5 Print a(i);Next i End Sub ...
棣栭〉
<涓婁竴椤
4
5
6
7
9
10
8
11
12
13
涓嬩竴椤
灏鹃〉
其他人还搜