Private Sub Command1_Click()Text1.Text = Int(Rnd * 99)Text2.Text = Int(Rnd * 99)Text3.Text = Int(Rnd * 99)Text4.Text = Int(Rnd * 99)End Sub
Private Sub Command2_Click()a = Text1.Textb = Text2.Textc = Text3.Textd = Text4.Text
If a < b Theni = aa = bb = iEnd IfIf a < c Theni = aa = cc = iEnd IfIf a < d Theni = aa = dd = iEnd IfIf b < c Theni = cc = bb = iEnd IfIf b < d Theni = dd = bb = iEnd IfIf c < d Theni = dd = cc = iEnd If
Text1.Text = aText2.Text = bText3.Text = cText4.Text = d
End Sub
Private Sub Form_Load()Dim i As IntegerEnd Sub
这是代码。。求解释有时候出错怎么回事

排序的时候 有时候对 有时候出错。。。

先用数值排序再给textbox赋值
你是相反 textbox也得用val转为数值后再来比大小排序