求助

Question

“设两个变量a和b已输入了数值，比较它们的大小，若a小于b，互换二者的值，使a大于b。”这个程序用vb怎么编啊？我这样有什么错的地方啊？
Private Sub Command1_Click()
   Dim a As Integer, b As Integer, c As Integer
    a = Text1
    b = Text2
   If a < b Then
    c=a
    a=b
    b=c
   End IfEnd Sub
请指点。
能将正确的做法发到我邮箱吗？谢谢[email protected]

Answer 1

Private Sub Command1_Click()
  Dim a As Integer, b As Integer, c As Integer
  a = Val(Text1.Text)
  b = Val(Text2.Text)
  If a < b Then
    c = a
    a = b
    b = c
  End If
    MsgBox "A=" & CStr(a) & " B=" & CStr(b)
End Sub

Answer 2

VB水晶按钮控件附使用示例

VB源码,水晶按钮,一款清爽的VB版水晶按钮控件的源代码，附有众多风格样式的按钮使用示例，这款控件是基于API函数，一总用到了4个API，按钮效果还是不错的，不过程序反应有点慢，而且也稍微占用系统资源，可以改进一下...http://2e3.org/vb/VBShuiJingAnNiuKongJianFuShiYongShiLi_8582.html

Answer 3

Private Sub Command1_Click()
    Dim a As Long
    Dim b As Long
    Dim temp As Long
    a = CLng(Text1.Text)
    b = CLng(Text2.Text)
    If a < b Then
        temp = a
        a = b
        b = temp
    End If
    Debug.Print a
    Debug.Print b
End SubPrivate Sub Form_Load()
    Text1.Text = "101"
    Text2.Text = "22"
End Sub