比较三个数大小.并从小到大排列.用VB如583 变成358 153 变成135再详细一点.我有一个数组s,其中有n个三位数,s中的每一个元数之间以控行的形式分开现在我想把每个元素的每位大小从小到大重
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/25 18:05:52
![比较三个数大小.并从小到大排列.用VB如583 变成358 153 变成135再详细一点.我有一个数组s,其中有n个三位数,s中的每一个元数之间以控行的形式分开现在我想把每个元素的每位大小从小到大重](/uploads/image/z/618134-14-4.jpg?t=%E6%AF%94%E8%BE%83%E4%B8%89%E4%B8%AA%E6%95%B0%E5%A4%A7%E5%B0%8F.%E5%B9%B6%E4%BB%8E%E5%B0%8F%E5%88%B0%E5%A4%A7%E6%8E%92%E5%88%97.%E7%94%A8VB%E5%A6%82583+%E5%8F%98%E6%88%90358++153+%E5%8F%98%E6%88%90135%E5%86%8D%E8%AF%A6%E7%BB%86%E4%B8%80%E7%82%B9.%E6%88%91%E6%9C%89%E4%B8%80%E4%B8%AA%E6%95%B0%E7%BB%84s%2C%E5%85%B6%E4%B8%AD%E6%9C%89n%E4%B8%AA%E4%B8%89%E4%BD%8D%E6%95%B0%2Cs%E4%B8%AD%E7%9A%84%E6%AF%8F%E4%B8%80%E4%B8%AA%E5%85%83%E6%95%B0%E4%B9%8B%E9%97%B4%E4%BB%A5%E6%8E%A7%E8%A1%8C%E7%9A%84%E5%BD%A2%E5%BC%8F%E5%88%86%E5%BC%80%E7%8E%B0%E5%9C%A8%E6%88%91%E6%83%B3%E6%8A%8A%E6%AF%8F%E4%B8%AA%E5%85%83%E7%B4%A0%E7%9A%84%E6%AF%8F%E4%BD%8D%E5%A4%A7%E5%B0%8F%E4%BB%8E%E5%B0%8F%E5%88%B0%E5%A4%A7%E9%87%8D)
比较三个数大小.并从小到大排列.用VB如583 变成358 153 变成135再详细一点.我有一个数组s,其中有n个三位数,s中的每一个元数之间以控行的形式分开现在我想把每个元素的每位大小从小到大重
比较三个数大小.并从小到大排列.用VB
如583 变成358 153 变成135
再详细一点.我有一个数组s,其中有n个三位数,s中的每一个元数之间以控行的形式分开
现在我想把每个元素的每位大小从小到大重新排列,重新生成一个新的数组s.要求代码简单点.谁最简单,就选谁,呵呵
``````````
如,text1里显示有
465
953
785
然后,s=split(text1,vbcrlf) 这就是控行了啊,一楼,我说的明白了吗?
比较三个数大小.并从小到大排列.用VB如583 变成358 153 变成135再详细一点.我有一个数组s,其中有n个三位数,s中的每一个元数之间以控行的形式分开现在我想把每个元素的每位大小从小到大重
啊!明白了,原来这就叫"控行"
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
"以控行的形式分开" 能说明一下 "控行"的形式 是什么样子的吗!