Question

VB中text1.text中数值等于20的倍数的时候，弹出消息框~

我在text2.text中输入数值，text1中会累加text2中输入的数值，
要求，当text1中累加的数值是 20 的倍数的时候，弹出消息框提醒，要怎么写代码？谢谢~~

Answer 1

代码如下：

Private Sub Command1_Click()
  Text1.Text = Int(Text1.Text) + Int(Text2.Text)
  If (Int(Text1.Text) Mod 20 = 0) Then
    MsgBox "能被20整除"
  End If
End Sub

效果如下：

Answer 2

你需要加一个按钮，每次输入完text2的数值之后按一次按钮加到text1里。

按钮代码

Private Sub Command1_Click()
    Dim a As Integer
    Dim b As Integer
    a = Val(Text1.Text)
    b = Val(Text2.Text)
    a = a + b
    Text1.Text = a
    If a >= 20 And Mod(a) = 0 Then
        Msgbox "Text1内数值为20倍数"
    End If
End Sub