如题``小弟刚接触Visual basic 看到这道题的时候卡住了`所写出来的东西实在是无法使用`还望那位大虾小帮小弟下``多多提点```谢谢```不胜感激

[[it] 本帖最后由 早睡早起 于 2008-4-19 19:46 编辑 [/it]]

把你些发上来

把你写的发上来[bc01]

Private Sub Command1_Click()
Dim a As Double
Dim b As Double
Dim c As Double
Dim m_input As String


a = Val(InputBox("请输入第一个数", "a"))
b = Val(InputBox("请输入第二个数", "b"))
c = Val(InputBox("请输入第三个数", "c"))

If a > b Then
   If a > c Then
      If b > c Then
       m_input = Str(a) + Str(b) + Str(c)
      Else
       m_input = Str(a) + Str(c) + Str(b)
      End If
    Else
     m_input = Str(c) + Str(a) + Str(b)
    End If
Else
  If b > c Then
    If c > a Then
    m_input = Str(b) + Str(c) + Str(a)
    Else
    m_input = Str(b) + Str(a) + Str(c)
    End If
  Else
  m_input = Str(c) + Str(b) + Str(a)
  End If
End If
Text1.Text = m_input

   
End Sub

不错！！！
a = Val(InputBox("请输入第一个数", "a"))中的"a"？

呵呵`被误解了`无聊加上去的``要不上面a的位置应该显示的标题的```

非常感谢你``我还有个问题已经发贴了`不知可否帮我在看下