很头疼的错误，直接上代码
vb吧
全部回复
仅看楼主
level 6
交哟酷到墨策34 楼主
Private Sub Command1_Click()
Dim a
#, b#
, c
#, d#

a = Val(Text1)
b = Val(Text2)
c = Val(Text3)
If Not IsNumeric(Text1) Or Not IsNumeric(Text2) Or Not IsNumeric(Text3) Then
MsgBox "输入有误"
ElseIf a > b And b > c Then
Label2.Caption = "从小到大为：" & c & b & a&
ElseIf a > c And c > b Then
Label2.Caption = "从小到大为：" & b & c & a&
ElseIf b > c And c > a Then
Label2.Caption = "从小到大为：" & a & c & b&
ElseIf b > a And a > c Then
Label2.Caption = "从小到大为：" & c & a & b&
ElseIf c > a And a > b Then
Label2.Caption = "从小到大为：" & b & a & c&
ElseIf c > b And b > a Then
Label2.Caption = "从小到大为：" & a & b & c&
End If
End If
End Sub
Private Sub Command2_Click()
End
End Sub
2013年05月01日 14点05分 1
level 6
交哟酷到墨策34 楼主
@chengd222
2013年05月01日 14点05分 2
level 6
交哟酷到墨策34 楼主
@cbm666
2013年05月01日 14点05分 3
level 6
交哟酷到墨策34 楼主
2013年05月01日 14点05分 5
level 6
交哟酷到墨策34 楼主
@天天那么得瑟
2013年05月01日 14点05分 6
吧务
level 15
放飞希望，追逐梦想
Label2.Caption = "从小到大为：" & c & b & a&
把最后一个字符删除，写代码绝不允许画蛇添足
2013年05月01日 14点05分 7
交哟酷到墨策34
最后一个字符他自己默认的，删了就提示错误了
2013年05月01日 15点05分
吧务
level 15
放飞希望，追逐梦想
Dim a#这声明的a是Double型
& a& 这里将a定义为Long类型
你这样的代码让电脑也头疼了，a倒底是Double还是Long
2013年05月01日 14点05分 8
交哟酷到墨策34
caption中的&是什么意思啊？我是模仿书上的写的，不太懂
2013年05月01日 15点05分
交哟酷到墨策34
我把#全部改为&后差不多行了，可是输出的时候太紧凑了，怎么办
2013年05月01日 15点05分
level 6
T有花无叶的罪
[乖]哪个学校的呀，我上次的作业就是这个
2013年05月01日 15点05分 9
交哟酷到墨策34
河南工程学院
2013年05月01日 15点05分
吧务
level 13
VBzhuyongxing
Private Sub Command1_Click() Dim a As Long, b As Long, c As Long a = Val(Text1) b = Val(Text2) c = Val(Text3) If Not IsNumeric(Text1) Or Not IsNumeric(Text2) Or Not IsNumeric(Text3) Then MsgBox "输入有误" ElseIf a > b And b > c Then Label2.Caption = "从小到大为：" & c & b & a ElseIf a > c And c > b Then Label2.Caption = "从小到大为：" & b & c & a ElseIf b > c And c > a Then Label2.Caption = "从小到大为：" & a & c & b ElseIf b > a And a > c Then Label2.Caption = "从小到大为：" & c & a & b ElseIf c > a And a > b Then Label2.Caption = "从小到大为：" & b & a & c ElseIf c > b And b > a Then Label2.Caption = "从小到大为：" & a & b & c End IfEnd Sub
2013年05月01日 15点05分 10
交哟酷到墨策34
为什么输出时系统自己在每个输出后边多加了一个&？
2013年05月01日 16点05分
level 4
林一直很安静
定义dim a, b ,c ,d即可
2013年05月01日 15点05分 11
交哟酷到墨策34
默认的什么
2013年05月01日 16点05分
林一直很安静
回复 米诺双城 :变量
2013年05月01日 22点05分
level 10
极语言中文编程
vb有排序一段文字的函数
2013年05月01日 16点05分 12
交哟酷到墨策34
什么意思？
2013年05月01日 16点05分
level 8
因特儿
这个排序方法不科学
2013年05月02日 01点05分 13
交哟酷到墨策34
怎么算科学？上代码
2013年05月02日 01点05分
因特儿
用冒泡排序或者取中间法
2013年05月02日 02点05分
level 8
飘逸在山间红雨
换个思路，你这算法很蛋疼
2013年05月02日 01点05分 14
交哟酷到墨策34
这是我自创的，老师不教
2013年05月02日 02点05分
交哟酷到墨策34
用什么思路比较好了？
2013年05月02日 02点05分
飘逸在山间红雨
回复 米诺双城 :你去网上搜下很多的
2013年05月02日 02点05分
level 14
马老师💯
Private Sub Command1_Click()
Dim a()
a = Array(Val(Text1.Text), Val(Text2.Text), Val(Text3.Text))
Call Sort(a, True) 'True:从小到大, False:从大到小
Label2.Caption = "从小到大为：" & a(0) & " " & a(1) & " " & a(2)
End Sub
Sub Sort(Arr(), Optional ByVal Order As Boolean = True)
Dim i As Integer, J As Integer, t
For i = 0 To UBound(Arr)
DoEvents
For J = 0 To UBound(Arr)
If (Arr(i) < Arr(J)) = Order And i <> J Then
t = Arr(i)
Arr(i) = Arr(J)
Arr(J) = t
End If
Next
Next
End Sub
2013年05月02日 03点05分 15
吧务
level 11
三定之人2x
Private Sub Command1_Click()
Dim a
#, b#
, c
#, d#

a = Val(Text1)
b = Val(Text2)
c = Val(Text3)
If Not IsNumeric(Text1) Or Not IsNumeric(Text2) Or Not IsNumeric(Text3) Then
MsgBox "输入有误"
ElseIf a > b And b > c Then
Label2.Caption = "从小到大为：" & c & b & a
ElseIf a > c And c > b Then
Label2.Caption = "从小到大为：" & b & c & a
ElseIf b > c And c > a Then
Label2.Caption = "从小到大为：" & a & c & b
ElseIf b > a And a > c Then
Label2.Caption = "从小到大为：" & c & a & b
ElseIf c > a And a > b Then
Label2.Caption = "从小到大为：" & b & a & c
ElseIf c > b And b > a Then
Label2.Caption = "从小到大为：" & a & b & c
End If
End If
End Sub
Private Sub Command2_Click()
End
End Sub
2013年05月02日 12点05分 16
1