タイトル : テキストデータの誤字判定 投稿日 : 2006/07/10(Mon) 11:43 投稿者 : 大火
用意しておいたテキストデータをtextbox2に表示させ、textbox1にtextbox2と同じ文章を時間内にど れだけ打てるか。みたいなことをしたいんですが、textbox1にtextbox2と違う文字が打たれてたら、 それを誤字と判定し、カウントしたいんですが、自分で作ったプログラムでは動きませんでした。 Dim bFlag As Boolean Dim cflag As Integer Dim n As Integer bFlag = False If TextBox2.TextLength >= TextBox1.TextLength Then For n = 0 To TextBox2.Text.Length - 1 If TextBox2.Text.Chars(n) <> TextBox1.Text.Chars(n) Then bFlag = True cflag = cflag + 1 Exit For End If Next If bFlag Then Label1.Text = (n.ToString & "文字目が違います") End If End If こういう感じのプログラムを作りました。よければご指導お願いします。 |