VB.NET
* Public Class frmWordCount


Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click

Me.Close()

End Sub

Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click

txtEntry.Text = ""
lblWordCount.Text = "0"
txtEntry.Focus()

End Sub

Private Sub btnCount_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
btnCount.Click
Dim J As Integer
Dim cLast As Integer = txtEntry.TextLength - 1
Dim ThisChar As Char
Dim WordCount As Integer = 0

For J = 0 To cLast
ThisChar = txtEntry.Text.Chars(J)
If ThisChar = " " Then
WordCount += 1
End If

Next J
lblWordCount.Text = WordCount + 1

End Sub

End Class 

단어 갯수를 맞추는 프로그램 입니다.

 

코드는 올렸으나 약간의 오류가있는 코드 입니다.(정상작동은 됨)

 

단어가 붙어있을때 한 단어로 계산이 됩니다.

 

이 오류를 없에는 코드를 입력 해보세여.

 

 단어 개수 알기.png