用VB编写一个程序，具有以下功能：在文本框中输入书名后单击“添加”按钮，如果书名中含有“计算机”三个

Question

编写一个程序，具有以下功能：在文本框中输入书名后单击“添加”按钮，如果书名中含有“计算机”三个字，将书名列在左面的标签中，否则列在右面的标签中。然后清除文本框的内容，并将插入点重置于文本框中，运行结果如下图1所示。

Answer 1

Private Sub Command1_Click()
    If Text1.Text = "" Then Exit Sub
    If InStr(Text1.Text, "计算机") <> 0 Then
        Label1.Caption = Label1.Caption & Text1.Text & vbCrLf
    Else
        Label2.Caption = Label2.Caption & Text1.Text & vbCrLf
    End If
    Text1.Text = ""
    Text1.SetFocus
End Sub

Private Sub Form_Load()
    Text1.Text = ""
    Label1.Caption = ""
    Label2.Caption = ""
End Sub

追问

现在怎么不能采纳第二个答案了

追答

一个问题你只能采纳一个最佳答案。除非你再提问一个问题。

Answer 2

  你的是vb.60还是啥？这像是vb.net。

Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.TextLength > 0 Then
            If TextBox1.Text Like "*计算机*" Then
                Label1.Text += vbCrLf & TextBox1.Text
            Else
                Label2.Text += vbCrLf & TextBox1.Text
            End If
        End If
        TextBox1.Focus()
        TextBox1.Clear()
    End Sub

焦点跳来跳去有个毛病，文本框的当前中文输入状态不能保持，把窗口ImeMode属性设置为On

追问

vb.net。谢谢

本回答被提问者和网友采纳