VB中.两个文本框,我在textbox1里输入50,则textbox显示1,在textbox1里输入100,则textbox显示2,如何编.

Private Sub TextBox2_GotFocus()
If TextBox1.Text = Str(50) Then
TextBox2.Text = "1"
if TextBox1.Text = Str(100) Then
TextBox2.Text = "2"
end if
end if
End Sub
这个不行泥..

第一：TextBox在代码中是Text，box不用写，第二：Str(50) 表示将50转为字符串，并且前面空一格，而你输入数字时没有先空一格再输入50或100，所以不执行if语句，所以text2里不显示。修改如下：
Private Sub Text2_GotFocus()
If Text1.Text = CStr(50) Then
Text2.Text = "1"
End If
If Text1.Text = CStr(100) Then
Text2.Text = "2"
End If
End Sub

Private Sub TextBox1_Change() If TextBox1.Text = "50" Then TextBox2.Text = "1" End If End Sub

你写错了，TextBox2应写为Text2，如下： Private Sub Text2_GotFocus() If Val(Me.Text1.Text) = 50 Then Me.Text2.Text = "1" If Val(Me.Text1.Text) = 100 Then Me.Text2.Text = "2" End Sub 或（更简单）： Private Sub Text2_GotFocus() Text2.Text =Val(Text1.Text)/50 End Sub

Private Sub TextBox2_GotFocus() If TextBox1.Text = "50" Then TextBox2.Text = "1" ElseIf TextBox1.Text = "100" Then TextBox2.Text = "2" End If End Sub

你好！ Private Sub TextBox2_GotFocus() If TextBox1.Text = "50" Then 偿耿稗际织宦半为报力 TextBox2.Text = "1" ElseIf TextBox1.Text = "100" Then TextBox2.Text = "2" End If End Sub 如果对你有帮助，望采纳。

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息