Question

用VB编程来比较三个数的大小

三个数分别存在三个text里面，最大数从label输出，这是我自己写的代码，但是运行时，不能所有情况都能比较出三个数的大小，请高手帮我看看这代码哪里错了。拜托了。
Private Sub Command1_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
max = a
If max < b Then max = b
If max < c Then max = c
Label2.Caption = max
End Sub

Answer 1

是自学的吗

如果 a>b 那么
max=a
否则
max=b
此时max是a和b中的最大值

接下来只需让max和c进行比较就可以得出最大值

具体代码不给你了，思路有了自己去编比较好

Answer 2

呵呵 兄弟 少了End if 。
完整的代码：
Private Sub Command1_Click()
Dim a,b,c As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
Dim max as integer=a
If max < b Then
max = b
elseIf max < c Then
max = c
end if
Label2.Caption = max
End Sub

Answer 3

应该把max < b 和max<c改成>

Answer 4

Private Sub Command1_Click()
Dim a as single
Dim b as single
Dim c as single
Dim max as single
a=Val(Text1.text)
b=Val(Text2.text)
c=Val(Text3.text)
if a<b Then
max=b
b=a
a=b
End if
if a<c Then
max=c
c=a
a=c
End if
if b<c Then
max=c
c=b
b=c
End if
lable1.caption="a"
End Sud

Answer 5

Private Sub Command1_Click()
dim t
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)

If a> b Then
t = a
a= b
b = t
End If
If a > c Then
t = a
a= c
c= t
End If
If b > c Then
t = b
b = c
c= t
End If
max=a
Label2.Caption = max
end sub