大神进来看下这个代码怎么写 - 编程论坛

#2

wube2018-10-13 18:40

1. Frame1.ToolTipText=IIf(Cint(Text1.Text) MOD 2 =0 ,"偶数","机数")
2. Frame1.ToolTipText=IIf(Cint(Text1.Text)>=Cint(Text2.Text),Text1.Text,Text2.Text)

#3

ZHRXJR2018-10-14 10:27

Frame1是框架，框架是放置其他控件的容器，它本身不能够显示数据的。
首先在框架中放置三个标签，分别是：奇数、偶数与最大数，在放置三个标签或文本框，显示奇数、偶数与最大数，当然前面三个标签是提示是什么数。
另外还需要一个按钮，在文本框 Text1 与 Text2 输入完成后进行奇数、偶数与最大数的计算并且在框架中显示出来。
想来对奇数、偶数与最大数的计算应该不是什么问题吧。

#4

billzs2018-10-15 17:26

以下是引用ZHRXJR在2018-10-14 10:27:58的发言：

Frame1是框架，框架是放置其他控件的容器，它本身不能够显示数据的。
首先在框架中放置三个标签，分别是：奇数、偶数与最大数，在放置三个标签或文本框，显示奇数、偶数与最大数，当然前面三个标签是提示是什么数。
另外还需要一个按钮，在文本框 Text1 与 Text2 输入完成后进行奇数、偶数与最大数的计算并且在框架中显示出来。
想来对奇数、偶数与最大数的计算应该不是什么问题吧。

我想不要按钮.输入两组数后.自动在后面判断显示出来

#5

wube2018-10-15 17:37

以下是引用billzs在2018-10-15 17:26:53的发言：

我想不要按钮.输入两组数后.自动在后面判断显示出来

那就写在键盘事件里+失去控件焦点事件吧

#6

ZHRXJR2018-10-15 18:44

以下是引用billzs在2018-10-15 17:26:53的发言：

我想不要按钮.输入两组数后.自动在后面判断显示出来

不使用按钮，而使用判断？不可能实现，必须要有一个事件过程。
你输入完成后要启动程序中的一个过程才能实现，不使用按钮，最起码要有一个过程，例如 Text2 的失去焦点事件等，不用过程你的功能是无法实现的。

程序代码：

Private Sub Text2_LostFocus()
'计算奇数、偶数和最大数，并在Frame1中的控件显示出来
'代码略
End Sub

这是当 Text2 失去焦点时发生的事件，其实与单击按钮事件是一样的，就是界面少了一个按钮控件而已。

[此贴子已经被作者于2018-10-15 20:41编辑过]

#7

yingshu2018-10-17 10:40

Private Sub Form_Click()

        If Val(Text1.Text) Mod 2 = 0 Then
             Text3.Text = "text1的值是偶数"
        Else
            Text3.Text = "text1的值是奇数"
        End If

        If Val(Text2.Text) Mod 2 = 0 Then
            Text3.Text = Text3.Text + vbCrLf + "text2的值是偶数"
        Else
            Text3.Text = Text3.Text + vbCrLf + "text2的值是基数"
        End If

If Text1.Text <> "" And Text2.Text <> "" Then
    If Val(Text1.Text) >= Val(Text2.Text) Then
        Text3.Text = Text3.Text + vbCrLf + "最大数值是" + Text1.Text
    Else
        Text3.Text = Text3.Text + vbCrLf + "最大数值是" + Text2.Text
    End If

End If
End Sub

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
输入的同时自动显示结果，可以在text中的change事件里写入代码
不过，工作量要大很多，需要判断是否有数字，和数字录入的先后顺序

知识有限，仅供参考，希望对你有帮助

[此贴子已经被作者于2018-10-19 08:35编辑过]