判断关键字是否存在的代码 在线等!

[woshi11gg]

我现在在弄一个类似问答题的程序
要求学生在TEXTBOX里面输入答案 点击算分这个按钮后能自动知道成绩
判断成绩的标准就是他写的答案里面是否有一些关键字
比方说 这题的关键字是"TOOL"
如果他有写 就有分 没有这个关键字一分都没有
请问如何实现??

[tjficcbw]

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim stp As String = "jfdkls;afjdtoolhfdjklsh"
        If InStr(stp, "tool") > 0 Then MsgBox("ok")

    End Sub

[woshi11gg]

Dim stp As String = "jfdkls;afjdtoolhfdjklsh"

能解释下定义这个的意义吗?

[tjficcbw]

定义一个变量stp 并对这个变量赋值为jfdkls;afjdtoolhfdjklsh

[tjficcbw]

也可以这样
dim stp as string
stp="jfdkls;afjdtoolhfdjklsh"

[Nobel0429]

if textbox.text.indexOf("TOOL")<>-1 then
messagebox.show("加分")
end if

[woshi11gg]

为什么需要赋值?

[woshi11gg]

现在是需要判断做题目的人输入的答案中是否含有TOOL这个关键字啊?

[Nobel0429]

4楼的意思是你把 Stp看成是 textbox1.text

[woshi11gg]

原来如此,,

[tjficcbw]

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

         If InStr(textbox1.text, "tool") > 0 Then MsgBox("ok")

    End Sub