VB比大小程序

程序是有错的，因为

a=text1.text

b=text2.text

c=text3.text

程序会把a、b，c当字符串来比较大小，也就是按着ASCII码来比较大小的，所以得不到真正的结果，比如 23，34，5，那么最大的会是5.

下面的可以：

Private Sub Command1_Click()

a = Val(Text1.Text)'text1.text是字符串形式的要改成数字形式的

b = Val(Text2.Text)

c = Val(Text3.Text)

If a >b And a >c Then

Label1.Caption = a

ElseIf b >c And b >a Then

Label1.Caption = b

ElseIf c >a And c >b Then

Label1.Caption = c

End If

End Sub

你自己的程序也可以改一下，应该就可以了。

Private Sub Command1_Click()

a=VAL(text1.text)

b=VAL(text2.text)

c=VAL(text3.text)

if a >b then

if a >c then

label1.caption=a

end if

elseif b >c then

label1.caption=b

else

label1.caption=c

end if

end sub

你们的代码都属于新手看不懂的 呵呵我给你写了一个比较容易懂的！ 先和你说一下原理

首先我弄了4个输入框控件（text） 一个按钮 输入框1 在代码中为 A ， 输入框2 为B，3为C， 4为D ！ 前三个 是比大小的输入数 输入框4也就是D为显示最大数的！ 原理为：

a和B先对比 如果A大于B 然后 D等于A （输入框现实的是最大A！） 否则显示最大B

再用C和D对比（由于D已经等于了A或B的值！所以就拿D和C对比了）如果C大 然后D等于C

如果C小 不做反应！也就是没有否则！下面是代码：

Private Sub Command1_Click()

Dim a, b, c, d As Single

a = Val(Text1.Text)

b = Val(Text2.Text)

c = Val(Text3.Text)

d = Val(Text4.Text)

If a >b Then

Text4.Text = a

Else

Text4.Text = b

End If

If c >d Then

Text4.Text = c

End If

End Sub

废话有点多，其实我可以不说原理的 只是怕新手看不懂的 呵呵 ！！

Private Sub Command1_Click()

a = InputBox("请输入第一个数")

b = InputBox("请输入第二个数")

c = InputBox("请输入第三个数")

'这里是判断最小数

If a <b And a <c Then

Print "“你输入的最小数是”"a

ElseIf b <a And b <c Then

Print "“你输入的最小数是”"b

ElseIf c <a And c <b Then

Print "“你输入的最小数是”"c

End If

'这里是判断最大数

If a >b And a >c Then

Print "“你输入的最大数是”"a

ElseIf b >a And b >c Then

Print "“你输入的最大数是”"b

ElseIf c >a And c >b Then

Print "“你输入的最大数是”"c

End If

End Sub 我也是刚学不久的，希望能帮到楼主.

---