程序代码如下 排序"按钮代码 Private Sub Command1 Click () Dim a As single, cAs Single, bAs Single a= Text.Text b= Text2 Text c=Text3.Text'三个文本框的数据赋值给变量 If a <b Then a= b b= t <b时交换a、b的值 End If 保证A>B 请单属标左键换页程序代码如下： '"排序"按钮代码 Private Sub Command1_Click（） Dim a As Single，c As Single，b As Single a = Text1.Text b = Text2.Text c = Text3.Text '三个文本框的数据赋值给变量 If a < b Then t = a a = b b = t 'a<b时交换a、b的值 End If '保证A>B