Vb:1有a个,2有b个,3有c个,先比较abc的大小,然后在text中按大小顺序显示abc,并且abc前面都显示123
来源:学生作业帮 编辑:百度作业网作业帮 分类:数学作业 时间:2024/06/23 17:09:53
Vb:1有a个,2有b个,3有c个,先比较abc的大小,然后在text中按大小顺序显示abc,并且abc前面都显示123?
例如:假设a>b>c,则text中显示
3:c 2:b a :1
例如:假设a>b>c,则text中显示
3:c 2:b a :1
用二维数组
dim abc(3,1)
abc(1,0)=1:abc(1,1)=a
abc(2,0)=2:abc(2,1)=b
abc(3,0)=3:abc(3,1)=c
再问: 最后输出程序怎么写啊?
再答: For i = 1 To tmp1(0) 用二维数组 dim abc(3,1) abc(1,0)=1:abc(1,1)=a abc(2,0)=2:abc(2,1)=b abc(3,0)=3:abc(3,1)=c For i = 1 To 3 For j = 3 To i Step -1 If abc(i,1) > abc(j,1) Then temp = abc(i,1): temp1 = abc(i,0) abc(i,1) = abc(j,1):abc(i,0) = abc(j,0) abc(j,1) = temp:abc(j,0) = temp1 End If Next Next t="" for i=1 to 3 t=t & abc(i,0) & "有" & abc(i,1) & "个 " next text2.text=t
dim abc(3,1)
abc(1,0)=1:abc(1,1)=a
abc(2,0)=2:abc(2,1)=b
abc(3,0)=3:abc(3,1)=c
再问: 最后输出程序怎么写啊?
再答: For i = 1 To tmp1(0) 用二维数组 dim abc(3,1) abc(1,0)=1:abc(1,1)=a abc(2,0)=2:abc(2,1)=b abc(3,0)=3:abc(3,1)=c For i = 1 To 3 For j = 3 To i Step -1 If abc(i,1) > abc(j,1) Then temp = abc(i,1): temp1 = abc(i,0) abc(i,1) = abc(j,1):abc(i,0) = abc(j,0) abc(j,1) = temp:abc(j,0) = temp1 End If Next Next t="" for i=1 to 3 t=t & abc(i,0) & "有" & abc(i,1) & "个 " next text2.text=t
Vb:1有a个,2有b个,3有c个,先比较abc的大小,然后在text中按大小顺序显示abc,并且abc前面都显示123
在三角形ABC中,abc分别是角ABC所对的边有(2b—c)cosA=acosC求角A的大小
在大小为4×4的正方形方格中,△ABC的顶点A,B,C都在单位正方形的顶点上.画个相似,不能全等
有多少个这样的6位数abcdef,(其中a,b,c,d,e,f是按照某种顺序123456,满足1 a,2 abc除3 a
有三个数字abc依次按大小顺序 C
a除以1/2=b除以4/3=c除以4/5并且abc均不为0,试比较abc的大小,并说明理由.
自然数abc与cba除以七的余数相同,并且a>b,这样的自然数abc有多少个
如果a除以1/2=b除以4/3=c除以5/5,并且abc都不为0试比较abc的大小并说明理由
有3个物体ABC,放在一个有水的杯子里,A漂浮,B悬浮,C下沉,我老师说是2个浮力相等,一个小
在三角形abc中,已知bc>ab>ac,那么角a,角b,角c有怎样的大小关系?
如图,在△ABC中,∠C=90°,∠B=30°.请在图上画线将Rt△ABC分割成大小和形状都相同的3个三角形.
如图,在△ABC中,∠C=90°,∠B=30°.请在图上画线,将Rt△ABC分割成大小和形状都相同的3个三角形