信息技术奥林匹克竞赛_VB程序设计的常用算法(11)

再依次取下一个字符，重得（2）(3)直到文本结束。 下面程序段是字符串strI中包含的单词数

Nw = 0: Wt = False

nL = Len(RTrim(strI))

For i = 1 To nL

strT = Mid$(strI, i, 1) '取第i个字符

Select Case strT

Case " ", ",", ";", "!"

Wt = False

Case Else

If Not Wt Then

Nw = Nw + 1

Wt = True

End If

End Select

Next i

Print "单词数为：", Nw

(4)

十、穷举法穷举法（又称“枚举法”）的基本思想是：一一列举各种可能的情况，并判断哪一种可能是符合要求的解，这是一种“在没有其它办法的情况的方法”，是一种最“笨”的方法，然而对一些无法用解析法求解的问题往往能奏效，通常采用循环来处理穷举问题。

例： 将一张面值为100元的人民币等值换成100张5元、1元和0.5元的零钞，要求每种零钞不少于1张，问有哪几种组合？

Dim i%, j%, k%

Print "5元 1元 0.5元"

For i = 1 To 20

For j = 1 To 100 - i

k = 100 - i - j

If 5.0 * i + 1.0 * j + 0.5 * k = 100 Then Print i, j, k

End If

Next j