作业帮 > 综合 > 作业

比较三个数大小.并从小到大排列.用VB

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/04/25 19:20:58
比较三个数大小.并从小到大排列.用VB
如583 变成358 153 变成135
再详细一点.我有一个数组s,其中有n个三位数,s中的每一个元数之间以控行的形式分开
现在我想把每个元素的每位大小从小到大重新排列,重新生成一个新的数组s.要求代码简单点.谁最简单,就选谁,呵呵
``````````
如,text1里显示有
465
953
785
然后,s=split(text1,vbcrlf) 这就是控行了啊,一楼,我说的明白了吗?
啊!明白了,原来这就叫"控行"
Private Sub Command1_Click()
Dim i%,s$(),n%,t() As Byte
s = Split(Trim(Replace(Text1,vbCrLf," "))," ")
For i = 0 To UBound(s)
t = StrConv(s(i),vbFromUnicode)
If t(0) > t(1) Then n = t(0):t(0) = t(1):t(1) = n
If t(0) > t(2) Then n = t(0):t(0) = t(2):t(2) = n
If t(1) > t(2) Then n = t(1):t(1) = t(2):t(2) = n
s(i) = StrConv(t,vbUnicode)
Next i
Text1 = Join(s,vbCrLf)
End Sub
"以控行的形式分开" 能说明一下 "控行"的形式 是什么样子的吗!