请救救啊 ,这个VB题 很重要
来源:百度知道 编辑:UC知道 时间:2024/06/17 20:15:21
谢谢大家 帮我啊 请发我油箱里 2521042212@qq.com
用不着这么复杂。
private sub form_load()
dim a(1 to 10)as integer,i as integer,j as integer,k as integer
for i=1 to 10
a(i)=int(rnd*100)
next
for i=1 to 9
for j=i+1 to 10
if a(i)>a(j) then
k=a(i)
a(i)=a(j)
a(j)=k
end if
for i=1 to 10
print a(i)
next
end sub
Option Explicit
Dim X(100) As Double
Dim y(100) As String
Private Sub Command1_Click() 演示数字排序
Dim a(100) As Double, z(100) As String, i As Long
For i = 0 To 100
a(i) = X(i) 复制数组
z(i) = CStr(X(i)) 转化为字符串数组
Next
MsgBox Join(z, ,), 64, 原始数组 显示原始顺序
NUMBERSORT X, up
For i = 0 To 100
z(i) = CStr(X(i)) 转化为字符串数组
Next
MsgBox Join(z, ,), 64, 按数字升序排序后数组 显示排序结果
NUMBERSORT a, down
For i = 0 To 100
z(i) = CStr(a(i)) 转化为字符串数组
Next
MsgBox Join(z, ,), 64, 按数字降序排序后数组 显示排序结果
End Sub
Sub NUMBERSORT(ByRef a() As Double, Optional sort As String