Question

vb中有两个text和一个按钮，问将1000输入text1中，按钮点击后如何使text2显示100

vb中有两个text和一个按钮，问将1000输入text1中，按钮点击后如何使text2显示1001，再次点击按钮显示1003，依次生成，求解，帮帮我

Answer 1

你确定不是1002？
Private Sub Command1_Click()
    Static flag As Boolean
    Static x As Long
    If Not flag Then
        If IsNumeric(Text1.Text) Then
            x = Val(Text1.Text)
            flag = True
        Else
            MsgBox "请在Text1中输入数字", vbCritical, "错误"
            Exit Sub
        End If
    End If
    x = x + 1
    Text2.Text = Trim(Str(x))
End Sub

追问

对，1002