VB比大小程序

457关注970浏览

写了一个输入三个数子,输出一个最大者的程序,代码如下:
Private Sub Command1_Click()
a=text1.text
b=text2.text
c=text3.text
if a > b then
if a > c then
label1.caption=a
end if

展开全部
收起
4回答
提交回答
  • 至过去的我

    2044人对此回答表示赞同

    我是未来的你,你现在是不是在年找寻小程序答案。你不要感觉诧异,给你来信原因,就是让你不在后悔。今天去学习如何推广小程序,相信......点击查看更多>
    发布于
  • Josiah3

    20人对此回答表示赞同

    if a>b then
    if a>c then
    label1=a
    else
    label1=c
    end if
    else
    if b>c then
    label1=b
    else
    label1=c
    end if
    end if
    展开
    20
    0回复
    发布于 5年前

    评论(0)

    收起评论

  • 牛油果

    13人对此回答表示赞同

    if a > b and a > c then

    label1.caption=a

    else
    if b > c then
    label1.caption=b
    else
    label1.caption=c
    end if
    end if
    展开
    13
    0回复
    发布于 5年前

    评论(0)

    收起评论

  • Mira

    11人对此回答表示赞同

    程序是有错的,因为
    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(Te
    展开
    11
    0回复
    发布于 5年前

    评论(0)

    收起评论

  • Carter

    3人对此回答表示赞同

    应在Private Sub Command1_Click()的下一行添加下列代码:
    Dim A As Long
    Dim B As Long
    Dim C As Long

    如果a > b但Not a > c,那么程序就结束了。
    展开
    3
    0回复
    发布于 5年前

    评论(0)

    收起评论

A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
咨询热线

13312967497

扫码添加业务即可随时咨询 还可领取小程序推广攻略

业务咨询: 13312967497
扫码咨询

扫码咨询套餐

回到顶部