Private Sub Command1_Click()
x = Text1.Text
y = Text2.Text
z = Text3.Text
x = Val(x)
y = Val(y)
z = Val(z)
If x < y Then
aa
Else
bb
End If
End Sub
Private Sub bb()
If y < z Then

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

    2044人对此回答表示赞同

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

    18人对此回答表示赞同

    需要两个函数,一个因子和计算,一个因子和输出。程序窗体放置一个文本框,设置其MultiLine为True。源程序如下:

    Option Explicit
    Dim I As Long, J As Long, X As Long

    Private Sub Form_Load()
    Me.Show
    For I = 1 To 10000
    DoEvents
    X = Yzh(I)
    展开
    18
    0回复
    发布于 5年前

    评论(0)

    收起评论

  • Owen

    17人对此回答表示赞同

    循环俩俩比较,完事了...
    展开
    17
    0回复
    发布于 5年前

    评论(0)

    收起评论

  • Audrey

    15人对此回答表示赞同

    我帮你仔细检查过
    你的确是有问题
    就是全局变量和局部变量搞错了
    你改成这样的就可以了
    我尝试过得,没有任何问题的
    Private Sub Command3_Click()
    Dim x, y, z As Integer
    x = Val(Text1.Text)
    y = Val(Text2.Text)
    z = Val(Text3.Text)

    If x < y Then
    aa
    展开
    15
    0回复
    发布于 5年前

    评论(0)

    收起评论

  • 你最珍贵

    12人对此回答表示赞同

    Dim x, y, z
    在Private Sub Command1_Click()前加Dim x, y, z就行了,因为不是全局变量在过程里不管用的
    展开
    12
    0回复
    发布于 5年前

    评论(0)

    收起评论

  • Janaya

    10人对此回答表示赞同

    x = Text1.Text
    y = Text2.Text
    z = Text3.Text
    x = Val(x)
    y = Val(y)
    z = Val(z)
    这6行不应该这么写,建议写法如下:
    Dim x as Integer,y as Integer,z as Integer ‘全局变量
    Private Sub Command1_Click()
    x=Val(Text1.Text)
    y=Val(Text2.T
    展开
    10
    0回复
    发布于 5年前

    评论(0)

    收起评论

  • Gary_Jin

    1人对此回答表示赞同

    这程序就一个字:烂
    展开
    1
    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
扫码咨询

扫码咨询套餐

回到顶部