vb数组排序

显示全部楼层 · 2008-4-25 13:36:46

Private Sub Command1_Click()A = Val(InputBox("输入A值:"))B = Val(InputBox("输入B值:"))C = Val(InputBox("输入C值:"))Dim SU(1, 2)SU(0, 0) = ASU(1, 0) = "A"SU(0, 1) = BSU(1, 1) = "B"SU(0, 2) = CSU(1, 2) = "C"For I = 0 To 1For J = I To 2
If SU(0, I) < SU(0, J) Then
T = SU(0, I)
SU(0, I) = SU(0, J)
SU(0, J) = T
T = SU(1, I)
SU(1, I) = SU(1, J)
SU(1, J) = T
End IfNextText1(I) = SU(0, I)Text2(I) = SU(1, I)NextText1(I) = SU(0, I)Text2(I) = SU(1, I)End Sub呵呵,怎么与楼上的是一样啊,不过我的text1与text2是控件数组哦

千问 · 2008-4-25 13:36:46

你这和数组好像没什么关系。题目意思我看得好晕啊Private Sub Command1_Click()
Dim A As Integer, B As Integer, C As Integer
A = 1: B = 2: C = 3
Text1.Text = C & "," & B & "," & A
Text2.Text = "C"
Text3.Text = "B"
Text4.Text = "A"End Sub算了，随便写写吧。

千问 · 2008-4-25 13:36:46

取个按钮控件程序如下 Private Sub Command1_Click() Dim N As Integer, Ar() As Integer, i As Integer, j As Integer, T As Integer N = Val(InputBox("输入数字的个数")) - 1 ReDim Ar(N) For i = 0 To N Ar(i) = Val(InputBox("输入第" & i & "个数字：")) Next i Print "排序前的结果是：" For i = 0 To N Print Ar(i); " "; Next i For i = N To 1 Step -1 For j = 0 To i - 1 If Ar(j) < Ar(j + 1) Then T = Ar(j) Ar(j) = Ar(j + 1) Ar(j + 1) = T End If Next j Next i Print Print "排序后的结果是：" For i = 0 To N Print Ar(i); " "; Next i End Sub