Question

1、编写一个VB程序，具有以下功能：如图图1。在线等

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

求源代码
VB2008
跪求，明天作业

Answer 1

自己在if语句结尾加上以下代码：

textbox1.text=""

追问

谢谢，只能采纳一个答案。

追答

没事儿能帮到你就行了

Answer 2

  Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text.IndexOf("计算机") >= 0 Then
            Label2.Text = Label2.Text + vbCrLf + TextBox1.Text
        Else
            Label3.Text = Label3.Text + vbCrLf + TextBox1.Text
        End If
        TextBox1.Text = ""
        TextBox1.Focus()
    End Sub

界面自己画一下吧. 按钮事件如上即可.