比较三个数大小.并从小到大排列.用VB
来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/04/25 19:20:58
比较三个数大小.并从小到大排列.用VB
如583 变成358 153 变成135
再详细一点.我有一个数组s,其中有n个三位数,s中的每一个元数之间以控行的形式分开
现在我想把每个元素的每位大小从小到大重新排列,重新生成一个新的数组s.要求代码简单点.谁最简单,就选谁,呵呵
``````````
如,text1里显示有
465
953
785
然后,s=split(text1,vbcrlf) 这就是控行了啊,一楼,我说的明白了吗?
如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
"以控行的形式分开" 能说明一下 "控行"的形式 是什么样子的吗!
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
"以控行的形式分开" 能说明一下 "控行"的形式 是什么样子的吗!
比较三个数大小.并从小到大排列.用VB
比较ABC三个数的大小,从小到大排列输出.
一、比较下列每组中三个数的大小,并按照从小到大的顺序排列起来.
VB比较三个数大小 哪个最大就点哪个
利用C++编程,比较由键盘输入的三个数大小,并按从小到大依次输出,请问如何实现?
较下列各组中三个数的大小,并按照从小到大的顺序用“
比较13分之3 19分之4 23分之8 35分之12 59分之24 这几个数的大小,并从小到大排列
在java中怎么比较三个整数大小例如(a ,b,c);并从小到大输出
四个数分别是1,2,3,4,选三个,有多少种排列方法,并输出排列顺序,用VB程序写
用C语言比较三个数的大小并输出最大的那个数
4个数比较大小,结果从小到大排列,用C语言if语句怎么编?
比较下列每组数的大小(写出解答过程,将结果从小到大排列并用小于号连接起来):